分支语句测试题目
单选题
1、针对语句IF K=1 THEN M=1，下列说法正确的是。

（A）K=1和M=1均为赋值语句
（B）K=1和M=1均为关系表达式
（C）K=1是关系表达式，M=1是赋值语句
（D）K=1是赋值语句，M=1是关系表达式
2、运行以下语句，结果为。

A=10 : B=20
Print A = B
(A)10 (B)20 (C)False (D)出错
3、交换A、B两个变量的值，T为中间变量，其正确的程序片段为。

（A）T = A：B = A：B = T
（B）T = A：A = B：B = T
（C）T = A：B = A：A = T
（D）T = B：A = B：A = T
4、用情况选择语句Select Case x选择|x|>5情况的语句为Case 。

（A）Not (-5 To 5) （B）5 To -5
（C）Is<-5，Is>5 （D）ABS (x) > 5
5、设有程序段:
Dim x As String, y As String
X = ”Visual Basic”
Y = UCase(Mid( Right(x,5),1,1))
则该程序段执行后，变量y的值为。

A. B
B. b
C. A
D. a
6、对正实数X的第四位小数四舍五入的VB表达式是。

A．0.001 * Int(x + 0.0005) B．0.001*(1000*x+0.5)
C．0.001 * Int(1000 * x + 5) D．0.001*Int(1000*(x+0.0005))
填空题
1、下述程序段执行后，输出结果为。

x = 1
If x > 0 Then
x = x + 1
ElseIf x > 1 Then
x = x - 1
End If
Print x
2、下述程序段执行后，输出结果为。

Private Sub Command1_Click()
Dim A As Integer, Bl As Boolean
A = 7
Bl = 1
Print A + Bl
End Sub。