程序設(shè)計(jì)基礎(chǔ)VB.doc

試題紙一、單項(xiàng)選擇 （每題2分，共40分）1、Visual Basic是一種面向（）的程度設(shè)計(jì)語(yǔ)言。（A）用戶(hù) （B）事件 （C）程序 （D）對(duì)象2、在Visual Basic6.0中規(guī)定工程文件的擴(kuò)展名是（）。（A）vbp （B）for （C）frm（D）bas3、下列控件中可用于接受用戶(hù)輸入文本，又可用于顯示文本的是（）。（A）Label 控件 （B)TextBox 控件 （C）Timer 控件（D）CommandButton 控件4、雙擊窗體中的對(duì)象后,Visual Basic將顯示的窗口是（）。(A)項(xiàng)目(工程)窗口 （B)工具箱 (C)代碼窗口 （D）屬性窗口5、語(yǔ)句PRINT 25*4的輸出結(jié)果是（）。（A）25*4 （B）100 （C）100 （D）出現(xiàn)錯(cuò)誤信息6、Int(Rnd * 100) 表示的是( )范圍內(nèi)的一個(gè)整數(shù)。（A） 0,100 （B） 1,99 (C) 0,99 (D) 1,1007、如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不可用（）。(A)把它的Visible屬性設(shè)置成False (B)把它的Visible屬性設(shè)置成True(C)把它的Enabled屬性設(shè)置成False (D)把它的Enabled屬性設(shè)置成True8、InputBox函數(shù)返回值的類(lèi)型為（）。(A) 數(shù)值 （B)數(shù)值或字符串（視輸人的數(shù)據(jù)而定）(C) 變體 (D)字符串9 執(zhí)行以下語(yǔ)句時(shí),會(huì)出現(xiàn)錯(cuò)誤提示的是_.(A) Print2b3 +12.5(B). Print12.5+ 12(C).Print12.5 & 12.5(D).Print2e3+1210、在窗體上畫(huà)三個(gè)單選按鈕，組成一個(gè)名為command1的控件數(shù)組。用于標(biāo)識(shí)各個(gè)控件數(shù)組元素的參數(shù)是（）。（A）command1 （B）Index （C）ListIndex （D）Name11、以下合法的Visual Basic變量是（）。（A）ForLoop （B） Const（C） 9abc （D） a#x12、有如下事件過(guò)程Private Sub Command1_Click()x = 1For i = 1 To 3If i = 1 Then a = x * xIf i = 3 Then a = x * x + 2Print a; Next iEnd Sub運(yùn)行時(shí)，單擊命令按鈕，則結(jié)果是（ ）：（A）2 5 11 （B）1 5 1 （C） 2 2 3 （D）1 1 113、以下Case語(yǔ)句含有錯(cuò)誤的是_.（A） Case 0 To 10 （B）Case Is10（C） Case Is10 And Is1014、表達(dá)式 5 Mod 3+35*2的值是 （）（A） 0 （B） 6 （C）4 （D） 215、執(zhí)行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i n（A）2 （B）6 （C）10 （D） 1416、執(zhí)行以下程序段，輸出結(jié)果為 （）Private Sub Command1_Click()a$=abbacddcbaFor i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z= UCase(x & y & z)Next iPrint zEnd Sub（A） ABA （B）ABBABA （C） BBABBA （D）AABAAB17、表達(dá)式4+5 6 * 7 / 8 Mod 9 的值是（）。（A）4（B）5（C）6（D）718、設(shè)x=4,y=8,z=7，表達(dá)式xz) Or z n - 1 Then k = k + 1: Print n;L2：If k = 5 Then k = 0: PrintNext n本程序的功能為（）。（A）打印3100之間的所有數(shù) （B）打印3100之間的所有2的倍數(shù)（C）打印3100之間的所有5的倍數(shù) （D）打印3100之間的所有素?cái)?shù)二 填空題 （每空3分，共36分）21、閱讀下列程序Option Base 1Private Sub Form_Click()Dim a As Variant, b As VariantDim c(7) As Integera = Array(2, 8, 7, 6, 4, 26, 24)b = Array(79, 27, 32, 40, 57, 66, 82)Print 兩組相加結(jié)果數(shù)值：;For i = 1 To 7c(i) = a(i) + b(i)Print c(i);Next iEnd Sub語(yǔ)句“Option Base 1”的說(shuō)法中正確的是【1】，該程序的功能是【2】。22 執(zhí)行下面程序，單擊Command1，則窗體上的第一行是【1】，第三行是【2】，最后一行是【3】。Private Sub Command1Click() Dim x As Integer,y As Integer x=12:y=0 Do While x 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub23 運(yùn)行下面的程序，單擊Command1,在窗體上顯示的變量a的值為_(kāi)【1】_，變量b的值為_(kāi)【2】_,變量c的值為_(kāi)【3】_。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End SubPrivate Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+yEnd Function24 運(yùn)行下面程序，單擊Command1，在窗體上顯示的變量a的值為_(kāi)【1】_,變量b的值為_(kāi)【2】_Dim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(a, b + 2) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function25、下面程序執(zhí)行后a的值是_。Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 1 Do While b 5 a = b - a b = b + 1 Loop Print aEnd Sub26、程序運(yùn)行時(shí)，單擊Command1按鈕，顯示結(jié)果是_。Private Sub Command1_Click() Dim a As Variant, s As Integer Dim i As Integer, j As Integer a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub三 編寫(xiě)程序題 (每題12分，共12*2 = 24分)27 窗體上有一個(gè)命令按紐，名稱(chēng)為command1，有一個(gè)文本框，名稱(chēng)為text1,單擊command1,將1到100的偶數(shù)和顯示在文本框text1中，完成Command1_Click中的代碼：Private Sub Command1_Click() End Sub28窗