在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim a (1 To 10) Dim p(1 To 3) k=5 For i=1 To

admin2010-03-30  37

问题 在窗体上画一个命令按钮,然后编写如下事件过程:
   Private Sub Commandl_Click()
       Dim a (1 To 10)
       Dim p(1 To 3)
       k=5
       For i=1 To 10
           a(i)=i
   Nexti
   Fori=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
   程序运行后,单击命令按钮,输出结果是【   】。

选项

答案33

解析 观察程序,通过第一个以i为循环变量的循环,给数组a()进行赋值,数组a()中的各个元素的值就是其下标值。
通过第二个以i为循环变量的循环,给数组p()进行赋值:
   i=1,(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。
转载请注明原文地址:https://kaotiyun.com/show/pEmp777K
0

最新回复(0)