在窗体中有一个文本框Textl，编写事件代码如下： Private Sub Form. Click（ ） X=val（Inputbox（‘‘输入x的值‘‘））Y=1IfX◇0 Then Y=2Textl．Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框Textl中输出的结果是（ ）。【考点4 VBA流程控制语句】A.1B.2C.3D.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

相似考题

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.窗体中有命令按钮Command1和文本框Text1，事件过程如下：Function result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseEnd IfEnd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)&“是偶数．”ElseTextl=Str(x)&“是奇数．”End IfEnd Sub运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。A．result(x)=“偶数”B．result(x)C．result(x)=“奇数”D．NOT result(x)

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

更多“在窗体中有一个文本框Textl,编写事件代码如下: Private Sub Form. Click( ) X=val(Inputbox(‘‘ ”相关问题

  • 第1题：

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

  • 第2题：

    在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：Private Sub Commandl—Click（ ） For i=1 T04 X=3 For j=1 T03 For k=1 T02 x=x+3 Next k Next jNext iText1．Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是（ ）。

    A.6

    B.12

    C.18

    D.21


    正确答案：D
    D。【解析】本题考查For循环和变量赋值问题，虽然Forl=1To4执行了4次，但是，每次都为x重新赋值了，所以最终输出结果为执行2×3次x=x+3的结果，即为21。

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

    在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下： Private Sub Commandl一Click（ ）Dim i，j，X For i=1 TO 20 step 2 X=0 For j=i TO 20 step 3 X=X+1 Next j Next i．Textl．Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框中显示的结果是（ ）。

    A.1

    B.7

    C.17

    D.400


    正确答案：A
    A。【解析】由于外层循环体中有语句x=0所以无论内循环结束时X为多少，它都将被重新赋值0，所以只有最后一次i=19，j=19此时x值为l，由于i的步长为2，21不符循环条件，退出整个循环。故文本框中的结果为l。

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

相关内容