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

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

admin2009-05-20  64
问题 执行下面的程序，消息框的输出结果是 【  】。
   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://www.kaotiyun.com/show/Vg5p777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)