执行下面的程序，消息框的输出结果是______。optionBase1PrivateSubCommandl_Click（)Dima（10),P（3)

请帮忙给出正确答案和分析，谢谢！

执行下面的程序，消息框的输出结果是()。

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

执行下面的程序，消息框里显示的结果是（）。

A. abe

B. abccba

C. cbacba

D. abcabc

执行下面的程序，消息框里显示的结果是_______。

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. 1

B. 12

C. 123

D. 1234

下列程序段执行后消息框的输出结果是______。

a＝12345

Do

a＝a\10

b＝a Mod 10

Loop While b＞＝3

MsgBox a