问个2级ACCESS的程序题

来源：百度知道 编辑：UC知道 时间：2024/05/09 21:05:38
执行下面的程序，消息框里显示的结果是______。
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

For k=Len(Str) To 1 Step -1
Str=Str & Chr(Asc(Mid(Str,k,1))+k)
Next k

一开始,Len(Str)=2
所以第一次循环,k=2
Mid(Str,k,1)=Mid(Str,2,1)="b"
Asc(Mid(Str,k,1))=Asc("b")=98
Asc(Mid(Str,k,1))+2=98+2=100
Chr(Asc(Mid(Str,k,1))+2)=Chr(100)="d"
Str=Str & "d"="ab" & "d"="abd"

第二次循环,k=1
Mid(Str,k,1)=Mid(Str,2,1)="a"
Asc(Mid(Str,k,1))=Asc("a")=97
Asc(Mid(Str,k,1))+2=97+1=98
Chr(Asc(Mid(Str,k,1))+2)=Chr(98)="b"
Str=Str & "b"="abd" & "b"="abdb"

循环到此结束
输出结果"abdb"