编写如下程序: Private Sub Commandl Click() Dim aAs Integer,b As Integer a=3:b=2 If a*b0 End Sub 程序运行后,单击命令按钮Comman

admin2018-10-15  26

问题 编写如下程序:
  Private Sub Commandl Click()
    Dim aAs Integer,b As Integer
    a=3:b=2
    If a*b<10 Then
       b=b+1
    Else
       b=b-1
    End If
    Print b-a>0
  End Sub
    程序运行后,单击命令按钮Commandl,输出结果为

选项 A、Tree
B、False
C、1
D、一1

答案B

解析 本题的程序中由于a*b<10条件成立,因此执行Then分支,b自加1变成3,最后输出b-a>0的值即False。
转载请注明原文地址:https://jikaoti.com/ti/4mm0FFFM
0

随机试题
最新回复(0)