VB練習習題(2)

1、一,單項選擇題(1-251題) 1.以下4種描述中,錯誤的是_ D _. A. 常量在程序執(zhí)行期間其值不會發(fā)生改變 B. 根據(jù)數(shù)據(jù)類型不同,常量可分為字符型常量,數(shù)值常量,日期/時間型常量和布爾型常量 C. 符號常量是用一個標識符來代表一個常數(shù),好象是為常數(shù)取一個名字,但仍保持常數(shù)的性質(zhì) D. 符號常量的使用和變量的使用沒有差別 2.下面合法的常量是_ D _. A. 1/2 B. 'abcd' C. *5 D. False Basic中可以用類型說明符來標識變量的類型,其中表示貨幣型的是_ C _. A. % B. # C. D. $ 4.下面_ B_是不合法的整常數(shù). B.

2、%O100 C.&H100 D.&O100 5.以下關鍵字中,不能定義變量的是_A_. A. Declare B. Dim C. Public D. Private 6.表達式16/4-25*8/4 MOD 52的值為_B_. A. 14 B. 4 C. 20 D. 2 7.用十六進制表示Visual Basic的整型常數(shù)時,前面要加上的符號是_A_. A. &H B. &O C. H D. O Basic日期型常量的定界符是_A_. A. # B.'' C. () D. 9.數(shù)學關系式3x<10表示成正確的VB表達式為_B_. A. 3&

3、lt;=x<=x AND x=3 OR x<=x AND 10.下面正確的賦值語句是_C_. A. x+y=30 B. pi*r*r=y C. y=x+30 D. x=3y 11. ,/,Mod,*四個算術運算符中,優(yōu)先級別最低的是_C_. A. B. / C. Mod D. * 12.表達式ASC("F")的類型是_C_. A. 字符表達式 B. 關系表達式 C. 算術表達式 D. 邏輯表達式 13.下面語句中有非法調(diào)用的是_ _. A. x=Sgn(-1) B. x=Fix(-1) C. x=Sqr(-1) D. x$=Chr$(65) 14.表達式23/,

4、23,23 Mod 的運算結果分別是_ _. A. 3,3 B. ,3,5 C. 4,4,5 D. ,4,3 15.如果變量 a=2,b="abc",c="acd",d=5,則表達式 a>c AND b<c 的值為_. A. True B. False C. Yes D. No 16.下面不正確的賦值語句是_ _. A. x=30-y B. y= C. y=x+30 D. y=x3 17.為了給x,y,z三個變量賦初值1,下面正確的賦值語句是_ _. A. x=1:y=1:z=1 B. x=1,y=1,z=1 C. x=y=z=1 D. xy

5、z=1 18.以下4類運算符,優(yōu)先級最低的是_ _. A. 算術運算符 B. 字符運算符 C. 關系運算符 D. 邏輯運算符 19.如果在立即窗口中依次執(zhí)行下列命令: a=8 b=9 Print a>b 則輸出的結果是_ _. A. 1 B. 0 C. False D. True 20.已知a="",則表達式Left(a, 4) + Mid(a, 4, 2)的值是_B_. A. 123456 B. "123445" C. 123445 D. 1279 21.在Visual Basic中,y1+z2=a*Sin(b*x+c)+k表達式的類型是_B_.

6、 A. 算術表達式 B. 關系表達式 C. 邏輯表達式 D. 字符表達式 22.下列表達式的值為真的是_ _. A. "A">"a" B. "9">"a" C. "That">"Thank" D. 12> 23.在下列算術運算符中,運算等級最高的是_A_. A. 取負(-) B. 乘,除(*,/) C. 取模(MOD) D. 加,減(+,-) 24.如果變量a=2,b=3,c=4,d=5,表達式NOT a>b AND NOT d<c的值是_

7、. A. True B. False C. 1 D. 0 25.在一個有(1)邏輯運算,(2)算術運算,(3)關系運算混合在一起的表達式(無括號)中,其運算順序為_C_. A. (1)(2)(3) B. (3)(2)(1) C. (2)(3)(1) D. (2)(1)(3) 26.表達式A%+B&+C!-D#的結果為_D_. A. 整型 B. 長整型 C. 單精度型 D. 雙精度型 27.下列符號中,可以用作VB變量名的是_C_. A. c%ab B. 3sum C. sum3 D. Len 28.在下列表達式中,正確的日期型常量是_D_. A. "12/04/01"

8、; B. 12-04-2001 C. 12/04/01 D. #12/04/01# 29.條件:1<X<=2或10<=X1 AND X=10 AND X1 OR X=10 OR X1 OR X=10 OR X1 AND X=10 AND X=10 or x"b" And 93的值為_ A _. A. True B. False C. 表達式有錯 D. 條件不足 39.在窗體模塊的聲明段中聲明變量時,不能使用的關鍵字是_ D _. A. Private B. Public C. Dim D. Static 40.選拔身高T超過米且體重W小于公斤的人,表示該條

9、件的表達式為_ C A. T= B. T> Or And W41.在過程內(nèi)部定義的局部變量,僅在聲明它的_ B _中有效. A. 方法 B. 過程 C. 屬性 D. 對象 42.假設A="Good Morning.",B="Afternoon,Boys.",下列表達式中結果是"Good Boys."的是_ A_. A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 43.下列關于變體類型

10、的描述,其中正確的是_ C _. A. 變體是一種沒有類型的數(shù)據(jù) B. 變體的空值就表示該變體的值為0 C. 一個變量沒有定義就賦值,該變量即為變體類型 D. 變體是賦給變量某一種類型數(shù)據(jù)后,就不能再賦給它另一類型的數(shù)值 44.下列程序段的運行結果為_B_. For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print "*" Next j Print Next i A. * B. * C. * D. * * * * *  * * * * 45.執(zhí)行 PRINT 18/2*3,-32 命令后,輸出結果為

11、_C_. A. 3 9 B. 3 -9 C. 27 -9 D. -9 27 46.執(zhí)行 PRINT , MOD 命令后,輸出結果為_ A _. A. 2 1 B. 3 0 C. 2 20 D. 1 2 47.運行以下程序段后,輸出結果為_ C _. x%=1/4 y%=11/4 PRINT x%;y% A. B. 0 2 C. 0 3 D. 1 3 48.窗體里有兩個對象,分別是圖片框Picture1和標簽Label1,下面關于Print方法的使用中,錯誤的一條是_ D _. A. 147 B. Print 147 C. 147 D. 147 49.下面的_ B _語句可以實現(xiàn):先在窗體上輸出

12、大寫字母A,然后在同一行的第10列輸出小寫字母b. A. Print "A"Tab(9);"b" B. Print "A"Tab(10);"b" C. Print "A"Space(10);"b" D. Print "A"Tab(8);"b" 50.閱讀下面的程序段: n1=InputBox("請輸入第一個數(shù):") n2=InputBox("請輸入第二個數(shù):") Print n1+n2 當輸入分別

13、為111和222時,程序輸出為_ A _. A. 111222 B. 222 C. 333 D. 程序出錯 51.語句Print Format("HELLO", "<")的輸出結果是_ B _. A. HELLO B. hello C. He D. he 52.設a=2:b=0,則語句 Print (a=2) And (b=-2) 的輸出結果是_ D _. A. True B. 結果不確定 C. -1 D. False 53.以下程序段運行后,輸出字符的排列順序是_ D _. For i=1 To 6 If i Mod 2=0 Then Print

14、 "#" Else Print "*" End If Next i A. #*#*# B. # C. * D. *#*#*# 54.用MsgBox函數(shù)顯示的對話框,以下敘述正確的是_ D _. A. 該對話框有一個"確定"按鈕 B. 該對話框有"是","否"兩個按鈕 C. 該對話框有"是","否","取消"三個按鈕 D. 該對話框通過選擇參數(shù)可以得到以上不同的的按鈕組合 55.與語句Dim abc%作用相同的語句是_ A _. A. D

15、im abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date 56.設a=1,b=2,c=3,d=4,則表達式IIf(a5,-1,0)后,x的值為_ D_. A. 5 B. 6 C. 0 D. -1 71.表達式Int(5*Rnd+1)* Int(5*Rnd-1) 值的范圍是_ D_. A. 0,15 B. -1,15 C. -4,15 D. -5,15 72.可以同時刪除字符串前導和尾部空格的函數(shù)是_C_. A. Ltrim B. Rtrim C. Trim D. Mid 73.當函數(shù)MsgBox返回

16、值為1,對應的符號常量是vbOK,那么此時表示用戶做的操作是_ A_. A. 用戶單擊了對話框中的"確定"按鈕 B. 用戶單擊了對話框中的"取消"按鈕 C. 用戶單擊了對話框中的"是"按鈕 D. 用戶單擊了對話框中的"否"按鈕 74.函數(shù)Int(Rnd*5)+1產(chǎn)生的隨機整數(shù)的范圍是_D_. A. 0,6 B. 1,6 C. 0,5 D. 1,5 75.在VB中,InputBox函數(shù)的默認返回值類型為字符串,用InputBox函數(shù)輸入數(shù)值型數(shù)據(jù)時,下列操作中可以有效防止程序出錯的操作是_A_. A. 在函數(shù)Inpu

17、tBox前面使用Val函數(shù)進行類型轉(zhuǎn)換 B. 在函數(shù)InputBox前面使用Str函數(shù)進行類型轉(zhuǎn)換 C. 在函數(shù)InputBox前面使用Value函數(shù)進行類型轉(zhuǎn)換 D. 在函數(shù)InputBox前面使用String函數(shù)進行類型轉(zhuǎn)換 76.已知a="",則表達式Right(a, 4) + Mid(a, 3, 2)的值是_B_. A. "123445" B. "567834" C. 123445 D. 567834 77.表達式Len("123程序設計ABC")的值是_A_. A. 10 B. 14 C. 20 D. 1

18、7 78.賦值語句g = 123 + Mid("123456", 3, 2)執(zhí)行后,變量g中的值是_D_. A. "12334" B. 123 C. 12334 D. 157 79.如果x是一個正實數(shù),對x的第3位小數(shù)四舍五入的表達式是_B_. A. 0.01 * Int(x + B. * Int(100 * (x + ) C. * Int(100 * (x + ) D. * Int(x + 80.以下程序執(zhí)行后,輸出的結果是_A_. m$="123" n$="456" k$=LCASE$(m$) j$=UCASE

19、$(n$) Print k$ , j$ A. 123 456 B. !#$% C. 49 52 D. 33 36 函數(shù)的返回值的類型是_A_. A. 整型 B. 字符串 C. 邏輯值 D. 日期型 =5,B=8,則(B-A)*Rnd+A的結果是介于_A_之間的數(shù). A. 58 B. 05 C. 35 D. 03 83.使用下列語句:Dim x(1 to 10,3) As Single,則數(shù)組占用內(nèi)存空間的字節(jié)數(shù)是_C_. A. 132 B. 80 C. 160 D. 120 84.用Select Case語句選擇|x|10 D. Is 10 85.若x=1,執(zhí)行語句If x Then x =

20、0 Else x = 1的結果是_D_. A. 實時錯誤 B. 編譯錯誤 C. x=1 D. x=0 86.以下程序代碼能執(zhí)行的是_C_. A. If a=1 Then b=0 Else c=0 End If B. If a=1 Then : B=0: ElseIf C=0 Then : D=0 C. If a = 1 Then b = 0 ElseIf c = 0 Then d = 0 End If D. If a = 1 Then b = 0 Else If c = 0 d = 0  End If 87.下列程序段的循環(huán)結構執(zhí)行后,i的輸出值是_C_. Dim y as

21、 Integer For i = 1 To 10 Step 2 y = y + i Next i Print i A. 25 B. 10 C. 11 D. 因為y初值不知道,所以不確定 88.循環(huán)結構 For i = 1 To 10 Step 的執(zhí)行次數(shù)是_A_. A. 7 B. 8 C. 9 D. 10 89.下列結構中不屬于循環(huán)結構的是_C_. A. For/Next B. While/Wend C. With/End With D. Do/Loop 90.下列結構中不屬于分支結構的是_ C_. A. If/End If B. Select Case/End Select C. With/

22、End With D. If/Else/End If 91.以下程序段的運行結果是_ D_. Private Sub Form_Click() m = 1 n = 1 Do m = m * n n = n + 1 Loop Until n > 4 Print m End Sub A. 25 B. 45 C. 55 D. 24 92.以下程序段的運行結果是_A_. 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

23、* i s = s + f Next i Print "s=" s End Sub A. 33 B. 34 C. 35 D. 36 93.以下程序段的運行結果是_B_. Private Sub Form_Click() Dim I As Integer, X As String, Y As String X = "ABCDEFG" For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I Print Y End Sub A. ABCD B. DCBA C. DEFG D. GFED 94.以下程序段的運行結果是

24、_C_. Private Sub Form_Click() Dim b As Integer, k As Integer b = 1 For k = 1 To 5 b = b * k If b >= 15 Then Exit For End If Next k Print k, b End Sub A. 3 15 B. 2 12 C. 4 24 D. 5 15 95.以下程序段的運行結果是_ A_. Private Sub Form_Click() a = 1 b = a Do Until a >= 5 X = a * b Print Str(a) & "*&qu

25、ot; & Str(b) & "=" Str(X), a = a + b b = b + a Loop End Sub A. 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=6 96.以下程序段的運行結果是_B_. Private Sub Form_Click() x = "abcdef" y = Asc("b") - Asc("a") z = Len(x) Print y,z End Sub A. 1 2 B. 1 6 C. 2 2 D

26、. 2 6 97.下面程序段運行后,顯示的結果是_A_. Dim x If x Then Print x Else Print x+1 A. 1 B. 0 C. -1 D. 顯示出錯信息 98.運行下列程序段,顯示的結果是_A_. x=Int(Rnd)+5 Select Case x Case 5 Print "優(yōu)秀" Case 4 Print "良好" Case 3 Print "通過" Case Else Print "不通過" End Select A. 優(yōu)秀 B. 良好 C. 通過 D. 不通過 

27、99.下列If語句統(tǒng)計滿足性別為男,職稱為副教授以上,年齡小于40歲條件的人數(shù),不正確的語句是_D_. A. If sex=男And age0 Then n=n+1 B. If sex=男And ageC. If sex=男And ageD. If sex=男And agey,x,y) B. If x>y Then Max=x Else Max=y C. Max=x If y>=x Then Max=y D. If y>=x Then Max=y Max=x 101.以下正確的程序段是_ B_. A. For x=1 To Step 10 B. For x=3 To -3 S

28、tep -3 Next x Next x C. For x=1 To 10 D. For x=10 To 1 re: Next x Next y If i=10 Then GoTo re 102.下列循環(huán)能正常結束的是_C_. A. i=5 B. i=1 DO DO i=i+1 i=i+2 Loop Until i10 Loop Until i=1 103.若要退出For循環(huán),可使用的語句為_D_. A. Exit B. Exit Do C. Time D. Exit For 104.當a=1,b=3,c=5,d=4時,執(zhí)行下面一段程序后,x的值為_B_. If aIf cx=1 Else x

29、=2 End If Else If c0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 106.下面程序段的作用是_D_. m=0:n=0 For i=1 To 10 x= Val(InputBox("請輸入x的值:") If x>0 Then m=m+x ElseIf x="副教授" AND A$="女" THEN N=N+1 D. IF A$="女" AND (B

30、$="副教授" OR B$="教授") THEN N=N+1 110.以下程序段執(zhí)行后,變量s,x的值分別為_ C_. Dim s As Integer, x As Integer s = 10: x = 1 Do While x c Then d = d + x(i) c = x(i) Else d = d - c End If Next i Print d End Sub 程序運行后,單擊命令按鈕,輸出結果是_C_. A. 89 B. 99 C. 23 D. 77 129.以下程序段的運行結果是_D_. Private Sub Form_Click(

31、) Dim ary(1 To 4) As Integer Dim i As Integer Dim sum As Integer sum = 1 For i = 1 To 4 ary(i) = i sum = sum + ary(i) Next i Print sum End Sub A. 8 B. 9 C. 10 D. 11 130.下列語句聲明的數(shù)組a包含的元素個數(shù)有_A_. Dim a(3 ,-2 to 2,5) A. 120 B. 75 C. 60 D. 13 131.以下程序輸出的結果是_C_. Option Base 1 Private Sub Command1_Click() D

32、im a%(3,3) For i=1 To 3 For j=1 To 3 a(i,j)=i*j Print a(i,j); Next j Print Next i End Sub 2 3 2 3 2 3 1 1 2 3 1 1 2 3 2 4 6 2 2 2 3 2 3 1 2 3 3 6 9 3 3 3 132.與語句Dim abc%作用相同的語句是_A_. A. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date 133.定義數(shù)組A(1 to 5,5)后,下列哪一個數(shù)組元素不存在_C_

33、A. A(1,1) B. A(1,5) C. A(0,1) D. A(5,5) 134.在Visual Basic應用程序中,以下描述正確的是_B_. A. 過程的定義可以嵌套,但過程的調(diào)用不能嵌套 B. 過程的定義不可以嵌套,但過程的調(diào)用可以嵌套 C. 過程的定義和過程的調(diào)用均可以嵌套 D. 過程的定義和過程的調(diào)用均不可以嵌套 135.在在窗體上添加一個命令按鈕Command1和一個文本框Text1,然后編寫如下事件過程: Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub Privat

34、e Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0 Call p1(x, y, z) = Str(z) End Sub 程序運行后,單擊命令按鈕得到的結果是_B_. A. 0 B. 12 C. Str(z) D. 沒有顯示 136.假定有如下的Sub過程: Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗體上添加一個命令按鈕,然后編寫如下事件過程: Private Sub Co

35、mmand1_Click() Dim a As Single Dim b As Single a = 5: b = 4 swapp a, b Print a, b End Sub 程序運行時,單擊命令按鈕得到的結果是_D_. A. 5 4 B. 1 1 C. 4 D. 1 137.運行下列程序,單擊命令按鈕后的結果是_C_. Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1 fun = a + b + c End Function Private Sub Command1_Click() Dim a As Integer

36、 a = 2 For i = 1 To 3 Sum = Sum + fun(a) Next i Print Sum End Sub A. 24 B. 12 C. 15 D. 32 138.閱讀程序: Sub subp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private 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

37、i End Sub 程序運行時,單擊命令按鈕得到的結果是_A_. A. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 出錯 139.假定有以下函數(shù)過程: Function func(a As Integer, b As Integer) As Integer func = a + b End Function 在窗體上添加一個命令按鈕,然后編寫如下事件過程: Private Sub Command1_Click() p = func(10,20) Print p; End Sub 程序運行時,單擊命令按鈕得到的結果是_C_. A. 10 B. 20 C. 30 D.

38、 40 140.假定有以下兩個過程: Sub s1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End Sub 則以下說法中正確的是_B_. A. 用過程S1可以實現(xiàn)交換兩個變量的值的操作,S2不能實現(xiàn) B. 用過程S2可以實現(xiàn)交換兩個變量的值的操作,S1不能實現(xiàn) C. 用過程S1和S2都可以實現(xiàn)交換兩個變量的值的操作 D. 用過程S1

39、和S2都不能實現(xiàn)交換兩個變量的值的操作 141.假定有以下函數(shù)過程: Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1 End Function 在窗體上添加一個命令按鈕,然后編寫如下事件過程: Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = InputBox("請輸入一個字符串") str2 =

40、Fun(str1) Print str2 End Sub 程序運行后,單擊命令按鈕,在輸入對話框中輸入字符串"abc",則輸出結果為_D_. A. abc B. cba C. ABC D. CBA 142.在窗體上添加一個命令按鈕Command1和兩個名稱分別為Label1和Label2的標簽,在通用聲明段聲明變量x,并編寫如下事件過程和Sub過程: Private x As Integer Private Sub Command1_Click() x = 5: y = 3 Call proc(x, y) = x = y End Sub Sub proc(ByVal a A

41、s Integer, ByVal b As Integer) x = a * a y = b + b End Sub 程序運行后,單擊命令按鈕,則兩個標簽中顯示的內(nèi)容分別是_B_. A. 5和3 B. 25和3 C. 25和6 D. 5和6 143.下列程序輸出結果為_A_. Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i Print GetValue(i) End Sub Private Function GetValue(ByVal a As Integer) dim s As Integer s = s +

42、a GetValue = s End Function A. 4 B. 5 C. 10 D. 11 144.以下程序的運行結果是_C_. Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a = 2 * a b = b + 2 End Sub Private Sub Command1_Click() x = 4 y = 4 Call s2(x, y) Print x + y End Sub A. 0 B. 8 C. 12 D. 14 145.以下程序的運行結果是_A_. P

43、rivate Sub Command1_Click() Dim a(1 To 4) As Integer For i = 1 To 4 a(i) = i + 5 Print a(i); Next i End Sub A. 6 7 8 9 B. 12 14 16 18 C. 2 4 6 8 D. 1 2 3 4 146.以下程序的運行結果是_C_. Private Sub Form_Click() a = 1: b = 1 Print "A=" a; "B=" b Call mult(a, b) Print "A=" a; "

44、B=" b End Sub Sub mult(x, y) x = 2 * x y = 3 * y End Sub A. 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=1 147.在窗體上添加一個命令按鈕Command1和3個名稱分別為Label1,Label2和Label3的標簽,然后編寫如下事件過程: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10

45、z = n + z y = y + z x = x + z = x = y = z End Sub 程序運行后,連續(xù)3次單擊命令按鈕后,3個標簽中顯示的內(nèi)容分別是_C_. A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 148.在窗體上添加一個命令按鈕和一個文本框,然后編寫如下事件過程: Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next i n = 10 = n + arr(5) End Sub 程序運行時,單擊命令按鈕,則文本框中顯

46、示內(nèi)容是_B_. A. 10 B. 15 C. 25 D. 24 149.以下程序段的運行結果是_C_. Private Sub Form_Click() Dim x As Integer x = 3 Call abcd(x) Print x End Sub Public Sub abcd(n As Integer) n = n + 5 End Sub A. 3 B. 5 C. 8 D. 10 150.一個工程中包含兩個名稱分別為Form1和Form2的窗體,一個名稱為mdlfunc的標準模塊.假定Form1,Form2和mdlfunc中分別建立了自定義過程,其定義格式為: Form1中定義的

47、過程: Private sub frmFunction1() End Sub Form2中定義的過程: Public sub frmFunction2() End Sub Md1func中定義的過程: Public sub md1Function () End Sub 在調(diào)用上述過程的程序中,如果不指明窗體或模塊的名稱,則以下敘述中正確的是_D_. A. 上述三個過程都可以在工程中的任何窗體或模塊中被調(diào)用 B. frmFunction2和md1Function過程能夠在工程中各個窗體或模塊中被調(diào)用 C. 上述三個過程都只能在各自被定義的模塊中調(diào)用 D. 只有md1Function過程能夠被工程

48、中各個窗體或模塊調(diào)用 151.以下程序段的運行結果是_B_. Function abc(n As Integer) As Integer abc = n * 5 + 10 End Function Private Sub Form_Click() Dim x As Integer x = abc(2) + 100 * abc(1) Print x End Sub A. 2 B. 1520 C. 1500 D. 700 152.以下程序段的運行結果是_C_. Private Sub Form_Click() Dim x As Integer x = 4 Print x; Call test(x)

49、 Print x End Sub Public Sub test(i As Integer) i = i + 1 End Sub A. 4 6 B. 4 4 C. 4 5 4 153.以下程序段的運行結果是_B_. Private Sub Form_Click() Dim x As Integer x = 4 Print x; Call test(x) Print x End Sub Public Sub test(ByVal i As Integer) i = i + 1 End Sub A. 4 6 B. 4 4 C. 4 5 D. 5 4 154.下面的子過程語句說明合法的是_D_. A

50、. Sub f1(ByVal n%()% B. Sub f1(n%) As Integer C. Function f1%(f1%) D. Function fl(ByVal n%) 155.要想調(diào)用子過程后通過參數(shù)返回兩個結果,下面子過程語句說明合法的是_C_. A. Sub f2(ByVal n%,ByVal m%) B. Sub f1(n%,ByVal m%) C. Sub f1(n%,m%) D. Sub f1(ByVal n%,m%) 156.下列程序運行后顯示的結果是_A_. Public Sub F1(n%,ByVal m%) Private Sub Command1_Click

51、() n=n Mod 10 Dim x%,y% m=m10 x=12:y=34 End Sub Call F1(x,y) Print x,y End Sub A. 2 34 B. 12 34 C. 2 3 D. 12 3 157.在過程定義中用_C_表示形參的傳值. A. Var B. ByRef C. ByVal D. Value 158.窗體的標題欄顯示內(nèi)容由窗體對象的_D_屬性決定. A. BackColor B. BackStyle C. Text D. Caption 159.以下關于窗體的描述中,錯誤的是_A_. A. 執(zhí)行Unload Form1語句后,窗體Form1消失,但仍在

52、內(nèi)存中 B. 窗體的load事件在加載窗體時發(fā)生 C. 當窗體的Enabled屬性為False時,通過鼠標和鍵盤對窗體的操作都被禁止 D. 窗體的Height,Width屬性用于設置窗體的高和寬 160.若要取消窗體的最大化功能,則可設置_C_屬性為False來實現(xiàn). A. ControlBox B. MinButton   C. MaxButton D. Enabled 161.窗體的邊框風格由窗體對象的_B_屬性來設置. A. BackStyle B. BorderStyle C. WindowState D. FillStyle 162.若要以程序代碼方式設

53、置在窗體中顯示文本的字體大小,則可用窗體對象的_C_屬性來實現(xiàn). A. FontName B. Font C. FontSize D. FontBold 163.在代碼編輯窗口內(nèi)將窗體Form1的Caption屬性設置為"時鐘",正確的書寫形式是_B_. A. "時鐘" B. ="時鐘"C. Caption=時鐘 D. ("時鐘") 164.若要設置文本框中文字的顯示顏色,則可用_B_屬性來實現(xiàn). A. BackColor B. ForeColor C .FillColor D. BackStyle 165.若要使

54、窗體啟動時,位于屏幕的中間,則可通過_C_屬性來設置. A. Top B. Left C. StartUpPosition D. WindowState 166.若要將窗體隱藏起來,則實現(xiàn)的方法為_A_. A. Hide B. UnLoad C. Show D. WindowState 167.若要求在文本框中輸入密碼時,文本框中只顯示#號,則應在此文本框的屬性窗口中設置_C_. A. Caption屬性值為# B. Text屬性值為# C. Passwordchar屬性值為# D. Passwordchar屬性值為真 168.若要將某命令按鈕設置為默認命令鈕,則可設置_C_屬性為True來實

55、現(xiàn). A. Value B. Cancel C. Default D. Enable 169.若要設置命令按鈕的工具提示,則可通過_D_屬性來設置. A. Caption B. Text C. Value D. ToolTipText 170.若要使某命令按鈕獲得控制焦點,則可使用_B_方法來設置. A. Refresh B. SetFocus C. GotFocus D. Value 171.標簽的邊框風格,由_A_屬性的設置值決定. A. BorderStyle B. BackStyle C. BackColor D. AutoSize 172.若要使標簽的大小自動與所顯示的文本相適應,則

56、可通過設置_A_屬性的值為True來實現(xiàn). A. AutoSize B. Alignment C. Appearance D. Visible 173.若要使文本框成為只讀文本框,可通過設置_C_屬性值為True來實現(xiàn). A. ReadOnly B. Lock C. Locked D. Enabled 174.若要設置定時器控件定時觸發(fā)Timer事件的時間間隔,可通過_A_屬性來設置. A. Interval B. Value C. Enabled D. Text 175.若要獲知列表框中列表項的總項數(shù),可通過訪問_C_屬性來實現(xiàn). A. List B. ListIndex C. ListCo

57、unt D. Text 176.若要向列表框添加列表項,可使用的方法是_D_. A. Add B. Remove C. Clear D. AddItem 177.設組合框Combo1中有3個項目,則能刪除最后一項的語句是_B_. A. Text B. 2 C. 3 D. 178.下列控件中,沒有Caption屬性的是_B_. A. 框架 B. 列表框 C. 復選框 D. 單選按鈕 179.復選框的Value屬性值為1時,表示_B_. A. 復選框未被選中 B. 復選框被選中 C. 復選框內(nèi)有灰色的勾 D. 復選框操作錯誤 180.將數(shù)據(jù)項"China"添加到列表框List1

58、中成為第一項,應使用語句_A_. A. "China", 0 B. "China", 1 C. 0, "China" D. 1, "China" 181.假定時鐘控件的Interval屬性為1000,Enabled屬性為True,并且有下面的事件過程,計算機將發(fā)出_D_次beep聲. Private Sub Timer1_Timer() For i = 1 To 5 beep Next i End Sub A. 100次 B. 1000次 C. 5次 D. 以上都不對 182.如果每秒產(chǎn)生一個計時器的Timer事件,那么時鐘控件的Interval屬性應設為_C_. A. 5 B. 50 C. 500 D. 5000 183.將命令按鈕Command1的標題作為文本框Text1的文本內(nèi)容,應執(zhí)行語句_B_. A. Text1= Command1 B. = C. = D. = CStr(Command1) 184.表示滾動條控件取值范圍最大值的屬性是_A_. A. Max B. LargeChange C. Value D. Max-Min 185.程序運行后,在窗體上單擊鼠標,此時窗體不會接受到的事件是_C_. A.