在窗体画一个命令按钮,然后编写如下事件过程: Private Sub Command1_CIick() Dim a(1 To 10) Dim p(1 To 3) 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)*2Next iPrint k End Sub程序运行后,单击命令
主观题
在窗体画一个命令按钮,然后编写如下事件过程: Private Sub Command1_CIick() Dim a(1 To 10) Dim p(1 To 3) 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)*2Next iPrint k End Sub程序运行后,单击命令