VB實(shí)驗(yàn)2常用控件和窗體的使用

1、廣州大學(xué)學(xué)生實(shí)驗(yàn)報(bào)告開課學(xué)院及實(shí)驗(yàn)室：電子信息樓617日期：2013年12月19學(xué)院機(jī)械與電氣 工程年級(jí)、專業(yè)、班信12電11姓名孔志榮學(xué)號(hào)1107400052實(shí)驗(yàn)課程 名稱vb實(shí)驗(yàn)成績(jī)實(shí)驗(yàn)項(xiàng)目 名稱實(shí)驗(yàn)二：常用控件和窗體的使用導(dǎo)師指老一、實(shí)驗(yàn)?zāi)康?. 掌握一維數(shù)組的定義、初始化和引用方法。2. 掌握二維數(shù)組的定義、初始化和引用方法。3. 掌握控件數(shù)組的創(chuàng)建和引用。4. 掌握排序算法。1. 掌握子定義函數(shù)與字過程的定義和調(diào)用方法。2. 掌握調(diào)用過程時(shí)參數(shù)傳遞的兩種方式(傳值與傳址)3. 掌握變量、函數(shù)和過程的作用域。掌握窗體的常用屬性、事件和方法，尤其是窗體的常用事件。2. 掌握標(biāo)簽、文本框、

2、命令按鈕的常用屬性、事件和方法。3. 掌握單選鈕和復(fù)選框、列表框和組合框的編程方法。4. 掌握應(yīng)用圖片框和圖象框加載圖片的方法。5. 掌握計(jì)時(shí)器和滾動(dòng)條的編程方法。6. 掌握焦點(diǎn)的應(yīng)用技巧。實(shí)驗(yàn)題目定義一維數(shù)組a (10)，從鍵盤任意輸入10個(gè)整數(shù)對(duì)a (10)賦值，然后 按與輸入相反的順序逆序輸出。private sub form_click()dim i as integer dim a( 10) as integer for i = 0 to 9a(i) = val(inputbox("請(qǐng)輸入一個(gè)整數(shù)："，"數(shù)據(jù)輸入")print a(i);nex

3、t i printfor i = 9 to 0 step -1 print a(i);next i end subfo»l0 75 44 221144 66 8863 879 997997 879 8863 66 4411 22 44 75 0用命令按鈕設(shè)計(jì)一個(gè)數(shù)字軟鍵盤，以便用戶輸入密碼。其用戶界而如圖。private sub command 1 _click(index as integer)select case index case 0 to 9textl = textl & command l(index).caption case 10msgbox "你

4、的用戶密碼是n +text1,，n密碼提示"end select end sub隨即產(chǎn)生一個(gè)5x5矩陣(每個(gè)元素為兩位正整數(shù))。計(jì)算其主、副對(duì)角線元 素之和。private sub command l_click()dim a(5, 5) as integer, result as integer dim i as integer，j as integer picture 1.cisrandomizefor i = 1 to 5 for j = 1 to 5 a(i?j) = int(rnd*90+ 10)picture 1.print a(i, j);next jpicture 1

5、.print next ifor i = 1 to 5if option 1.value = true then result = result + a(i, i)elself option2.value = true then result = result + a(i, 5 - i + 1)end ifnext itextl = result end sub編寫一個(gè)函數(shù)過程，其功能是判斷一個(gè)數(shù)是正數(shù)、負(fù)數(shù)還是零。在調(diào)用 程序中，通過鍵盤輸入數(shù)據(jù)，調(diào)用該函數(shù)過程，并輸出判斷結(jié)果。private function jud(n as single) as string if n > 0 t

6、hen jud = n正數(shù)m elseif n = 0 then jud = n0"elsejud ="負(fù)數(shù)m end ifend ifend functionprivate sub command l_click()dim n as singlen = val(i叩utbox("請(qǐng)輸入一個(gè)數(shù)：") print"你輸入的數(shù)是："jud(n)end sub，fo»l回®輸入數(shù)據(jù)編寫程序，驗(yàn)證雙擊窗體后，觸發(fā)了那些鼠標(biāo)事件以及觸發(fā)的順序。1. 輸入代碼新建工程后，雙擊窗體，進(jìn)入代碼窗口，輸入以下代碼：private s

7、ub form_c1ick()print "觸發(fā) form_click 事件"end subprivate sub fonn_dblclick()printm觸發(fā) form_dbclick end subprivate sub form_mousedown(button as integer, shift as integer,x as single，y as single)end subprivate sub form_mouseup(button as integer, shift as integer,x as single, y as single)print ”觸

8、發(fā) mouseup 事件"end sub2. 執(zhí)行程序：?jiǎn)螕魡?dòng)按鈕，然后雙擊窗體，運(yùn)行結(jié)果如圖。編寫模擬秒表程序。要求：?jiǎn)螕簟伴_始”按鈕，該按鈕變?yōu)榛疑?，在文本框textl種顯示開始時(shí)間； 按“停止”按鈕，該按鈕變?yōu)榛疑?，同時(shí)“開始”按鈕變?yōu)榭捎茫谖谋究騮ext2 中顯示停止時(shí)間，在文本框text3中顯示經(jīng)過的時(shí)間。private sub command 1 _click() st = nowtextl = format(st，"hh:mm:ss°) text2 = hu text3 = m"command 1. enabled = false co

9、mmand2.enabled = true end subprivate sub commancl2_click() et = nowpt = st - ettext2 = format(et，nhh:mm:ss")text3 = format(pt, hh:mm:ss”)command2.enabled = false command 1.enabled = true end sub編寫一個(gè)實(shí)現(xiàn)圖片閃爍的程序。要求：?jiǎn)螕簟伴W爍按鈕”，圖片閃爍，單擊“停止閃爍”按鈕，圖片停止閃爍，用滾動(dòng)條控制閃爍速度。分析：閃爍是圖片從可見到不可見，又不可見到可見，反復(fù)進(jìn)行，用語句 對(duì)象名.visi

10、ble=not對(duì)象名visible實(shí)現(xiàn)。速度的控制用hscrolll的value屬性值給計(jì)時(shí)器tim的 interval屬性賦值來實(shí)現(xiàn)private sub checkl_click()label4.fontstrikethru = true end subprivate sub check2_click()label4.fontunderline = true end subprivate sub combol_click()label4.fontname = combo 1.text end subprivate sub combo2_click()select case comboz.l

11、istlndex case 0label4.fontbold = false label4.fontitalic = false case 1label4.fontbold = true label4.fontitalic = false case 2label4.fontbold = false label4.fontitalic = true case 3label4.fontbold = true label4.fontitalic = true end select end subprivate sub combo3_click()label4.fontsize = combo3.te

12、xt end sub字體瀏覽器。（綜合實(shí)驗(yàn)）設(shè)計(jì)一個(gè)程序，實(shí)現(xiàn)vb系統(tǒng)中字體設(shè)置預(yù)覽窗口的功能。程序要求：1、程序運(yùn)行后，窗體初始化時(shí)，在左邊組合框1（名稱為combol）中列出當(dāng) 前屏幕對(duì)象（screen）的所有字體，screen對(duì)象的fonts屬性（fonts屬性 是一個(gè)數(shù)組）能夠得到屏幕使用的所有字體，fcmtccmnt屬性能夠得到字體 的數(shù)量，利用一個(gè)循環(huán)，將screen對(duì)象的每個(gè)foms（i）添加到組合框1中；2、窗體初始化時(shí)，在右邊的組合框3（名稱為combo3）中列出8、10、12、1472的數(shù)字，表示字號(hào)。中間的組合框2 （名稱為combo2）中列出字形: 常規(guī)、粗體、斜體和粗

13、斜體。3、當(dāng)用戶在組合框1中單擊選中某種字體名時(shí)，或在組合框2選擇字形， 或在組合框3中單擊選中某一字號(hào)時(shí)，使示列中的標(biāo)簽框（名稱為label4） 中文字設(shè)置為相應(yīng)字體與字號(hào)，實(shí)現(xiàn)字體字號(hào)預(yù)覽。界面如圖。private sub form_load（）for a = oto screen.fontcount- 1 combol.addltem screen.fonts（a）next afor a = 8 to 72 step 4 combo3.additem a next acombo2.additem "常規(guī)"combo2.additem "粗體”combo2.a

14、dditem "斜體"combo2.additem "粗斜體"end subfonl字體字型大小黑體i斜體亊例效果v'側(cè)除線9下劃線向工具箱中添加通用對(duì)話框。2.編寫程序，演示通用對(duì)話框的功能。程序代碼如下：private sub command l_ciick(index as integer)select case index case 0commondialogl .showopenmsgbox °打開文件” + commondialogl.filenamecase 1commondialogl .showsavemsgbox n保存文件 + commondialogl.filenamecase 2commondialogl.flags = cdlcfboth commondialogl .showfont msgbox "字體為, + commondialogl.fontname case 3commondialogl -showcolormsgbox 取得的顏色值為n + str(commondialog 1 .color) case 4commondialogl showprinterj = commondialogl .frompagek = c