计算机二级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((ad),”A”,”B”)后,x的值为___________。
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 |