安徽省Visual BASIC二級考試試題庫.doc

全國高校(安徽考區(qū))計(jì)算機(jī)水平考試2005年Visual BASIC語言試題庫總匯一、單項(xiàng)選擇題（每題只有一個(gè)答案是正確的，請將正確選項(xiàng)填入要求處）1(D). 以下4種描述中，錯(cuò)誤的是_。A. 常量在程序執(zhí)行期間其值不會(huì)發(fā)生改變B. 根據(jù)數(shù)據(jù)類型不同，常量可分為字符型常量、數(shù)值常量、日期/時(shí)間型常量和布爾型常量C. 符號(hào)常量是用一個(gè)標(biāo)識(shí)符來代表一個(gè)常數(shù)，好象是為常數(shù)取一個(gè)名字，但仍保持常數(shù)的性質(zhì)D. 符號(hào)常量的使用和變量的使用沒有差別2(D). 下面合法的常量是_。A. 1/2 B. abcd C. 1.2*5 D. False3(C). Visual Basic中可以用類型說明符來標(biāo)識(shí)變量的類型，其中表示貨幣型的是_。A. % B. # C. D. $4(A). 以下關(guān)鍵字中，不能定義變量的是_。A. Declare B. Dim C. Public D. Private5(A). 用十六進(jìn)制表示Visual Basic的整型常數(shù)時(shí)，前面要加上的符號(hào)是_。A) &H B) &O C) H D) O6(A). Visual Basic日期常量的定界符是_。A. # B. C. () D. 7(B). 數(shù)學(xué)關(guān)系3x10表示成正確的VB表達(dá)式為_。A. 3=x10 B. 3=x AND x=3 OR x10 D. 3=x AND 108(C). ，/，Mod，*四個(gè)算術(shù)運(yùn)算符中，優(yōu)先級別最低的是_。A. B. / C. Mod D. * 9(C). 下面語句中有非法調(diào)用的是_。A. x=SGN(-1) B. x=FIX(-1) C. x=SQR(-1) D. x$=CHR$(65)10(B). 表達(dá)式23/5.8、235.8、23 Mod 5.8的運(yùn)算結(jié)果分別是_。A. 3、3.9655、3 B. 3.9655、3、5 C. 4、4、5 D. 3.9655、4、311(A). 如果變量 a=2、b=abc、c=acd、d=5，則表達(dá)式 ac AND bc 的值_。A. True B. False C. Yes D. No12(A). 為了給x,y,z三個(gè)變量賦初值1，下面正確的賦值語句是_。A) x=1y=1z=1 B) x=1,y=1,z=1 C) x=y=z=1 D) xyz=113(D). 以下4類運(yùn)算符，優(yōu)先級最低的是_。A. 算術(shù)運(yùn)算符 B. 字符運(yùn)算符 C. 關(guān)系運(yùn)算符 D. 邏輯運(yùn)算符A. f=x*x+3 If x=1 Then f=sqr(x+1) B. If x=1 Then f=sqr(x+1) If x= 1 Then f = Sqr(x + 1) Else f = x * x + 3 D. If x5,-1,0)后,x的值為_。A) 5 B) 6 C) 0 D) -116(B). 設(shè)有如下的記錄類型Type Student number As String name As String age As IntegerEnd Type則正確引用該記錄類型變量的代碼是_。A. S=張紅 B. Dim s As Student =張紅C. Dim s As Type Stuent D. Dim s As Type =張紅 =張紅17(A). 下列程序運(yùn)行時(shí)，從鍵盤輸入字符-，則輸出結(jié)果是_。Private Sub Form_Click() op$=InputBox(op=) If op$=+ Then a=a+2 If op$=- Then a=a-2 Print aEnd SubA. -2 B. 0 C. +2 D. +018(B). 下列程序段的運(yùn)行結(jié)果為_。For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print *; Next j PrintNext iA. * B. * C. * D. * * * * * * * * *19(C). 執(zhí)行 PRINT 18/2*3,-32 命令后，輸出結(jié)果為_。A. 3 9 B. 3 -9 C. 27 -9 D. -9 2720(A). 執(zhí)行 PRINT 9.43.7,9.4 MOD 3.7 命令后，輸出結(jié)果為_。 A. 2 1 B. 3 0 C. 2 20 D. 1 221(C). 運(yùn)行以下程序后，輸出結(jié)果為_。x%=1/4y%=11/4PRINT x%;y%ENDA. 0.25 0.75 B. 0 2 C. 0 3 D. 1 322(D). 窗體里有兩個(gè)對象，分別是圖片框Picture1和標(biāo)簽Label1。那么下面關(guān)于Print方法的使用中，錯(cuò)誤的一條是_。A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 14723(B). 下面的_語句可以實(shí)現(xiàn)：先在窗體上輸出大寫字母A，然后在同一行的第10列輸出小寫字母b。A. Print A;Tab(9);b B. Print A;Spc(8);b C. Print A;Space(10);b D. Print A;Tab(8);b24(A). 閱讀下面的程序段：n1=InputBox(請輸入第一個(gè)數(shù)：)n2=InputBox(請輸入第二個(gè)數(shù)：)Print n1+n2當(dāng)輸入分別為111和222時(shí)，程序輸出為_。A. 111222 B. 222 C. 333 D. 程序出錯(cuò)25(B). 語句Print Format (HELLO, ) 的輸出結(jié)果是_。A. HELLO B. hello C. He D. he26(D). 語句 Print (a=2) And (b=-2) 的輸出結(jié)果是_。A. True B. 結(jié)果不確定 C. -1 D. False27(D). 以下程序段運(yùn)行后，輸出字符的排列順序是_。For i=1 To 6 If i Mod 2=0 Then Print #; Else Print *; End IfNext iA. #*#*# B. # C. * D. *#*#*# 28(D). 用MSGBOX函數(shù)顯示的對話框，以下敘述正確的是_。A) 該對話框有一個(gè)“確定”按鈕B) 該對話框有“是”，“否”兩個(gè)按鈕C) 該對話框有“是”，“否”，“取消”三個(gè)按鈕 D) 該對話框通過選擇參數(shù)可以得到以上不同的的按鈕組合 29(B). 關(guān)于MSGBOX函數(shù)，以下敘述正確的是_。A) 該函數(shù)沒有返回值B) 該函數(shù)的返回值反映了用戶在對話框命令按鈕中所作的選擇C) 該函數(shù)的返回值反映了對話框在窗體上的位置 D) 該函數(shù)的返回值反映了對話框的標(biāo)題內(nèi)容 30(D). 設(shè)a=1,b=2,c=3,d=4，則表達(dá)式IIf(ab,a,IIf(c 5 Print x 2 + m / 3End SubA. 25 B. 45 C. 55 D. 6545(A). 以下程序段的運(yùn)行結(jié)果是_。Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print s=; sEnd SubA. 33 B. 34 C. 35 D. 3646(A). 以下程序段的運(yùn)行結(jié)果是_。Private Sub Form_Click() a = 1 b = a Do Until a = 5 X = a * b Print Str(a) & * & Str(b) & =; Str(X); a = a + b b = b + a LoopEnd SubA. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=647(D). 下面分別是求兩個(gè)數(shù)中的大數(shù)的四個(gè)程序段，_不正確。A) Max=IIf(xy,x,y)B) If xy Then Max=x Else Max=yC) Max=x If y=x Then Max=y D) If y=x Then Max=y Max=x48(C). 下列循環(huán)能正常結(jié)束的是_。 A. i=5 B. i=1 DO DO i=i+1 i=i+2 Loop Until i0 Loop Until i=149(B). 4_Private Sub Form_Click() a=InputBox(Enteer a value of a:) Select Case a Case Is2 b=a+1 Case Is3 b=a+2 Case Is5 b=a+3 Case Else b=a+4 End Select Print a;bEnd SubA. 4 4 B. 4 5 C. 4 6 D. 4 750(A). 執(zhí)行如下程序段時(shí)，從鍵盤輸入-5，輸出的結(jié)果是_。x=-5s=Val(InputBox(請輸入s的值:)Select Case s Case Is0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3End SelectPrint x;yA. -5 -2 B. -5 -4 C. -5 -3 D. -5 -551(B). 某林場1995年植樹100畝，以后每年的植樹面積按5%的速度增長，能正確計(jì)算到1998年時(shí)四年的植樹總面積的程序是_。A. s=100:r=0.05 B. s=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r) s=s*(1+r) Next i sum=sum+s Print i Next i End Print sumC. s=100:r=0.05 D. s0=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r)+s s=s0*(1+r) Next i sum=sum+s Print i Next i End Print sum52(C). 以下程序段執(zhí)行后，變量s、x的值分別為_。 Dim s As Integer, x As Integers = 10: x = 1Do While x =i) Then Print Tab(j*3);Format(b(i,j),# # #); Next j Print Next iEnd Sub A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 958(B). 在窗體上畫一個(gè)命令按鈕Command1，然后編寫如下代碼：Private Sub Command1_Click() Dim arr1(10), arr2(10) As Integer n = 3 For i = 1 To 5 arr1(i) = i arr2(n) = 2 * n + i Next i Print arr1(n),arr2(n); End Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。A) 11 3 B) 3 11 C) 13 3 D) 3 1359(D). 在窗體上畫一個(gè)命令按鈕Command1，然后編寫如下代碼：Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 1360(C). 有如下程序：Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i Text1.Text = arr1(2, 3) + arr1(3, 4)End Sub程序運(yùn)行后，單擊窗體，在文本框顯示的值是_。A. 5 B. 7 C. 12 D. 2061(C). 在窗體上添加一個(gè)命令按鈕Command1，然后編寫如下代碼：Option Base 1Private Sub Command1_Click() d = 0: c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print dEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。A. 89 B. 99 C. 23 D. 7762(A). 下列語句聲明的數(shù)組a包含的元素個(gè)數(shù)有_。Dim a(3 ，-2 to 2，5)A. 120 B. 75 C. 60 D. 1363(C). 定義數(shù)組Array(1 to 5,5)后，下列哪一個(gè)數(shù)組元素不存在_。A. Array(1,1) B. Array(1,0) C. Array(0,1) D. Array(5,5)64(B). 在Visual Basic應(yīng)用程序中，以下描述正確的是_。A. 過程的定義可以嵌套，但過程的調(diào)用不能嵌套B. 過程的定義不可以嵌套，但過程的調(diào)用可以嵌套C. 過程的定義和過程的調(diào)用均可以嵌套D. 過程的定義和過程的調(diào)用均不可以嵌套65(D). 假定有如下的Sub過程：Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 swapp a, b Print a, bEnd Sub程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果是_。A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 166(C). 以下程序的運(yùn)行結(jié)果是_。Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1 fun = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Sum = Sum + fun(a) Next i Print SumEnd SubA. 24 B. 12 C. 15 D. 3267(A). Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next iEnd SubPrivate Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a For i = 1 To 4 Print a(i); Next iEnd Sub_A. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 68(B). 假定有以下兩個(gè)過程：Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubSub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd Sub則以下說法中正確的是_。A. 用過程S1可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S2不能實(shí)現(xiàn)B. 用過程S2可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作，S1不能實(shí)現(xiàn)C. 用過程S1和S2都可以實(shí)現(xiàn)交換兩個(gè)變量的值的操作D. 用過程S1和S2都不能實(shí)現(xiàn)交換兩個(gè)變量的值的操作69(B). 在窗體上添加一個(gè)命令按鈕Command1和兩個(gè)名稱分別為Label1和Label2的標(biāo)簽，在通用聲明段聲明變量X,并編寫如下事件過程和SUB過程：Private X As Integer Private Sub Command1_Click() X = 5: y = 3 Call proc(X, y) Label1.Caption = X Label2.Caption = yEnd SubSub proc(ByVal a As Integer, ByVal b As Integer) X = a * a y = b + bEnd Sub程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是_。A) 5和3 B) 25和3 C) 25和6 D) 5和670(A). 下列程序輸出結(jié)果為_。Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i Print GetValue(i)End SubPrivate Function GetValue(ByVal a As Integer) dim S As Integer S = S + a GetValue = SEnd FunctionA. 4 B. 5 C. 10 D. 1171(C). 以下程序的運(yùn)行結(jié)果是_。Dim x As Integer, y As Integer, z As IntegerSub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2End SubPrivate Sub Command1_Click() x = 4 y = 4 Call s2(x, y) Print x + y End SubA) 0 B) 8 C) 12 D) 1472(C). 以下程序的運(yùn)行結(jié)果是_。Private Sub Form_Click() a = 1: b = 1 Print A=; a; B=; b Call mult(a, b) Print A=; a; B=; bEnd SubSub mult(x, y) x = 2 * x y = 3 * yEnd SubA. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1 A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=173(A). 在窗體上添加一個(gè)命令按鈕Command1和3個(gè)名稱分別為Label1，Label2和Label3的標(biāo)簽，然后編寫如下事件過程：Private x As IntegerPrivate Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 程序運(yùn)行后，連續(xù)3次單擊命令按鈕，則3個(gè)標(biāo)簽中顯示的內(nèi)容分別是_。A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 3074(D). 一個(gè)工程中包含兩個(gè)名稱分別為Form1和Form2的窗體，一個(gè)名稱為mdlfunc的標(biāo)準(zhǔn)模塊。假定Form1,Form2和mdlfunc中分別建立了自定義過程，其定義格式為：Form1中定義的過程： Private sub frmFunction1() End SubForm2中定義的過程： Pubilc sub frmFunction2() End SubMd1func中定義的過程： Public sub md1Function () End Sub在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是_。A. 上述三個(gè)過程都可以在工程中的任何窗體或模塊中被調(diào)用B. frmFunction2和md1Function過程能夠在工程中各個(gè)窗體或模塊中被調(diào)用C. 上述三個(gè)過程都只能在各自被定義的模塊中調(diào)用D. 只有md1Function過程能夠被工程中各個(gè)窗體或模塊調(diào)用75(B). 以下程序段的運(yùn)行結(jié)果是_。Function abc(n As Integer) As Integer abc = n * 5 + 10End FunctionPrivate Sub Form_Click() Dim x As Integer x = abc(234) + 109 * abc(10) Print xEnd SubA. 7700 B. 7720 C. 2340 D. 777076(A). 下列程序運(yùn)行后顯示的結(jié)果是_。Public Sub F1(n%,ByVal m%) Private Sub Command1_Click() n=n Mod 10 Dim x%,y% m=m10 x=12:y=34End Sub Call F1(x,y) Print x,y End SubA. 2 34 B. 12 34 C. 2 3 D. 12 377(A). 以下關(guān)于窗體的描述中，錯(cuò)誤的是_。A. 執(zhí)行Unload Form1語句后，窗體Form1消失，但仍在內(nèi)存中 B. 窗體的load事件在加載窗體時(shí)發(fā)生 C. 當(dāng)窗體的Enabled屬性為False時(shí)，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止 D. 窗體的Height、Width屬性用于設(shè)置窗體的高和寬78(B). 若要使某命令按鈕獲得控制焦點(diǎn)，則可使用_方法來設(shè)置。A. Refresh B. SetFocus C. GotFocus D. Value79(B). 設(shè)組合框Combo1中有3個(gè)項(xiàng)目，則能刪除最后一個(gè)項(xiàng)的語句是_。A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3 D. Combo1.RemoveItem Combo1.Listcount80(A). ChinaList1_A. List1.AddItem China, 0 B. List1.AddItem China, 1 C. List1.AddItem 0, China D. List1.AddItem 1, China81(D). 假定時(shí)鐘控件的Interval屬性為1000，Enabled屬性為True，并且有下面的事件過程，計(jì)算機(jī)將發(fā)出_次Beep聲。Private Sub Timer1_Timer() For i = 1 To 5 Beep Next iEnd SubA. 1000次 B. 10000次 C. 5次 D. 以上都不對82(B). Command1Text1_A. Text1= Command1 B. Text1.Text= Command1.CaptionC. Text1.Caption=Command1.Caption D. Text1.Text= CStr(Command1)83(D). 下列控件可以用作其他控件容器的有_。A. 窗體，標(biāo)簽，圖片框 B. 窗體，框架，文本框C. 窗體，圖像，列表框 D. 窗體，框架，圖片框84(A). 改變驅(qū)動(dòng)器列表框的Drive屬性將激活_事件。A) Change B) Scroll C) KeyDown D) KeyUp85(B). 在窗體上添加一個(gè)列表框和一個(gè)文本框，然后編寫如下兩個(gè)事件過程：Private Sub Form_Load() List1.AddItem 357 List1.AddItem 246 List1.AddItem 123 List1.AddItem 456 End SubPrivate Sub List1_DblClick() a = List1.Text Print a + Text1.TextEnd Sub程序運(yùn)行后，在文本框中輸入789，然后雙擊列表框中的456，則輸出結(jié)果為_。A. 1245 B. 456789 C. 789456 D. 086(A). 在窗體上添加一個(gè)文本框，然后編寫如下事件過程：Private Sub Form_Load() Text1.Text = For i = 1 To 10 Sum = Sum + i Next i Text1.Text = SumEnd Sub上述程序的運(yùn)行結(jié)果是_。A. 在文本框Text1中輸出55 B. 在文本框Text1中輸出0C. 出錯(cuò)D. 在文本框Text1中輸出不定值87(C). 在窗體上添加一命令按鈕Command1，并將其Caption屬性設(shè)置為cmdAA、名稱屬性設(shè)置為cmdBB，則關(guān)于該控件的下列_語句是正確的。A. Command1.Left=100 B. cmdAA.Left=100C. cmd