在窗体上画一个命令按钮，然后编写如下事件过程：private sub command1_click()dima,basintegera=Val(inputbox("EntertheFirstinteger"))b=Val(inputbox("EntertheSecondinteger"))Printb+aend sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111，则输出结果是( )A.456B.111C.567D.111456

题目

在窗体上画一个命令按钮，然后编写如下事件过程：

private sub command1_click()

dima,basinteger

a=Val(inputbox("EntertheFirstinteger"))

b=Val(inputbox("EntertheSecondinteger"))

Printb+a

end sub

程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和111，则输出结果是( )

A.456

B.111

C.567

D.111456

相似考题

1.在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承

2.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，其输出结果为__________。

3.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a()a＝Array("机床"，"车床"，"钻床"，"轴承")Print a(2)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承

4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a（5） As StringFor i = 1 To 5a（i） = Chr（Asc（"A"） + （i - 1））Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息

更多“在窗体上画一个命令按钮,然后编写如下事件过程:private sub command1_click()dima,basinte ”相关问题

  • 第1题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a(5)As String Fori=1 To 5 a(i)=Chr(Asc("A")+(11)) Nexti For Each b In a Print b Next End Sub 程序运行后，单击命令按钮，输出结果是( )。

    A．ABCDE

    B．1 2 3 4 5

    C．abcde

    D．出错信息


    正确答案：A

  • 第2题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：

    程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A)机床

    B)车床

    C)钻床

    D)轴承


    正确答案：C
    本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。

  • 第3题：

    在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array("机床"，"车床"，"钻床"，"轴承")Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

    A．机床

    B．车床

    C．钻床

    D．轴承


    正确答案：C
    解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。

  • 第4题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Pfivate Sub Commandl_Click（） Dima（） a=Array（"机床"，"车床"，"钻床"，"轴承"）Print a（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A.机床

    B.车床

    C.钻床

    D.轴承


    正确答案：C
    C．【解析】本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，通常使用Dim语句来定义数组，其中下标下限默认为0。本题中的a(2)就是数组的第三个元素即“钻床”。

  • 第5题：

    在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(“机床”，“车床”，“钻床”，“轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

    A．机床

    B．车床

    C．钻床

    D．轴承


    正确答案：C
    解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。

  • 第6题：

    在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 T0 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。

    A．ABCDE

    B．1 2 3 4 5

    C．abode

    D．出错信息


    正确答案：A
    解析：本程序段首先定义了一维数组a，然后用For循环为其赋值，Asc()函数的作用是返回字符的ASCII码，字符“A”的ASCII码为65，Chr()函数的作用是将ASCII码值变为相应的字符，而“a(i)=Chr(Asc("A")+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a，所以a的元素是A、B、C、D、E。For Each-In用于输出a中元素的值。

相关内容