VB控制结构
一、 单选题
1. 下面的程序运行后,显示的结果是________。
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均为关系表达式
C) x = 1 为赋值语句,y = 1 为关系表达式
D) x = 1 为关系表达式,y = 1 为赋值语句
3. 下面分段函数 , 下面不正确的程序段是______。
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. 计算函数的值。 , 下面程序段中正确的是______。
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. 下面的程序段,显示的结果是 ______。
Dim x
x= Int(RnD) + 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 = 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
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
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。