问题
单项选择题
在窗体中有一个文本框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。