执行下面的程序,消息框的输出结果是 【 】。 Option Basel Private Sub Commandl Click() Dim a(10),P(3)As Integer k=5 For i=1 To 1

admin2009-05-20  27

问题 执行下面的程序,消息框的输出结果是 【  】。
   Option Basel
   Private Sub Commandl 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

选项

答案33

解析 本题考查VBA中的数组与循环结构。题目中有3个循环,但相互之间并没有嵌套。第一个For循环实现向数组a赋初值,第二个For循环实现对数组a进行相关运算,然后赋给数组p,p(1)=a(1)=1,p(2)=a(4)=4, p(3)=a(9)=9。第三个For循环进行相关计算,然后把结果交给k,i=l时k=5+p(1)*2=7,i=2时k=7+p(2)*2=15,i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。
转载请注明原文地址:https://kaotiyun.com/show/Vg5p777K
0

最新回复(0)