Private Sub Command1_Click()
s=1
D.o
s=(s + 1) ^ (s + 2)
Number=Number + 1
Loop Until s >=6
Print Number, s
E.nd Sub
程序运行后,输出的结果是( )。
A.23
B.318
C.18
D.1020
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程: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
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()s=1D.os=(s + 1) * (s + 2)Number=Number + 1Loop Until s >=30Print Number, sE.nd Sub程序运行后,输出的结果是( )。A.2 3B.2 56C.5 12D.10 20
[主观题]在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x=0D.o Until x=-1a=InputBox("请输入第一个数字a的值")a=Val(A)b=InputBox("请输入第二个数字b的值")b=Val(b)x=InputBox("请输入第三个数字x的值")x=Val(x)a=a + b + xLoopPrint aE.nd Sub在程序运行后,单击命令按钮,在对话框中分别输入5,4,8,5,8,-1,输出结果为 (9) 。
[单选题]在窗体上画一个命令按钮,然后写出如下事件过程: Private Sub Command1 _ Click( ) S=1 Do S=(S + 1) ^(S + 2) Number=Number+1 Loop Until S>=6 Print Number,S End Sub 程序运行后,输出的结果是A.2 3B.3 18C.1 8D.10 20
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程: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
[单选题]在窗体上画一个命令按钮,然后编写如下事件过程:Sub BTC(oldCopy() As Integer, newCopy() As Integer)D.im i As IntegerF.or i=LBound(oldCopy() ) To UBound(oldCopy() )newCopy(i) =oldCopy(i)Next iE.nd SubPrivate Sub Command1_Click()D.im m(10) As Integer, n(10) As IntegerF.or i=1
[单选题](29)在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )D.im I, NumRandomizeD.oF.or I=1 To 1000Num=Int(Rnd*100)Print Num;Select Case NumC.ase 12E.xit ForC.ase 58E.xit DoC.ase 65, 68, 92E.ndE.nd SelectNext ILoopE.nd Sub上述事件过程执行后,下列描述中正确的是( )。A.)Do 循环执