在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 10) Dim p(l To 3) k=5 For i = 1 To 10 a(i)= i Next i For i = 1 To 3p(i)= a(i * i) Next i For i = I To 3k = k + p(i)* 2Next i Print k En
主观题
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(1 To 10) Dim p(l To 3) k=5 For i = 1 To 10 a(i)= i Next i For i = 1 To 3p(i)= a(i * i) Next i For i = I To 3k = k + p(i)* 2Next i Print k En