Private Sub Commandl_cickc()
a=InputBox( "enter the first integer")
b=InputBox( "enter the second integer")
Print b + a
E.nd Sub
程序运行后,单击命令按钮,先后在两个输入框中分别输入"2"和"6",则输出结果为( )。
A.2
B.62
C.8
D.26
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubcommand1_click()D.imaAsString,bAsStringa=InputBox("EntertheFirstinteger")b=InputBox("EntertheSecondinteger")Printb+aE.ndSub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和111,则输出结果是( )A.456B.111C.567D.111456
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim a() a=Array(1,3,5,7) s=O For i=1 TO 3 S=S*10十a(i) Next i PrInt S End Sub 程序运行后,输出结果为( )。A.135B.357C.531D.753
[单选题]在窗体上有一个命令按钮,然后编写如下事件过程。Private Sub Command1_Click()D.im a(5)As StringF.OR i=1 To 5a(i)=Chr(Asc("A")+ (i-1))NextF.or Each b In aPrint b;NextE.nd Sub程序运行后,单击命令按钮,输出结果是A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息
[单选题]在窗体上有一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()D.im a(5) As StringF.OR i=1 To 5a(i) =Chr(Asc("A") +(i-1))NextF.or Each b In aPrint b;NextE.nd Sub程序运行后,单击命令按钮,输出结果是A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息
[单选题]在窗体上有一个命令按钮,然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox("enter the first integer") b=InputBox("enter the second integer") Print b + a End Sub 程序运行后,单击命令按钮,先后在两个输入框中分别输入“2”和“6”,则输出结果为A.2B.62C.8D.26
[单选题]在窗体上有一个命令按钮,然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息
[单选题]在窗体上画一个命令按钮,然后编写如下程序:privatesubcommand1_click()forj=1to11j=j+1n=n+1nextjPrint"n=";nendsub程序运行后单击命令按钮,N的值是( )A.5B.6C.10D.11
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()D.im m As Integer, n As Integer, p As Integerm=3: n=5: p=0C.all Y(m, n, p)Print Str(p)E.nd SubSub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)k=i + jE.nd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()D.im a(5) As StringF.or i = 1 To 5a(i) = Chr(Asc("A") + (i - 1))Next iF.or Each b In aPrint b;NextE.nd Sub程序运行后,单击命令按钮,输出结果是( )。A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后,输出结果为( )。A.135B.357C.531D.753