&&&&&&&怎样让程序读完一个字的数据后，就跑去干另外的一件事，干完后又回来继续读下一个字的信息，如此反复￥￥￥￥￥￥￥100分

Question

Dim i As Integer
Dim s As String
Dim s1 As String
s = "ASD－DFF四大肤色的发"
For i = 0 To Len(s)
    s1 = Mid(s, 1, 1)
    s = Mid(s, 2)
    '做其他事情
    '.....
    '.....
    '....
Next

Answer 1

Dim i As Integer
Dim s As String
Dim s1 As String
s = "ASD－DFF四大肤色的发"
For i = 0 To Len(s)
    s1 = Mid(s, 1, 1)
    s = Mid(s, 2)
    '做其他事情
    '.....
    '.....
    '....
Next

Answer 2

for i=0 to len(string)-1
   ... '读取一个字符
   doevents '做其它事情
next i

Answer 3

Dim i As Integer
Dim s As String
Dim s1 As String
s = "ASD－DFF四大肤色的发"
For i = 0 To Len(s)
    s1 = Mid(s, 1, 1)
    s = Mid(s, 2)
    '做其他事情
    '.....
    '.....
    '....
Next

Answer 4

用TIMER控件，定时每次只读一个字符就行了。定时没到之前可做别的事情。