填空题
在窗体上有一个命令按钮Command1,编写事件代码如下:
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
打开窗体运行后,单击命令按钮,消息框中输出的结果是______。
1、
【正确答案】
1、201
【答案解析】
[解析] 本题考查的是VBA编程基础。经过第一个for循环,a(i)中a(1)~a(10)存的分别是1~10的平方。第二个循环后,p(i)中的p(1)存的是a(1)的值,p(2)中存的是a(4)的值,p(3)中存的是a(9)的值,经过最后一个循环之后,k的值应该为201。
提交答案
关闭