题目内容
（请给出正确答案）
执行下面的程序，消息框的输出结果是______。
optionBase1
PrivateSubCommandl_Click()
Dima(10),P(3)AsInteger
K=5
Fori=1To10
a(i)=i
Nexti
Fori=1To3
p(i)=a(i*i)
NextI
Fori=1To3
k=k+p(i)*2
Ncxti
MsgBoxk
Endsub
安装简答题APP，拍照搜题省时又省心！
更多“执行下面的程序，消息框的输出结果是______。option…”相关的问题
执行下面的程序，消息框的输出结果是()。
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
执行下面的程序，消息框的输出结果是【 】。
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 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
执行下面的程序，消息框里显示的结果是_______。
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
执行下面的程序，消息框里显示的结果是 【 】 。
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
执行下面的程序，消息框里显示的结果是()。
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
下面程序段执行后消息框的输出结果是()。
a=12345
Do
b=a Mod 10
Loop While b＞=3
MsgBox a
下面程序段执行后消息框的输出结果是______。
a＝12345
Do
a＝a\10
b＝a Mod 10
Loop While b＞＝3
MsgBox a
下面程序段执行后消息框的输出结果是______。
a=12345
Do
a=a\10
b=a Mod 10
Loon While b＞=3
MsgBox a
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
