执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd 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
相关考题：
执行下列的程序，消息框里显示的结果是______。Pfivate Sub Form_Click()Dim Str As StringStr＝""S="Access"For i＝Len(S) To 1 Step-1Str＝StrMid(S.i,1)Next IMsgBox StrEnd Sub
执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STRCHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUBA．ABCEB．ABCDC．ABDBD．ABFB
程序段如下，程序运行后消息框显示的结果是______。 Dim a, s As String, i As Integer a = "晴空万里" s = "" For i = 1 To 4 Step 2 s = Mid（a, 4 - i, 2) Next MsgBox（s)A．晴空万里B．万里晴空C．晴空D．万里
下面的程序段运行后，消息框显示的结果是______。 For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Next i MsgBox（n)A．4B．5C．24D．288