执行下面的程序,消息框里显示的结果是 【13】 。Private Sub Form
问题:
执行下面的程序,消息框里显示的结果是 【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 StrEnd Sub
执行下面的程序,消息框里显示的结果是 【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 StrEnd Sub