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

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

admin2009-05-20  17
问题 执行下面的程序，消息框的输出结果是【  】。
Option Base1
Private Sub Command1_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=1时k=5+p(1)*2=7，i=2时k=7+p(2)*2=15，i=3时k=15+p(3)*2=33最后由MsgBox将结果输出。
转载请注明原文地址:https://jikaoti.com/ti/q9c0FFFM
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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