作业帮 > 综合 > 作业

15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/11 20:06:43
15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command1_Click() Dim a(10)
15、执行下面的程序,消息框的输出结果是______.
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For i=1 To 10
a(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
要求有解释.不要只给答案.
15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command
33
a(i)=i:
so
a(1)=1,a(2)=2,...,a(10)=10;
p(i)=a(i*i):
so
p(1)=a(1)=1;
p(2)=a(2*2)=a(4)=4;
p(3)=a(3*3)=a(9)=9;
k=5;
k=k+p(i)*2;
k=5+p(1)*2=5+2=7;
k=7+p(2)*2=7+8=15;
k=15+p(3)*2=15+18=33;
so
k=33.
result:k=33.