[填空题] 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 3)k=5For i=1 To

17 查阅

[填空题] 在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

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)*2

Next i

Print k

End Sub

程序运行后，单击命令按钮，输出结果是【13】。

参考答案:

[评析] 观察程序，通过第一个以i为循环变量的循环，给数组a()进行赋值，数组a()中的各个元素的值就是其下标值。通过第二个以i为循环变量的循环，给数组p()进行赋值： i=1,p(i)=a(i*i)，p(1)=a(1)=1 i=2,p(i)=a(i*i)，p(2)=a(4)=4 i=3,p(i)=a(i*i)，p(3)=a(9)=9通过第三个以i为循环变量的循环，得到变量k的值： i=1，k=k+p(i)*2=5+p(i)*2=7 i=2,k=k+p(i)*2=7+p(2)*2=15 i=3,k=k+p(i)*2=15+p(3)*2=33最终输出结果是：33。

计算机考试