1．下面的程序運(yùn)行后，顯示的結(jié)果是________。
x=0
If x Then Print x+1 Else Print x
A）1
B） 0
C ）顯示錯(cuò)誤信息
D）2
2．語(yǔ)句If x = 1 Then y = 1，下面說(shuō)法正確的是______。
A）x = 1 和 y = 1均為賦值語(yǔ)句
B）x = 1 和 y = 1均為關(guān)系表達(dá)式
C）x = 1 為賦值語(yǔ)句，y = 1 為關(guān)系表達(dá)式
D）x = 1 為關(guān)系表達(dá)式，y = 1 為賦值語(yǔ)句
3．設(shè)a=”a”,b=”b”,c=”c”,d=”d”，執(zhí)行語(yǔ)句x=Iif((ad),”A”,”B”)后，x的值為___________。
A)”a”
B)”b”
C)”B”
D)”A”
4．下列程序段中，若要使輸出結(jié)果為輸入的兩個(gè)數(shù)中較大者的平方，空白處應(yīng)填寫__________語(yǔ)句。
x=Val(InputBox(“請(qǐng)輸入 x的值：”))
y=Val(InputBox(“請(qǐng)輸入 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
5．下面的程序段，顯示的結(jié)果是 ______。
Dim x
x= Int(Rn
D）+ 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．下面程序段求兩個(gè)數(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)語(yǔ)句能正常結(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 x = 6
Do
i = i - 2
Loop Until i = 1
8．下面的程序段的運(yùn)行結(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”時(shí)，窗體上顯示的是________。
Private Sub Text1_Change()
Print Text1.Text；
End Sub
A）ABCD
B）A
B
C
D
C）AABABCABCD
D）A
AB
ABC
ABCD
參考答案
1
2
3
4
5
6
7
8
9
10
B
D
D
C
D
D
C
B
C
B
11
12
13
14
15
A