在窗体中有一个文本框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．1B．2C．3D．4
题目
在窗体中有一个文本框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
相似考题
参考答案和解析
更多“在窗体中有一个文本框Test1,编写事件代码如下:Private Sub Form_Click()X=Val(InputBox("输入X的 ”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_ Click() x=0 Do Until x=-1 a= InputBox(“请输入A的值”) a= Val (A)b=InputBox(“请输入B的值”) b=Val (B)x=InputBox(“请输入x的值”) x=Val (x) a=a+ b+ x Loop Print a End Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为______ 。
A．2
B．3
C．14
D．15
正确答案：A
-
第2题：
在窗体中有一个文本框Testl，编写事件代码如下： Private Sub Form. Click（ ） X=val(Inputbox(”输入x的值”))Y=1 If X<>0 Then Y=2Text1．Value=YEnd Sub． 打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是（ ）。
A.1
B.2
C.3
D.4
正确答案：B
B。【解析】本题考查的是if语句的条件判断。因为输入的值是l2，不等于0，所以输出为2。 -
第3题：
在窗体中有一个文本框Text1，事件代码如下： 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
D -
第4题：
在窗体中有一个文本框Textl，编写事件代码如下： Private Sub Form. Click（ ） X=val（Inputbox（‘‘输入x的值‘‘））Y=1IfX◇0 Then Y=2Textl．Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是（ ）。【考点4 VBA流程控制语句】
A.1
B.2
C.3
D.4
正确答案：B
根据题意，可知首先将输入的数值赋给X，Y初始值为l，接着判断x是否不为0(即输入的值是否不为0)，如果不为0，则Y的值为2，并且将Y的值赋给文本框Textl。由于题意中输入的是12，不为0，此时Y的值为2，所以文本框中输出的结果为2。 -
第5题：
在窗体上画一个命令按钮，然后编写如下事件过程: x = 0 Do Until x = -1 a = val（InputBox（"A的值")):b = val（InputBox（"B的值")) x = val（InputBox（"x的值")) a = a + b + x Loop Print a 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为_____。
A．14
B．3
C．2
D．12
C 因为X重新赋值，所以每次循环结果一样。计算一次即可，结果为l5。对于y，内层循环一次，其值为3。共循环12次，所以其值为36。当多次单击命令按钮时，x是普通变量，每次单击只是重新计算一次，执行结果一样，仍然为15。但Y是静态变量，程序没有结束运行之前，仍然保持上一次的值。每单击一次按钮，它将累计本次执行结果。执行三次，结果为36+36+36=108。选择C。