单选题编写如下程序： Private Sub Command1_Click() Dim a As 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 程序运行后，单击命令按钮Command1，输出结果为

A、 True
B、 False
C、 1
D、 -1

【正确答案】 B

【答案解析】解析：本题的程序中由于a*b<10条件成立，因此执行Then分支，b自加1变成3，最后输出b-a>0的值即False。