计算机二级
执行下面的程序，消息框的输出结果是 【 】。Option BaselPrivate Sub Commandl 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 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
相似问题和答案
第1题：
下面程序段执行后消息框的输出结果是______。
a＝12345
Do
a＝a\10
b＝a Mod 10
Loop While b＞＝3
MsgBox a
12 解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题是一个后判断条件的While循环，在循环中首先利用整除10去掉a的最后一位，然后判断当前的a的个位数上的值是否满足循环条件，直至a＝12时由于个位数为2不满足继续循环的条件从而退出循环。
第2题：
执行下面的程序，消息框的输出结果是__________。
110
第3题：
下面程序段执行后消息框的输出结果是( )。
a=12345
Do
b=a Mod 10
Loop While b＞=3
MsgBox a
12 解析： 本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个后判断条件的While循环，在循环中首先利用整除10去掉a的最后一位，然后判断当前的a的个位数上的值是否满足循环条件，直至a=12时由于个位数为2不满足继续循环的条件从而退出循环。
第4题：
执行下面的程序，消息框的输出结果是【 】。
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将结果输出。
第5题：
执行下面的程序，消息框里显示的结果是 【 】 。
Private Sub Form_Click()
Dim Str As String， K As Integer
Str="ab"
For k=Len(Str) TO 1 Step-1
Str=Str & Chr(Asc(Mid(Str，k，1))+k)
Next k
MsgBox Str
End Sub
abdb 解析：本题考查VBA程序设计。题目较难，综合性强，要求考生对常用函数以及控制结构有一定的了解。考生应该了解Len()函数是字符串长度检测函数，返回字符串所含字符数。 Chr()函数是字符代码转换字符函数，将数值表达式转换成字符串。Asc()函数是字符串转换字符代码函数，返回字符串首字符的ASCII值。 Mid(字符串表达式＞,N1＞,N2＞)函数是从字符串左边第N1个字符起截取N2个字符。开始Len(Str0=2，Mid(Str，k，1)=Mid(ab,2,1)=b，则Chr(Asc(B) +2)=d，所以循环第1次结束后 Str="abd"，同样的第2次循环结束后， Str="abdb"，MsSBox用来将Str输出。正确答案为abdb。
第6题：
执行下面的程序，消息框里显示的结果是_______。
Private Sub Form_Click()
Dim Str As String
Str=""
S="Access"
Fori=Len(S)To 1 Step-l
Str=Str&Mid(S，i，1)
Next i
MsgBox Str
End Sub
sseccA 解析：本题考查VBA中字符串的知识。本题中循环次数等于字符串的长度，每次在Str后面连接上一个字符，该字符取自字符串 S的第i位。由于i反向循环，实际上完成的是字符串倒序的功能。
第7题：
下列程序段执行后消息框的输出结果是______。
a＝12345
Do
a＝a\10
b＝a Mod 10
Loop While b>＝3
MsgBox a
9 解析： 本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次：然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加1，后两次循环x自加2，最后输出结果为9。
第8题：
下面程序段执行后消息框的输出结果是______。
a=12345
Do
a=a\10
b=a Mod 10
Loon While b＞=3
MsgBox a
12 解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个后判断条件的While循环，在循环中首先利用整除10去掉a的最后一位，然后判断当前的a的个位数上的值是否满足循环条件，直至a=12时由于个位数为2不满足继续循环的条件从而退出循环。
第9题：
执行下面的程序，消息框的输出结果是( )。
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 解析： 本题考查数组和循环的知识。在本题中出现了两个数组，要注意两个数组的值和下标的对应关系。第一个循环为数组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。
第10题：
执行下面的程序，消息框里显示的结果是( )。
Private Sub Form_Click()
Dim Str As String,S As String,k As Integer
S=Str
For k=Len(Str) To 1 Step -1
S=S & (Mid(Str,k,1)
Next k
End Sub
abccba