（ 10 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = i * iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) *2Next iMsgBox kEnd Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是 【 10 】 。
（ 10 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：
Private Sub Command1_Click()
Dim a(10), p(3) As Integer
k = 5
For i = 1 To 10
a(i) = i * i
Next i
For i = 1 To 3
p(i) = a(i * i)
Next i
For i = 1 To 3
k = k + p(i) *2
Next i
MsgBox k
End Sub
打开窗体运行后，单击命令按钮，消息框中输出的结果是 【 10 】 。
相关考题：
在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()Dim a(10),p(3)As Integerk=5For i=1 To 10a(i)=i+iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k =k+p(i)*2Next iMsgBox kEnd SuB打开窗体运行后，单击命令按钮，消息框中输出的结果是【 】。
在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()Dim x As Integer,y As Integerx=12:y=32Call Proc(x,y)OeBug.Print x;yEnd SuBPuBlic SuB Proc(n As Integer,Byval m As Integer)n=n Mod 10m=m Mod 10End SuB打开窗体运行后，单击命令按钮，立即窗口上输出的结果是A．2 32B．12 3C．2 2D．12 32
在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl Click（ ） Dim Y As Integer y=0 Do y=InputBox(”y=”) If(Y Mod l0)+Int(y／10)=10 Then Debug．Print Y； LoopUntil y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是（ ）。A.375564281919B.105020C.1050200D.3755642819
在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim X As Integer，Y As Integer x=12：y=32 Call Proc(x，Y) Debug．Print X；Y End Sub Public Sub proc(n As Integer，ByVal in As Integer) n=n Mod 10 m=m Mod 1O End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（ ）。A.232B.123C.22D.1232
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A.机床B.车床C.钻床D.轴承
在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl Click（ ） Dim dl As Date Dim d2 As Date d1=#12／25／2009#d2=#1／5／2010# MsgBox DateDiff(”ww”，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是（ ）。A.1B.2C.10D.11