vb程序設(shè)計

1、1《VBVB程序設(shè)計》綜合復(fù)習(xí)資料程序設(shè)計》綜合復(fù)習(xí)資料一、填空題一、填空題1.在VB中工程文件的擴(kuò)展名是____________，窗體文件的擴(kuò)展名是____________，標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是____________。2.一個控件在窗體的位置由______和________屬性決定，其大小由__________和_________屬性決定。3.變量的聲明分為兩種方法：__________和____________。4.使用____

2、________方法可在窗體中進(jìn)行文本的輸出，用____________方法可畫圓，用____________方法可畫直線。5.類是具有相同性質(zhì)的對象的_________。6.利用對象的屬性setfocus可獲得焦點，對于一個對象，只有其visible屬性和____________屬性為true，才能接受焦點。7.文件按存取方式及其組成結(jié)構(gòu)可分為________________文件、__________文件和______________

3、文件。8.在VB中，用___________________語句設(shè)定數(shù)組的下界，用_____________和__________________語句分別返回數(shù)組的上、下界。9.在窗體上畫一個名稱為“Comm1”、標(biāo)題為“計算”的命令按鈕，再畫7個標(biāo)簽，其中5個標(biāo)簽組成名稱為Label1的控件數(shù)組；名稱為Label2的標(biāo)簽用于顯示計算結(jié)果，其Caption屬性的初始值為空；標(biāo)簽Label3的標(biāo)題為“計算結(jié)果”。運行程序時會自動生成5個隨

4、機(jī)數(shù)，分別顯示在標(biāo)簽控件數(shù)組的各個標(biāo)簽中。單擊“計算”按鈕，則將標(biāo)簽數(shù)組各元素的值累加，然后計算結(jié)果顯示在Label2中。請?zhí)羁?。PrivateSubComm1_Click()Sum=0Fi=0To4Sum=Sum____Nexti_____=SumEndSub10.在窗體上畫兩個名稱分別為Comm1和Comm2、標(biāo)題分別為“初始化”和“求和”的命令按鈕。程序運行后，如果單擊“初始化”命令按鈕，則對數(shù)組a的各元素賦值；如果單擊“求和”命

5、令按鈕，則求出數(shù)組a的各元素之和，并在文本框中顯示出來。請?zhí)羁?。OptionBase1325.VB中的數(shù)據(jù)以四種形式存儲：常量、_________、_________和記錄。26.在標(biāo)簽控件中通過編程使文字換行用的代碼是___________________。27.要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀，應(yīng)設(shè)置的屬性值是_________________。28.設(shè)某列表框共有10項，按題目要求補齊程序，完成相應(yīng)的功能。（1）按下命令按鈕

6、Comm1時將列表框第8項的內(nèi)容顯示在窗體上：PrivateSubComm1_Click()List.__________(7)=TruePrintList1.______________EndSub（2）單擊列表框某一項時立即將該項打印在窗體上：PrivateSubList1_Click()Print_______________EndSub（3）按下命令按鈕Comm1時在窗體上刪除第1、3、5、7、9項：PrivateSubComm

7、1_Click()FI=1To5List1.____________NextIEndSub（4）在列表框的每一項之后插入一個新的項：PrivateSubComm1_Click()FI=1to10X=InputBox(“請輸入插入的第”&I&“項內(nèi)容”)List1.AddItem____________NextIEndSub29.設(shè)在界面上放置了一個滾動條Hscroll1和一個標(biāo)簽控件Label1，要使每次單擊滾動條兩端箭頭時，或單擊滾動

8、條滑塊與兩端箭頭之間的空白區(qū)域時，標(biāo)簽內(nèi)容能夠反映滾動條的值，補齊以下代碼。PrivateSubHscroll1.__________________()Label1.Caption=Hscroll1.___________________EndSub要使拖動滾動條滑塊時標(biāo)簽內(nèi)容能夠反映滾動條的值，補齊以下代碼。PrivateSubHscroll1.________________()Label1.Caption=Hscroll1.__