分支语句测试题目

分支语句测试题目

单选题

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