21.在模塊的聲明部分使用“Option Base 1”語句,然后定義二維數(shù)組A(2 to 5,5),則該數(shù)組的元素個數(shù)為( )。答案:A
A)20
B)24
C)25
D)36
22.VBA中不能進(jìn)行錯誤處理的語句結(jié)構(gòu)是( )。答案:C
A)On Error Then標(biāo)號
B)On Error Goto標(biāo)號
C)On Error Resume Next
D)On Error Goto 0
23.表達(dá)式Val("12 3E2CD")的值是( )。答案:A
A)123
B)12.3
C)0
D)123E2CD
24.設(shè)有如下過程:
x=1
Do
x=x+2
Loop Until _________
運行程序,要求循環(huán)體執(zhí)行3次后結(jié)束循環(huán),空白處應(yīng)填入的語句是( )。答案:C
A)x<=7
B)x<7
C)x>=7
D)x>7
25.窗體中有命令按鈕Command1,事件過程如下:
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Command1_Click()
Dim y As Integer
Static x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub
運行程序,單擊命令按鈕,則立即窗口中顯示的內(nèi)容是( )。答案:D
A)10 5
B)10 40
C)20 5
D)20 40
26.兩個日期變量 D1=#2003-5-28 20:8:36# ,D2=#2004-2-29 10:40:11#。下列函數(shù)表達(dá)式中可以返回-9,即間隔9月的是( )。答案:B
A)DateAdd("m",-9,D1)
B)DateDiff("m",D2,D1)
C)DateDiff("m",D1,D2)
D)DateSerial(2004,2,29)
27.由“For i=1 To 9 Step -3”決定的循環(huán)結(jié)構(gòu),其循環(huán)體將被執(zhí)行( )。答案:A
A)0次
B)1次
C)4次
D)5次
28.On Error Goto 0語句的含義是( )。答案:B
A)忽略錯誤并執(zhí)行下一條語句
B)取消錯誤處理
C)遇到錯誤執(zhí)行定義的錯誤
D)退出系統(tǒng)
29.在窗體中有一個命令按鈕Command1,編寫事件代碼如下:
Private Sub Command1_Click()
Dim s As Integer
s = P(1)+P(2)+P(3)+P(4)
debug.Print s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum = 0
For i = 1 To N
Sum = Sum + i
Next i
P = Sum
End Function
打開窗體運行后,單擊命令按鈕,輸出結(jié)果是( )。答案:B
A)15
B)20
C)25
D)35
30.表達(dá)式“B=INT(A+0.5)”的功能是( )。答案:B
A)將變量A保留小數(shù)點后1位
B)將變量A四舍五入取整
C)將變量A保留小數(shù)點后5位
D)舍去變量A的小數(shù)部分
編輯推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |