求一道VB题目的解答过程

Question

Private Sub Form_click()
Dim str1 As String, str2 As String, i As Integer
str1 = "ab"
For i = Len(str1) To 1 Step -1
str1 = str1 & Chr(Asc(Mid(str1, i, 1)) + 1)
Next i
Print str1
End Sub
结果是abcb我不知道为什么？谁能帮我解答一下，非常感谢

Answer 1

Chr(Asc(Mid(str1, i, 1)) + 1)就是字符串"ab"在i位置的那个字母往后加一位，这里顺序是倒的··所以ab就变成了cb（也就是ab从右往左每个字符往后加一位）
str1 = str1 & Chr(Asc(Mid(str1, i, 1)) + 1)说明加上去的字母在原来字母的右边，所以ab加上cb就变成了abcb了··