作业帮15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command1_Click() Dim a(10)15、执行下面的程序,消息框的输出结果是______.Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/01 06:35:26
15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command1_Click() Dim a(10)15、执行下面的程序,消息框的输出结果是______.Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1
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 Command1_Click() Dim a(10)15、执行下面的程序,消息框的输出结果是______.Option Base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1
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.