单选题编写如下程序：
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。