请教如何取得字符串里的每一个字符，谢谢！！！！

Question

请教如何取得字符串里的每一个字符，谢谢！！！！

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To Len(Trim(Text1.Text))
        MsgBox Mid(Trim(Text1.Text), i, 1)
    Next i
End Sub

Answer 2

Private Sub Command1_Click()
    Dim strTemp As String
    strTemp = "asdkajshdkja"
    
    Dim i As Integer
    Dim iCount As Integer
    
    iCount = Len(strTemp)
    
    For i = 1 To iCount
        Debug.Print Mid(strTemp, i, 1)
    Next
End Sub

Answer 3

优化一下：
Private Sub Command1_Click()
Dim i&,strT$,lngCt&
    strT=Trim(Text1.Text)
    lngCt=Len(strT)    For i = 1 To lngCt
        MsgBox Mid(strT, i, 1)
    Next
End Sub
这样好一些