在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是A．22B．24C．26D．28
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-3 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是
A．22
B．24
C．26
D．28
相关考题：
（ 11 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( )Dim x As Integer, y As Integerx=12 : y=32Call p(x, y)MsgBox x*yEnd SubPublic Sub p (n As Integer, By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 ___________ 。
在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是______。A．4221B．1234C．34D．12
在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j =3 To 4 Print a(j，i)； Next j Print Next i End Sub程序运行后，单击命令按钮，其输出结果为______ 。A．6 9 7 10B．7 10 8 11C．8 11 9 12D．9 12 10 13
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（）Dim s，iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub f(ByVal x As Integer)x=x+4End SubPrivate Sub Command1_Click()i=3Call f(i)If i＞4 Then i=i*2End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．1B．2C．3D．4
在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()sum=0For i=1 To 100 step 2sum=sum+iNext iMsgBox sumEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
在窗体上画一个命令按钮(其Nmne属性为Command1)，然后编写如下代码： Option Base l Private Sub Command1_Click( ) Dim a s=0 a=Array(1，2，2，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是A．4321B．1234C．34D．12
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：Private Sub Command1_Click()Dim a As Integer,b As Integerx=10y=20End Sub打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。A．11B．a=11C．0D．False
在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2.17 n=Len(Str$(m)＋Space(5)) Me!Text1=n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示______。A．5B．8C．9D．10
在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是A．4321B．1234C．34D．12
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1 Click() Text1.Text="AB" End Sub Private Sub Command2 Click() Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示A．ABB．CDC．ABCDD．CDAB
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(2，4，6，8) j=1 For i=4 To 1 Step-2 s＝s+a(i)*j j=j*10 Next i Print 3 End Sub 运行上面的程序，单击命令按钮，其输出结果是 ( )A．2B．4C．8D．48
在窗体中添加一个名称为COMMAND1的命令按钮，然后编写如下事件代码： PRIVATE SUB COMMAND1_CLICK( ) A =75 IF A ＞60 THEN K=1 ELSEIF A ＞ 70 THEN K=2 ELSEIF A ＞ 80 THEN K=3 ELSEIF A ＞90 THEN K=4 ENDIF MSGBOX K END SUB 窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。A．1B．2C．3D．4
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub 程序运行后，在第1个文本A．444B．321123C．123321D．132231
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls＜60 a＄=“F” Case 60 T069 a＄=“D” Case 70 To 79 a＄=“C” Case 80 To 89 a＄=“B” Case Else a＄=“A” End Select Print aS End Sub 程序运行后，单击命令按钮，输出结果是A．AB．BC．CD．D
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：Private Sub Command1_CliekDim b, kFor k = 1 to 6b=23+kNext kMsgBox b + kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是【 】。
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim as=0:j=1a=Array(1,2,3,4)For i=4 To 1 Step-1s=s+a(i)*jj=j*10NextPrint sEnd Sub运行上面的程序并单击命令按钮,其输出结果是A．4221B．1234C．34D．12
在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：Option Compare DatabaseDim a As String*10Private Sub Command1 Click()a＝"1234"b＝Len(A)Me.Lb1.Caption＝bEnd Sub打开窗体后单击命令按钮，窗体中显示的内容是( )。A．4B．5C．10D．40
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1 Click() Dim a a=Array(2， 4， 6， 8) j=1 For i = 4 To 1 Step -3 s=s+a(i) (j j = j ( 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是A．22B．24C．26D．28
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示A．ABB．CDC．ABEDD．CDAB
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。A．abodefgB．不显示任何信息C．ABCDEFGD．出错
在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 If A＜60 Then x=1 If A＜70 Then x=2 If A＜80 Then x=3 If A＜90 Then x=4 MsgBox x End Sub 打开窗体运行后，单击命令按钮，则消息框的输出结果是( )。A．1B．2C．3D．4
（ 15 ）在窗体上添加一个命令按钮（名为 Command1 ），然后编写如下事件过程：Private Sub Command1_Click （）Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是 【 15 】 。
（ 30 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )a=0 : b=5 : c=6MsgBox a=b+cEnd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A ） l1B ） a=11C ） 0D ） False
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：Private Sub Command1_Click()Dim s ， iFor i=1 To 10s=s+iNext iMsgBox sEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。
（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )Static b As Integerb=b+1End Sub窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。