在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()Dim a (1 To 10)Dim p(1 To 3)k=5For i=1 To 10a(i)=iNextiFori=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是【 】。
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a (1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Nexti
Fori=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
相关考题：
在窗体上画一个名称为 \Command1\ 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a As StringA="123456789"For i=1 To 5Print Space（6-i）;Mid $ （a,______ ,2*i-1）Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。
在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A． 6B．7C．8D．9
在窗体上画一个命令按钮，名称为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．出错信息
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim Y as StringX=5Y=X Space(3) XPrint X；Print Trim(Y)；Len(Trim(Y))End Sub该程序的执行结果是【 】。
在窗体上画一个命令按钮，然后编写如下代码：Private Sub Commandl_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Msgbox M(2+M(x))End Sub程序运行后，单击命令按钮，消息框显示的是______。
在窗体上画一个命令按钮，然后编写如下事件过程： 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() Dim a As Integer, b As integer b = 1 For a = 1 To 100 If b ＞＝ 10 Then Exit For If b Mod 3 = 1 Then b = b + 3 End If Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是 ______。A．101B．6C．5D．4
在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )A．0B．1C．2D．3
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )A．4B．6C．8D．10
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_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
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是： ______。A．0B．1C．2D．3
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A．VVVB．VisC．sicD．11
假定有如下的Sub过程：Sub Sub1(x As Single，y As single)t=xx=t/yy=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_click()Dim a As SingleDim b As Singlea=5b=4Sub1 a，bPrint a；bEnd Sub程序运行后，单击命令按钮，输出结果为A．B．C．D．
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a()a＝Array("机床"，"车床"，"钻床"，"轴承")Print a(2)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。A．49B．64C．81D．100
在窗体上画一个命令按钮，然后编写如下事件过程： 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，然后编写如下事件过程： Option Base 0Private Sub Commandl_Click（） Dim cityAs VariantCity=．Array（"北京"， "上海"，"天津”， "重庆"）Print city（1）End Sub程序执行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.空白B.错误提示C.北京D.上海
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是______。A．13.45.8B．1 3 5C．147D．无数据输出
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.机床B.车床C.钻床D.轴承
在窗体上画一个命令按钮，然后编写如下事件过程： 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
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．54321B．4C．54321D．0
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(“机床”，“车床”，“钻床”，“轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．8B．2C．5D．11
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，B)End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．15D．8
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m\10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．41 54B．2 54C．1 3D．42 3
编写如下通用过程： Sub Proc(x As Single, y As Single) t = x x = t/y y = t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click () Dim a As Single Dim b As Single a = 5 b = 4 Proc a, b Print a, b End Sub 程序运行后，如果单击命令按钮，则输出结果为A．5 4B．1.25 1C．4 5D．1.25 5