在窗体中有一个文本框Testl，编写事件代码如下： Private Sub Form. Click（ ） X=val(Inputbox(”输入x的值”))Y=1 If X<>0 Then Y=2Text1．Value=YEnd Sub． 打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是（ ）。A.1B.2C.3D.4
题目
在窗体中有一个文本框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。【解析】本题考查的是if语句的条件判断。因为输入的值是l2，不等于0，所以输出为2。
更多“在窗体中有一个文本框Testl,编写事件代码如下: Private Sub Form. Click( ) X=val(Inputbox( ”相关问题
-
第1题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
X=0
Do While X＜＞-1
X=Val(InputBox("请输入数据X:"))
Y=Val(InputBox("请输入数据Y:"))
If X*Y＜X+Y Then Print X，Y
Loop
End Sub
程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】
正确答案：-3 8 18 -15
-3 8 18 -15 解析：本题程序运行后，共输入5组数据，x依次取值为7、-3、-5、18、-1，Y依次取值为 2、8、-10、-15、-1。只有满足X * YX+Y时，才输出X、Y的值。循环的结束条件是“X= -1，Y=-1”。 -
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程：Private 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 aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。
A．2
B．3
C．14
D．15
正确答案：A
解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。所以最终的输出是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. Cl ick() ’
X=val(Inputbox(“输入X的值”))
Y=1
If X<>0 Then Y：2
Textl．Value=Y
End Sub
打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是
A．1
B．2
C．3
D．4
正确答案：B
解析：本题中窗体单击事件是通过从输入框输入数值，根据所输入数值内容对y进行赋值，运行时输入框输入12，此值不等于0所以y的值为2，正确答案为B)。 -
第5题：
在窗体中有一个文本框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。