VB期末考試試卷及答案(同名2496)(共6頁)

1、 VB期末考試試卷及答案一選擇題1.Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，構(gòu)成對象的三要素是（ B ）A屬性、控件和方法 B屬性、事件和方法C窗體、控件和過程 D控件、過程和模塊 2. 所有控件都有一個(gè)共同的屬性，這個(gè)屬性是（ C ） A text B font C name D caption 3. 下列敘述中錯(cuò)誤的是（ A ） A 工程文件擴(kuò)展名是.vbg B 標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是.bas C 窗體模塊的擴(kuò)展名是.frm D 類模塊的擴(kuò)展名是.cls 4. 當(dāng)要編寫一個(gè)新的Visual Basic程序時(shí)，所做的第一件事是（ A ） A 新建一個(gè)工程 B 編寫代碼 C 設(shè)置

2、屬性 D 添加Active X控件 5. 下面控件中，沒有caption屬性的是（ B ） A 框架 B 組合框 C 命令按鈕 D 復(fù)選按鈕 6. 在文件框中輸入字符時(shí)，若只顯示某個(gè)字符，如（*），應(yīng)設(shè)置屬性是（ B ） A MultiLine B PasswordChar C Text D selText 7. 若要將窗體從內(nèi)存中卸載出去，其實(shí)現(xiàn)的方法是（ D ） A Show B Hide C Load D UnLoad 8. 下列關(guān)于過程敘述不正確的是（ D ） A 過程的傳值調(diào)用是將實(shí)參的具體值傳值傳遞給形參 B 過程的傳址調(diào)用是將實(shí)參在內(nèi)存的地址 傳遞給形參 C 過程的傳值調(diào)用參數(shù)是

3、單向傳遞的，過程的傳址調(diào)用參數(shù)是雙向傳遞的 D 無論過程傳值調(diào)用還是傳地址調(diào)用，參數(shù)傳遞都是雙向的 9. 某人創(chuàng)建1個(gè)工程，其中的窗體名為Form1，之后又添加了1個(gè)名為Form2的窗體，并希望程序執(zhí)行時(shí)先顯示Form2窗體，那么，他需要做的工作是（ C ） A 在Form1的Load事件過程中加入語句Load Form2 B 在Form2的Load事件過程中加入語句Form2.Show C 在“過程屬性”對話框中把“啟動(dòng)對象”設(shè)置為Form2 D 在Form2的TabIndex屬性設(shè)置為1，把Form1的TabIndex屬性設(shè)置為2 10. 以下關(guān)于文件的敘述中，正確的是（ B ） A 以O(shè)

4、utput方式打開一個(gè)不存在的文件時(shí)，系統(tǒng)將顯示出錯(cuò)信息 B 以Append方式打開的文件，既可以進(jìn)行讀操作，也可以進(jìn)行寫操作 C 在隨機(jī)文件在，每個(gè)記錄的長度是固定的 D 無論是順序文件還是隨機(jī)文件，其打開的語句和打開的方式都是完全相同的 11. 設(shè)a=6，b=8，c=10 則函數(shù)IIf(ab,Iif(bc,c,b),a+b)的返回值是（ A ） A 10 B 6 C 8 D 12 12. 下面程序的執(zhí)行結(jié)果為（ B ） I=”1” : j=”2” I=val(i)+val(j) J=val(“12”) If ij Then print i-j Else printj-i A 9 B -9

5、C 12 D 0 13. 下面程序的執(zhí)行結(jié)果為（ A ） Dim S(10) AS Integer For i=0 to 10 S(I)=2*i Next i Print S(S(3) A 12 B 6 C 0 D 4二程序填空題：1. 在窗體上畫一個(gè)命令按鈕（Command1）和一個(gè)標(biāo)簽（Label1），為命令按鈕編寫以下事件，其功能是求數(shù)組中各元素之和，并將結(jié)果在標(biāo)簽上顯示，請?jiān)谥付ㄎ恢锰钌险_代碼將程序補(bǔ)充完整。 Option Base 1 Private Sub Command1_Click() Dim a(3,2) AS Integer S =0 For i= 1 to 3 For

6、j= 1 to 2 a(I,j) = i+j s= 【1】 Next j Next i 【2】 End Sub 2. 下面程序的功能是產(chǎn)生10個(gè)小于100（不含100）的隨機(jī)正整數(shù)，并統(tǒng)計(jì)其中 5的倍數(shù)所占比例，請?jiān)谥付ㄎ恢锰钌险_代碼將程序補(bǔ)充完整。 Private Sub Command1_Click() Randomise Dim a(10) As Integer For j =1 to 10 a(i)= 【3】 If 【4】 Then k= k+1 Print a(j) Next j Print Print k /10 End Sub 3. 以下程序運(yùn)行后，在Text1中輸入任意字符串

7、，單擊命令按鈕，將Text1中的字符串轉(zhuǎn)換為大寫，再將字符串逆置（如ABCD-DCBA），在Text2中顯示逆置后的字符串。請?jiān)谥付ㄎ恢锰钌险_代碼將程序補(bǔ)充完整。 Private Sub Command1_Click() St = Ucase(Text1.text) For i= 【5】 To 1 Step -1 S2= s2+Mid(s1, 【6】 , 1) Text2.text= s2 End Sub 4. Next i設(shè)有如下的循環(huán)，要求程序運(yùn)行時(shí)執(zhí)行3次循環(huán)，請?jiān)谥付ㄎ恢锰钌险_代碼將程序補(bǔ)充完整。 Dim x As Integer X = 1 Do x = x+2 Print x

8、Loop Until 【7】 5. 在窗體上畫一個(gè)組合框（Combo1）、一個(gè)列表框（List1）和一個(gè)命令按鈕（Command1）。下面程序的功能是在組合框中選擇一個(gè)大學(xué)名稱，單擊命令按鈕，則所選大學(xué) 名稱將添加在列表框中，當(dāng)組合框中沒有要選的大學(xué)名稱時(shí)，輸入一個(gè)名稱，則此大學(xué)名稱在添加列表框中的同時(shí)也會(huì)添加到組合框中，請?jiān)谥付ㄎ恢锰钌险_代碼將程序補(bǔ)充完整。 Private Sub Form_Load() Combo1.AddItem”交通大學(xué)” Combo1.AddItem”理工大學(xué)” Combo1.AddItem”財(cái)經(jīng)大學(xué)” Combo1.AddItem”外貿(mào)大學(xué)” End Sub P

9、rivate Sub Command1_Click() 【8】 Flag=Flase For i=0 to 【9】 If Combo1.List(i)=Combo1.Text Then flag=True : Eixt For End If Next i If Not flag Then 【10】 End Sub 6. 下面程序的功能是對數(shù)組的元素值用選擇法按遞增順序排序，請?jiān)谥付ㄎ恢锰钌险_代碼將程序補(bǔ)充完整。 Private Sub Command1_Click() Dim ia(),i%,max%,imax%.t% Ia=Array(3,8,5,6,7,4,9) For i =0 To

10、5 : imax = i For j = i+1 To 6 If 【11】 Then imax =j Next j T=ia(i) : 【12】 : ia(imax)=t Next i For i=0 To 6 : Print ia(i) : Next i End Sub7. 窗體上有名稱為Command1的命令按鈕及名稱為Text1、能顯示多行文本的文本框。程序運(yùn)行后，如果單擊命令按鈕，則可打開磁盤文件c:test.txt，并將文件中的內(nèi)容（多行文本）顯示在文本框中。下面是實(shí)現(xiàn)此功能的程序，請?jiān)谥付ㄎ恢锰钌险_代碼將程序補(bǔ)充完整。 Private Sub Command1_Click() T

11、ext1=” Open”c:test.txt” For Input As #1 Do While Not 【13】 Line Input#1,S Text1.text=Text1.text+ 【14】 +chr(13)+chr(10) Loop 【15】 End Sub 答案： 1.S+a(I,j) 2.Label1 0 = S 3.Int(Rnd*99) 4.a(i) mod 5=0 5.Len(S1) 6.i 7.x=7 8.List1.AddItem Combo1.text 9.3/ListCount 10.Combo1.AddItem Combo1.text 11.a(j)imax 1

12、2.ia(i)=ia(imax) 13.Eof 14. S 15.Close #1三閱讀程序，在答題紙指定位置寫出程序運(yùn)行結(jié)果。1. 以下程序運(yùn)行后，單擊命令按鈕，寫出程序的運(yùn)行結(jié)果。 Private Sub Command1_Click() Dim n%,b,t t =1 : b =1 : n =2 Do While n 1 Then Exit Do b = b*n : t = t+b : n = n+1 Loop Print “t=”& t End Sub2. 在窗體中添加一個(gè)命令按鈕Command1，并編寫如下程序： Private Sub Command1_Click() X =Inp

13、utBox(x) If x29 Then y= x2+1 If (x2)-7=9 Then y=x Print “y=”&y End Sub 程序運(yùn)行后，在InputBox中輸入4，單擊命令按鈕，寫出程序的運(yùn)行結(jié)果。3. 窗體上畫一個(gè)命令按鈕，并編寫以下事件過程和子過程： Private Sub Command1_Click() Dim x As Integer, y As Integer x =12 : y = 20 Call Value(x,y) Print “x=”&x, “y=”&y End Sub Private Sub Value(ByVal m As Integer, n As

14、Integer) m=m*2：=n-5 End Sub 程序運(yùn)行后，單擊命令按鈕，寫出程序的輸出結(jié)果。4. 窗體上畫一個(gè)命令按鈕和一個(gè)圖像框，并編寫以下事件過程： Private Sub Command1_Click() Dim a(3,3) For m =1To3 For n= 1 To 3 If n = m Or n = 4 m Then a(m,n)=m+n Else a(m,n)=0 End If Picture1.Print a(m,n) Next n Picture1.Print Next m End Sub 程序運(yùn)行后，單擊命令按鈕，圖像框中顯示的內(nèi)容是什么?5. 在窗體上畫一個(gè)列表框和一個(gè)命令按鈕Command1，然后編寫如下程序： Private Sub Command1_Click() List1.RemoveItem1 List1.RemoveItem2 End Sub Private Sub Form_Load() List1.AddItem”蘭州” List1.AddItem”甘肅”List1.AddItem”交通” List1.AddItem”大學(xué)” End Sub 程序運(yùn)行后，單擊命令按鈕，寫出在列