执行下面的程序，消息框的输出结果是【15】。 Option Base1 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(ii) Next i For i=1 To 3 k=k+p(i)2 Next i MsgBox k End sub

【参考答案】

33

执行下面的程序，消息框的输出结果是 【15】 。 Option Base1 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