Question

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
要求有解释。不要只给答案。

Answer 1

像jokerdickens这样热心的有耐心人不多了，鼓励下

Answer 2

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.