执行下面的程序，消息框里显示的结果是【13】。 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

执行下面的程序，消息框里显示的结果是 【13】 。 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