在窗体中有一个文本框Textl，编写事件代码如下：Private Sub Form. Cl ick() ’X=val(Inputbox(“输入X的值”))Y=1If X<>0 Then Y：2Textl．Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是A．1B．2C．3D．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

相似考题

1.请输入B的值在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=－1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)()A.2B.3C.15D.14

2.在窗体中有一个文本框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

3.在窗体上画一个命令按钮，然后编写如下事件过程：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．2B．3C．14D．15

4.（ 32 ）在窗体中有一个文本框 text1, 编写事件代码如下：Private sub form_click()X=val(inputbox( “ 输入 x 的值 ” ))Y=1If x<> then y=2Text1.value=yEnd sub打开窗体运行后。在输入框中输入整数 12 ，文本框 text1 中输出的结果是A ） 1B ） 2C ） 3D ） 4

参考答案和解析
正确答案：B
解析：本题中窗体单击事件是通过从输入框输入数值，根据所输入数值内容对y进行赋值，运行时输入框输入12，此值不等于0所以y的值为2，正确答案为B)。
更多“在窗体中有一个文本框Textl,编写事件代码如下:Private Sub Form. Cl ick()’X=val(Inputbox(“输入 ”相关问题

  • 第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。

相关内容