您现在的位置：计算机二级VB数组选择题及参考答案
VB基本结构
1．下面的程序运行后，显示的结果是________。
x=0
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均为关系表达式
C）x = 1 为赋值语句，y = 1 为关系表达式
D）x = 1 为关系表达式，y = 1 为赋值语句
3．设a=”a”,b=”b”,c=”c”,d=”d”，执行语句x=Iif((a
A)”a”
B)”b”
C)”B”
D)”A”
4．下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写__________语句。
x=Val(InputBox(“请输入 x的值：”))
y=Val(InputBox(“请输入 y的值：”))
s=x : ______________
s=s*s
Print s
A)If (x
C)If (x
5．下面的程序段，显示的结果是 ______。
Dim x
x= Int(Rn
D）+ 5
Select Case x
Case 5
Print “优秀”
Case 4
Print “良好”
Case 3
Print “及格”
Case Else
Print “不及格”
End Select
A）不及格
B）良好
C）及格
D）优秀
6．下面程序段求两个数最大数，________不正确。
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．下列循环语句能正常结束的是________。
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．下面的程序段的运行结果是 ________。
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．下列程序当在文本框输入“ABCD”时，窗体上显示的是________。
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 | A | B | C | D |
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
&nb, sp; j = j+1
loop
11．有如下程序：
For i=1 to 3
For j=5 to 1 Step –1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是________。
A）15
B） 16
C）17
D）18
12．在窗体上画一个命令按钮，名称为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
程序运行后，单击命令按钮，其输出结果为________。
A）9
B） 6
C）12
D）15
13.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print _________
Next n
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在程序段的“Print ________”处应填入的内容为________。
A）Left(c,n)
B）Right(c,n)
C）Mid(c,n,1)
D）Mid(c,n,n)
14．执行以下程序段
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
15．在窗体上画一个命令按钮和一个文本框,名称分别为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，则在文本框中显示的内容是________。
A）旅游景点：长城故宫
B）旅游景点：长城颐和园
C）旅游景点：颐和园
D）旅游景点：故宫
参考答案
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 | A | B | C | D |
