网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

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

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


参考答案

更多 “ 在窗体上画一个命令按钮,然后编写如下事件过程:private sub command1_click()dima,basintegera=Val(inputbox(EntertheFirstinteger))b=Val(inputbox(EntertheSecondinteger))Printb+aend sub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和111,则输出结果是( )A.456B.111C.567D.111456 ” 相关考题
考题 在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim a() a=Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

考题 在窗体上画一个命令按钮,然后编写如下事件过程: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.出错信息

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

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

考题 在窗体上画一个命令按钮,然后编写如下事件过程: 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.ABCDEB.1 2 3 4 5C.abcdeD.出错信息

考题 在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Pfivate Sub Commandl_Click() Dima() a=Array("机床","车床","钻床","轴承")Print a(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.机床B.车床C.钻床D.轴承

考题 在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A)机床B)车床C)钻床D)轴承

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

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

考题 在窗体上画一个命令按钮,然后编写如下事件过程: 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.ABCDEB.1 2 3 4 5C.abodeD.出错信息