执行下面的程序，消息框的输出结果是【 】。Option Base1Private Sub Command1_Click( )Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub
题目
执行下面的程序，消息框的输出结果是【 】。
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
相似考题
更多“执行下面的程序,消息框的输出结果是【】。Option Base1Private Sub Command1_Click()Dim a(10),P(3) ”相关问题
-
第1题：
下列程序段执行后消息框的输出结果是______。
a＝12345
Do
a＝a\10
b＝a Mod 10
Loop While b>＝3
MsgBox a
正确答案：9
9 解析： 本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次：然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加1，后两次循环x自加2，最后输出结果为9。 -
第2题：
执行下面的程序，消息框的输出结果是( )。
Dim a(1 To 10),b(1 To 5)As Integer
sum=0
For i=1 To 10
Next i
For i=1 To 5
Next i
For i=1 To 5
Next i
MsgBox sum
正确答案：220
220 解析： 本题考查数组和循环的知识。在本题中出现了两个数组，要注意两个数组的值和下标的对应关系。第一个循环为数组a赋值，每个数组元素值等于其下标值；第二个循环为数组b赋值，分别使b(1)=a(2)=2，b(2)=a(4)=4，b(3)=a(6)=6，b(4)=a(8)=8，b(5)=a(10)=10；第三个循环把b数组的每一个元素平方以后累加起来，最后结果为220。 -
第3题：
以下程序段运行后,消息框的输出结果是( )。 a=10b=20c=a<;bMsgBox c＋lA.一1B.0C.1D.2以下程序段运行后，消息框的输出结果是（ ）。 a=10b=20c=a<；bMsgBox c+l
A.一1
B.0
C.1
D.2
正确答案：B
B．【解析】本题考查VBA中表达式运算的知识。在VBA中允许逻辑量进行算术运算，True处理成一l，False处理成0。 -
第4题：
执行下面的程序，消息框的输出结果是 【 】。
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
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将结果输出。 -
第5题：
下列程序段运行后,消息框的输出结果是( )。 a=sqr(3)b=sqr(2)c=a>bMsgbox c十2 A.一1下列程序段运行后，消息框的输出结果是（ ）。 a=sqr（3）b=sqr（2）c=a>；bMsgbox c十2
A.一1
B.1
C.2
D.出错
正确答案：B
暂无解析，请参考用户分享笔记