itgle.com

（ 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

题目

（ 32 ）在窗体中有一个文本框 text1, 编写事件代码如下：

Private sub form_click()

X=val(inputbox( “ 输入 x 的值 ” ))

Y=1

If x<> then y=2

Text1.value=y

End sub

打开窗体运行后。在输入框中输入整数 12 ，文本框 text1 中输出的结果是

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

4.（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：Private sub command1_click()For i=1 to 4X=3For j=1 to 3For k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)End sub打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是A ） 6B ） 12C ） 18D ） 21

参考答案和解析
正确答案：B
更多“( 32 )在窗体中有一个文本框 text1, 编写事件代码如下:Private sub form_click()X=val(inputbox( ”相关问题

  • 第1题：

    在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

    Private Sub Command1_Click()

    For I=1 To 4

    X=3

    For j=i To 3

    For k=1 To 2

    X=x+3

    Next k

    Next j

    Next I

    Text]．value=Str(x)

    End Sub

    打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

    A．6

    B．12

    C．18

    D．21


    正确答案：D
    解析：此题为3层嵌套循环，经过分析可见l的最外层循环没有实际意义，I值从l到4时，x的结果是一样的。当j=1，k=l时，x=x+3=6，next k，这时k=2，x=6+3=9；最内层循环执行完毕，执行第二层循环，即j=2，重复上面步骤，以此类推到j=3，最终x值为21。

  • 第2题：

    在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click(． For I =1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I Text1.value = Str(x． End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

    A.6

    B.12

    C.18

    D.21


    正确答案：D
    首先看一下程序结构，本程序有三个For循环，赋值语句"x=3"在第一层循环语句"ForI=1To4"内，也就是说，无论I的值是1还是4，循环的结果都一样，因为在第一轮循环执行结束，第二轮循环开始时，变量x的值都会恢复为3，所以可以将"ForI=1To4"看作只执行了一次。根据"Forj=1To3"和"Fork=1To2"这个嵌套循环，我们可以推算出语句"x=x+3"执行了6次，循环过程如下：j=1时：k=1，x=3+3=6，k=2，x=6+3=9;j=2时：k=1，x=9+3=12，k=2，x=12+3=15;j=3时：k=1，x=15+3=18，k=2，x=18+3=21。所以程序通过语句"Text1.value=Str(x．"，在文本框中输出的结果为21。所以本题答案为D。

  • 第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题：

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

相关内容