一、 單選題
1. 下面的程序運行后，顯示的結(jié)果是________。
Dim x%
If x Then Print x+1 Else Print x
A） 1
B） 0
C） 顯示錯誤信息
D） 2
2. 語句If x = 1 Then y = 1, 下面說法正確的是______。
A） x = 1 和 y = 1均為賦值語句
B） x = 1 和 y = 1均為關(guān)系表達(dá)式
C） x = 1 為賦值語句，y = 1 為關(guān)系表達(dá)式
D） x = 1 為關(guān)系表達(dá)式，y = 1 為賦值語句
3. 下面分段函數(shù) , 下面不正確的程序段是______。
A） If x >= 1 then f=sqr(x+1)
f=x*x+3
B） If x >= 1 then f=sqr(x+1)
If x < 1 then f=x*x +3
C） If x >= 1 then f=sqr(x+1) _
Else f = x*x +3
D） If x < 1 then f=x*x +3 _
Else f=sqr(x+1)
4. 計算函數(shù)的值。 , 下面程序段中正確的是______。
A）If x < 0 then y = 0
If x < 1 then y = 1
If x < 2 then y = 2
If x >=2 then y = 3
B）If x >= 2 then y = 3
If x >= 1 then y = 2
If x > 0 then y = 1
If x < 0 then y = 0
C）If x < 0 then
y = 0
ElseIf x > 0 then
y = 1
ElseIf x > 1 then
y = 2
Else
y = 3
End If
D）If x >= 2 then
y = 3
ElseIf x >= 1 then
y = 2
ElseIf x >= 0 then
y = 1
Else
y = 0
End If
5. 下面的程序段，顯示的結(jié)果是 ______。
Dim x
x= Int(RnD） + 5
Select Case x
Case 5
Print “優(yōu)秀”
Case 4
Print “良好”
Case 3
Print “及格”
Case Else
Print “不及格”
End Select
A） 不及格
B） 良好
C） 及格
D） 優(yōu)秀
6. 下面程序段求兩個數(shù)中較大數(shù)，________不正確。
A） Max = IIF(x > y, x, y)
B） If x > y Then Max = x Else Max = y
C） Max = x
If y >= x Max = y
D） If y >= x Max = y
Max = x
7. 下列循環(huán)語句能正常結(jié)束的是________。
A） i = 5
Do
i = i + 1
Loop Until i < 0
B） i = 1
Do
i = i + 2
Loop Until i = 10
C） i = 10
Do
i = i - 1
Loop Until i < 0
D） i = 6
Do
i = i - 2
Loop Until i = 1
8. 下面的程序段的運行結(jié)果是 ________。
For i = 3 To 1 Step -1
Print Spc(5-i)
For j = 1 To 2 * i-1
Print “$”;
Next j
Next i
A） $
$$$
$$$$$
B）$$$$$
$$$
$
C）$$$$$
$$$
$
D）$$$$$
$$$
$
9. 下列程序當(dāng)在文本框輸入“ABCD”時，窗體上顯示的是________ 。
Private Sub Text1_Change()
Print Text1.Text；
End Sub
A） ABCD
B） A
B
C
D
C） AABABCABCD
D） A
AB
ABC
ABCD
10. 下列哪個程序段不能正確顯示1！、2！、3！、4！的值________ 。
A）for i = 1 to 4
n = 1
for j = 1 to i
n = n*j
next j
print n
next i
B）for i = 1 to 4
for j = 1 to i
n = 1
n = n*j
next j
print n
next i
C）n = 1
for j = 1 to 4
n = n*j
print n
next j
D）n = 1
j = 1
do while j <= 4
n = n*j
print n
j = j+1
loop
11. 下列程序段的執(zhí)行結(jié)果為______。
A=0:B=1
A=A+B:B=B+A:Print A;B
A=A+B:B=B+A:Print A;B
A）1 2
3 5
B）1 1
3 5
C）1 3
3 4
D）1 2
3 4
12. 變量未賦值時，數(shù)值型變量的值為______。
A）0
B）空串""
C）Null
D）沒任何值
13. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是______。
A）15
B）18
C）21
D）24
14. 窗體中存在命令按鈕Command1，其Click事件代碼如下：
Private Sub Command1_Click()
X = 2
Y = 1
If X * Y < 1 Then Y = Y - 1 Else Y = -1
Print Y - X > 0
End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果為______。
A）True
B）False
C）-1
D）1
15. 設(shè)a=5，b=6，c=7，d=8，執(zhí)行下列語句后，x的值為______。
x=IIf((a>B） And (c>D） , 10, 20)
A）10
B）20
C）True
D）False
16. 執(zhí)行以下程序段
a$= "abbacddcba"
For 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 i
Print z
輸出結(jié)果為______。
A）ABA
B）BBABBA
C）ABBABA
D）AABAAB
17. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
c=1234
c1=Trim(Str(C）)
For i=1 To 4
Print ____
Next
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：
1
12
123
1234
則在下劃線處應(yīng)填入的內(nèi)容為______。
A）Right(c1,i)
B）Left(c1,i)
C）Mid(c1,i,1)
D）Mid(c1,i,i)
18. InputBox函數(shù)返回值的類型為______。
A）數(shù)值
B）字符串
C）變體
D）數(shù)值或字符串（視輸入的數(shù)據(jù)而定）
19．MsgBox函數(shù)返回值的類型為______。
A）整型數(shù)值
B）字符串
C）變體
D）數(shù)值或字符串（視輸入的數(shù)據(jù)而定）
20. 窗體上畫一個命令按鈕和一個文本框，其名稱分別為command1 和text1，把文本框的text屬性設(shè)置為空白，然后編寫如下事件過程：
Private Sub Command1_Click()
a=InputBox("Enter an Integer")
b=InputBox("Enter an Integer")
Text1.Text=b+a
End Sub
程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入8和10，則文本框中顯示的內(nèi)容是______。
A）108
B）18
C）810
D）出錯
21. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
s=s+a
a=a-1
Loop While a<=0
Print s;a
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是______。
A）7 9
B）34 0
C）9 7
D）死循環(huán)
22. 下面程序段的執(zhí)行結(jié)果為______。
I=4
A=5
Do
I=I+1
A=A+3
Loop Until I>=9
Print"I=";I
Print"A=";A
A）I=9 B）I=10 C）I=10 D）I=9
A=20 A=20 A=23 A=23
23. 以下能夠正確計算n!的程序是______。
A）Private Sub Command1_Click()
N = 5 : X = 1
Do
x = x * i
i = i + 1
Loop While i < n
Print x
End Sub
B）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i < n
Print x
End Sub
C）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i <= n
Print x
End Sub
D）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i > n
Print x
End Sub
24. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim num As Integer
num=1
Do Until num>6
Print num;
num=num+2.4
Loop
End Sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是______。
A）1 3.4 5.8
B）1 3 5
C）1 4 7
D）無數(shù)據(jù)輸出
25. 設(shè)有如下程序段
x=2
For i=1 to 10 step 2
x=x+i
Next
運行以上程序后，X的值是______。
A）36
B）27
C）38
D）57
26. 在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序運行后，單擊命令按鈕，在文本框中顯示的值是______。
A）2
B）3
C）4
D）5
27. 下列程序段的執(zhí)行結(jié)果為______。
X=6
For K=1 To 10 Step -2
X=X+K
Next K
Print K;X
A）-1 6
B）-1 16
C）1 6
D）11 31
28. 執(zhí)行以下程序段
Dim x As Integer, i As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 5
Next i
后，x的值為______。
A）16
B）17
C）18
D）19
29. 在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程：
Private Sub Command1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j>Sqr(i) Then Print i
Next i
End Sub
該事件過程的功能是______。
A）輸出n以內(nèi)的奇數(shù)
B）輸出n以內(nèi)的偶數(shù)
C）輸出n以內(nèi)的素數(shù)
D）輸出n以內(nèi)能被j整除的數(shù)
30. 新建立窗體中畫一個命令按鈕，其中事件代碼如下：
For x=4 To 1 Step -1
For y=1 To 5-x
Print Tab(y+5);"*";
Next y
Next x
窗體運行后，單擊命令按鈕，輸出結(jié)果是______。
A）****
***
**
*
B）*
**
***
****
C）*****
****
***
**
D）*
***
*****
31. 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Commandl_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序運行后，單擊命令按鈕，輸出結(jié)果是______。
A）7
B）15
C）157
D）538
32. 在窗體上有一個命令按鈕，并有如下代碼，程序執(zhí)行后，單擊命令按鈕輸出結(jié)果為______。
Private Sub Command1_Click()
K=0
For J=1 To 2
For I=1 To 3
K=I+1
Next I
For I=1 To 7
K=K+1
Next I
Next J
Print K
End Sub
A）10
B）6
C）11
D）16
33. 在窗體上畫一個命令按鈕和兩個標(biāo)簽，其名稱分別為Command1）Label1和Label2，然后編寫如下事件過程：
Private Sub Command1_Click()
a=0
For i=1 To 10
a=a+1
b=0
For j=1 To 10
a=a+1
b=b+2
Next j
Next i
Label1.Caption=Str(A）
Label2.Caption=Str(B）
End Sub
程序運行后，單擊命令按鈕，在標(biāo)簽Label1和Label2中顯示的內(nèi)容分別是______。
A）10和20
B）20和110
C）200和110
D）110和20
34. 有一個分段函數(shù)，當(dāng)X<0時，Y=-1；當(dāng)X=0時，Y=0；當(dāng)X>0時，Y=1。該分段函數(shù)在程序段中可表達(dá)為______。
A）If X<0 Then Y=-1
If X=0 Then Y=0
Else Y=1
B）If X>0 Then Y=1
If X=0 Then Y=0
Else Y=-1
C）If X<0 Then Y=-1
ElseIf X=0 Then Y=0
Else Y=1
End If
D）If X<0 Then
Y=-1
ElseIf X=0 Then
Y=0
Else
Y=1
End if
35. 下列語句正確的是______。
A）If X<3*Y , X>Y Then Y=X3
B）If X<3*Y And X>Y Then Y=X3
C）If X<3*Y : X>Y Then Y=X3
D）If X<3*Y And X>Y Then Y=X* *3
36. 下列程序的執(zhí)行結(jié)果為______。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A）I=1
B）I=2
C）I=3
D）I=4
37. 設(shè)a="a"，b="b"，c="c"，d="d"，執(zhí)行語句x = IIf((a < B） Or (c > D）, "A", "B")后，x的值為______。
A）"a"
B）"b"
C）"B"
D）"A"
38. 在窗體上畫一個命令按鈕，名稱為Command1。然后編寫如下程序：
Private Sub Command1_Click()
for I=1 To 4
For J=0 To I
Print Chr$(65+I);
Next J
Next I
End Sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容為是______。
A）BB
CCC
DDDD
EEEEE
B）A
BB
CCC
DDDD
C）B
CC
DDD
EEEE
D）AA
BBB
CCCC
DDDDD
39. 有如下程序：
Private Sub Form_Click()
xcase=1
t=InputBox(“請輸入一個數(shù)：”)
Select Case t
Case Is>0
Y=xcase+1
Case Is=0
Y=xcase+2
Case Else
Y=xcase+3
End Select
Print xcase;Y
End Sub
若輸入-1，輸出結(jié)果為：
A）1 4
B）1 3
C）1 2
D）1 1
40. 下列程序段中，若要使輸出結(jié)果為輸入的兩個數(shù)中較大者的平方，空白處應(yīng)填寫______語句。
x=Val(InputBox(“請輸入 x的值：”))
y=Val(InputBox(“請輸入 y的值：”))
s=x : ______________
s=s*s
Print s
A）If (x B）If x>y Then s=y
C）If (x D）If x>y s=y
41. 設(shè)X初值為0，則下列循環(huán)語句執(zhí)行后，X的值等于_______。
For i=1 To 10 Step 2
X=X+I
Next i
A）25
B）36
C）24
D）27
42. 執(zhí)行以下程序段時，______。
x=1
Do While x<>0
x=x*x
print x;
Loop
A）循環(huán)體將執(zhí)行1次
B）循環(huán)體將執(zhí)行0次
C）循環(huán)體將執(zhí)行無限次
D）系統(tǒng)將提示語法錯誤
43. 設(shè)窗體中包含1個命令按鈕Command1,1個標(biāo)簽Label1;并有以下的事件過程。程序運行后，單擊Command1按鈕，標(biāo)簽中顯示的內(nèi)容是_______。
Private Sub Command1_Click()
Dim I As Integer,n As Integer
I=1: n=0
Do While I<10
n=n+I
I=I*(I+1)
Loop
Label1=I & ”-” & n
End Sub
A）6-3
B）24-9
C）42-9
D）6-9
44. 有如下程序：
Do
循環(huán)體
Loop While <條件>
則以下敘述中錯誤的是_______。
A）若“條件”是一個為0 的常數(shù)，則一次也不執(zhí)行循環(huán)體
B）“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)
C）循環(huán)體中可以使用Exit Do語句
D）如果“條件”總是為True，則不停地執(zhí)行循環(huán)體
45. 有如下程序：
For i=1 to 3
For j=5 to 1 Step –1
Print i*j
Next j
Next i
則語句Print i*j的執(zhí)行次數(shù)是_______。
A）15
B）16
C）17
D）18
46. 在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序運行后，單擊命令按鈕，其輸出結(jié)果為_______。
A）9
B）6
C）12
D）15
47. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print _________
Next
End Sub
程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：
D
CD
BCD
ABCD
則在________處應(yīng)填入的內(nèi)容為_______。
A）Left(c,n)
B）Right(c,n)
C）Mid(c,n,1)
D）Mid(c,n,n)
48. 如果A為整數(shù)，且|A|>=100，則打印“OK”，否則打印“Error”，表示這個條件語句的單行語句是______。
A） If Int(A）=A And Sqr(A）>=100 Then Print "Ok" Else Print "Error"
B） If Int(A）=A And (A>=100,A<=-100) Then Print "Ok" Else Print "Error"
C） If Fix(A）=A And Abs(A）>=100 Then Print "Ok" Else Print "Error"
D） If Fix(A）=A And A>=100 And A<=-100 Then Print "Ok" Else Print "Error"
49. 在窗體上畫一個命令按鈕和一個文本框,名稱分別為Command1和Text1,然后編寫如下程序:
Private Sub Command1_Click()
a = InputBox("請輸入日期(1~31)")
t = "旅游景點:" _
& IIf(a > 0 And a <= 10, "長城", "") _
& IIf(a > 10 And a <= 20, "故宮", "") _
& IIf(a > 20 And a <= 30, "頤和園", "")
Text1.Text = t
End Sub
程序運行后,如果從鍵盤輸入16,則在文本框中顯示的內(nèi)容是_______。
A）旅游景點：長城故宮
B）旅游景點：長城頤和園
C）旅游景點：頤和園
D）旅游景點：故宮
50. 下列程序段顯示______個“*”。
For i=1 to 5
For j=2 to 5
Print ”*”
Next j
Next i
A）25
B）10
C）20
D）15在
51. 要使下面程序段能正確顯示1！、2！、3！、4！的值，第一行橫線處應(yīng)填寫______。
____________
For j=1 to 4
n=n*j
Print n
Next j
A）n=0
B）n=1
C）j =1
D）j=0
52．在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
a = "ABBACKDIEKEI"
For I = 9 To 2 Step -3
x = Mid(a, I, I)
y = Left(a, I)
z = Right(a, I)
z = x & y & z
Next I
Print z
End Sub
程序運行后，如果單擊命令按鈕，則輸出結(jié)果是______。
A）BACABBKEI
B）EKEIABBACKDIEAACKEIEKEI
C）DEIEKEIABBACKDIEKEI
D）ACKABBKEI
53．在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
M1=1
M2=2
Do While M2<>5
M1=M1*M2
M2=M2+1
Loop
Print "M1=";M1,"M2=";M2
End Sub
程序運行后，如果單擊命令按鈕，輸出結(jié)果是______。
A）M1= 24 M2= 5
B）M1= 1 M2= 2
C）M1= 24
M2= 5
D）M1= 1
M2= 2
54．閱讀下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
執(zhí)行上面的三重循環(huán)后，a 的值為______ 。
A） 3
B） 9
C） 14
D） 21
55. 在窗體上畫兩個文本框（其Name屬性分別為Text1和Text2）和一個命令按鈕（其Name屬性為Commandl），然后編寫如下事件過程：
Private Sub Commandl_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為______。
A）1和0
B）2和72
C）3和50
D）4168
56. 在窗體上畫兩個名稱分別為Text1、Text2的文本框和一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
&a, mp;n, bsp; Text2.Text=Str(n)
End Sub
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別是______。
A）15和1
B）27和3
C）195和3
D）600和4
57. 下列語句組中,不能循環(huán)100次的有 ______。
A）N=0
DO
N=N+1
LOOP UNTIL N>=100
B）N=0
DO
N=N+1
LOOP WHILE N<100
C）N=0
DO
N=N+1
LOOP UNTIL N<100
D）N=0
DO WHILE N<100
N=N+1
LOOP
58. 假定有如下事件過程：
Private Sub Form_Click()
Dim x As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x, n
End Sub
程序運行后，單擊窗體，輸出結(jié)果是______。
A）81 4
B）56 3
C）28 1
D）243 5
59. 新建窗體上新建立一個命令按鈕，其中有如下事件代碼：
Private Sub Command1_Click()
I = 0
For G = 10 To 19 Step 3
I = I + 1
Next G
Print I
End Sub
窗體運行后，單擊命令按鈕，輸出結(jié)果為______。
A）3
B）4
C）5
D）6
60. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x = InputBox("input")
Select Case x
Case 1, 3
Print "分支 1"
Case Is > 4
Print "分支 2"
Case Else
Print "Else 分支"
End Select
End Sub
程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是______。
A）分支 1
B）分支 2
C）Else 分支
D）程序出錯
61. 以下Case語句中錯誤的是______。
A）Case 0 To 10
B）Case Is>10
C）Case Is>10 And Is<50
D）Case 3,5,Is>10
62. 在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序運行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的內(nèi)容是______。
A） 3
B） 4
C） 5
D） 6
63. 下列程序代碼，執(zhí)行后單擊鼠標(biāo)結(jié)果為______。
Private Sub Form_Click()
A = 0: B = 0
For I = -1 To -2 Step -1
For J = 1 To 2
B = B + 1
Next J
A = A + 1
Next I
Print A; B
End Sub
A）2 4
B）-2 2
C）4 2
D）2 3
64. Private Sub Form_Click()
Dim Check,Counter
Check=0
Do
Do While Counter<20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter, Check
End Sub
程序運行后，單擊窗體，輸出結(jié)果為______。
A）15 0
B）20 -1
C）10 True
D）10 False
65. 設(shè)有如下程序：
Private Sub Command1_Click()
Dim sum As Double,X As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
該程序通過For循環(huán)計算一個表達(dá)式的值，這個表達(dá)式是______。
A）1+1/2+2/3+3/4+4/5
B）1+1/2+2/3+3/4
C）1/2+2/3+3/4+4/5
D）1+1/2+1/3+1/4+1/5
66. 有如下程序：
Private Sub Form_Click()
Dim i As Integer, Sum As Integer
Sum=0
For i=2 to 10
If i Mod 2<>0 And i Mod 3=0 Then
Sum=Sum+i
End If
Next i
Print Sum
End Sub
程序運行后，單擊窗體，輸出結(jié)果為______。
A）12
B）30
C）24
D）18
67. 設(shè)有如下程序
Private Sub Command1_Click()
Dim c As Integer,d As Integer
c=4
d=InputBox("請輸入一個整數(shù)")
Do While d>0
If d>c Then
c=c+1
End If
d=InputBox("請輸入一個整數(shù)")
Loop
Print c+d
End Sub
程序運行后，單擊命令按鈕，如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0，則輸出結(jié)果是______。
A）12
B）11
C）10
D）9
68. 下列程序段的執(zhí)行結(jié)果為______。
N=10
For K=N To 1 Step-1
X=Sqr(K)
X=X-2
Next K
Print X-2
A）-3
B）-1
C）1
D）1.16227765
69. 在窗體上畫一個名稱為Command1的命令按鈕，一個名稱為Label1的標(biāo)簽，然后編寫如下事件過程：
Private Sub Command1_Click()
s = 0
For i = 1 To 15
x = 2 * i -1
If x Mod 3 = 0 Then s =s + 1
Next i
Label1.Caption = s
End Sub
程序運行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容是______。
A）1
B）5
C）27
D）45
70. 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a=InputBox("請輸入a的值")
a=Val(A）
b=InputBox("請輸入b的值")
b=Val(B）
x=InputBox("請輸入x的值")
x=Val(x)
a=a+b+x
LOOP
Print a
End Sub
程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-1，輸出結(jié)果為______。
A）2
B）3
C）14
D）15
71．語句：If 表達(dá)式 Then……中的表達(dá)式不可以是______表達(dá)式。
A）算術(shù)
B）邏輯
C）關(guān)系
D）字符
72．下列語句執(zhí)行后，變量w的值是______。
W=Choose(weekday(”2009,4,1”), ”Red”, ”Green”, ”Blue”, ”Yellow”)
A）Null
B）Red
C）Blue
D）Yellow
73．下面if語句統(tǒng)計滿足性別為男、職務(wù)為副教授以上、年齡小于40歲條件的人數(shù)，不正確的語句是______。
A）if sex=”男” And age<40 And InStr(duty, ”教授”)>0 Then n=n+1
B）if sex=”男” And age<40 And (duty=”教授” Or duty=”副教授”) Then n=n+1
C）if sex=”男” And age<40 And Right(duty, 2)=”教授” Then n=n+1
D）if sex=”男” And age<40 And duty=”教授” And duty=”副教授” Then n=n+1
74. 關(guān)于Do…Loop循環(huán)結(jié)構(gòu)執(zhí)行循環(huán)體次數(shù)的描述正確的是_______。
A）Do While…Loop循環(huán)和Do…Loop Until循環(huán)至少都執(zhí)行一次
B）Do While…Loop循環(huán)和Do…Loop Until循環(huán)可能都不執(zhí)行
C）Do While…Loop循環(huán)至少執(zhí)行一次，Do…Loop Until循環(huán)可能不執(zhí)行
D）Do While…Loop循環(huán)可能不執(zhí)行，Do…Loop Until循環(huán)至少執(zhí)行一次
75.下面的程序段的運行結(jié)果是_______。
Private Sub Command1_Click
For i=1 To 5
n=0
For j=i To 5
n=n+1
Next j
Next i
Print n
End Sub
A）1
B）5
C）10
D）15
二、 填空題
1. 下面程序的輸出結(jié)果是___【1】____ 。
x = Int(RnD） +3
If x^2 > 8 Then y = x^2 + 1
If x^2 = 9 Then y = x^2 - 2
If x^2 < 8 Then y = x^3
2. 下面程序的功能是___【2】____。
Dim n%，m%
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) Then
Select Case Text1.Text Mod 2
Case 0
n = n + Text1.Text
Case 1
m = m + Text1.Text
End Select
End If
Text1.Text = ""
Text1.SetFocus
End If
End Sub
3．下面的程序是檢查輸入的算術(shù)表達(dá)式中圓括號是否配對。并顯示相應(yīng)的結(jié)果。本程序在文本框輸入表達(dá)式，邊輸入邊統(tǒng)計，以輸入回車作為表達(dá)式輸入結(jié)束。
Dim Count1%
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "(" Then
【3】
ElseIf Chr(KeyAscii) = ")" Then
Count1 = Count1 - 1
End If
If KeyAscii = 13 Then
If Count1 = 0 Then
Print "左右括號配對"
ElseIf 【4】 Then
Print "左括號多于右括號"; Count1; "個"
Else
Print "右括號多于左括號"; -Count1; "個"
End If
End If
End Sub
4. 要使下列語句執(zhí)行20次，循環(huán)變量的初值應(yīng)當(dāng)是___【5】_____。
For k = ________ To -5 Step -2
5. 下面程序段顯示 ___【6】____ 個“*”
For i = 1 to 5
For j=2 to i
Print “*”
Next j
Next I
6. 下面程序第40句共執(zhí)行了 ____【7】___ 次。第41句共執(zhí)行了 ___【8】____ 次。
30 For j = 1 to 12 step 3
40 For k = 6 to 2 step -2
41 Print j，k
42 Next k
42 Next j
7. 下面程序的運行后輸出結(jié)果是___【9】_____。
Private Sub Command_Click()
For i = 0 to 3
Print Tab(5*i+1)；“2”+ i ；“2”& i；
Next i
End Sub
8. 輸入任意長度的字符串，要求將字符順序倒置，例如“ABCDEFG”變換為“GFEDCBA”。
Private Sub Command1_Click()
Dim a$, i%, c$
a = InputBox("輸入字符串")
n = Len(A）
For i = 1 To Int(n / 2)
c = Mid(a, i, 1)
_________【10】_______
_________【11】_______
Next i
Print a
End Sub
9. 下面程序運行后輸出的結(jié)果是___【12】_____。
Private Sub Command_Click()
a$ = ”*” ：b$ = ”$”
For i = 1 to 4
If i Mod 2 = 0 Then
x$ = String(Len(a$) + i , b$)
Else
x$ = String(Len(a$) + i , a$)
End if
Print x$;
End Sub
10.執(zhí)行下面的程序，輸出的結(jié)果是___【13】_____。
Option Explicit
Private Sub Form_Click()
Dim I as integer, j as Integer
j = 10
For i = 1 to j step 2
i = i + 1
j = j - i
Next i
Print i ； j
End Sub
11．以下程序循環(huán)的執(zhí)行次數(shù)是_【14】___。
a=0
Do While a<=10
a=a+2
Loop
12．窗體上有一個命令按鈕和一個文本框，命令按鈕事件代碼如下：
Private Sub Command1_Click()
X = 1
y = 1
Text1.Text = ""
For I = 1 To 3
F = X + y
X = y
y = F
Text1.Text = Text1.Text + Str(y)
Next I
End Sub
該程序運行后，文本框的內(nèi)容是_【15】___。
13．執(zhí)行下面的程序段后，變量S的值為__【16】__。
S = 5
For i = 2.6 To 4.9 Step 0.6
S = S + 1
Next i
14．
下面程序段的輸出結(jié)果為。
*
**
***
****
*****
******
試將程序段填寫完整。
Private Sub Command1_Click()
__【17】__
__【18】__
Print __【19】____;
Next b
Next a
End Sub
15．執(zhí)行下列程序段后，達(dá)到__【20】__的目的。
A=100
B=50
A=A+B
B=A-B
A=A-B
參考答案
一、單選題
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
B D A D D D C B C B A A C B B
16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
B B B A A C A C B B B C C C B
31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
B C D D B A D A A C A C C A A
46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
A B C D C B A A C B B C A B C
61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
C D A D C A D A B A D D D D A
二、填空題
【1】 7 【2】 分別統(tǒng)計輸入若干奇數(shù)、偶數(shù)的和
【3】 Count1 = Count1 + 1 【4】 Count1 > 0
【5】 33 【6】 10
【7】 4 【8】 12
【9】 2 20 3 21 4 22 5 23 【10】 Mid(a,i,1)=Mid(a,n-i+1, 1)
【11】 Mid(a, n - i + 1, 1) = c 【12】 **$$$****$$$$$
【13】 13 -16 【14】 6
【15】 2 3 5 【16】 9
【17】 For a = 1 To 6 【18】 For b = 1 To a
【19】 "*" 【20】 兩個變量A與B的值互換