单选题在窗体中有一个文本框Test1，编写事件代码如下：
Private Sub Form_Click()
X=Val(InputBox("输入X的值"))
Y=1
If X＜＞0 Then Y=2
Text1.Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是
A) 1 B) 2 C) 3 D) 4

【正确答案】 B

【答案解析】[解析] 本题考查的是VBA程序控制语句。本题的事件代码所示的程序流程是：实现通过输入框获取变量x的值，然后定义变量Y的初始值，再通过If语句判断x的值是否不等于0，如果不等于0，则变量Y的值变为2，如果x的值大于0，则Y仍大于1，最后，通过语句“Text1.Value=Y”，将Y的值显示在文本框中。本题要求打开窗体运行后，在输入框中输入整数12，因为12不等于0，所以文本框Text1中输出的Y的结果是2。