我想取得字符串里的每两个字符 , 如
VBGTSJLKJW (字符很多)
我想得到:
VB
GT
SJ
LK
JW
求教高手,谢谢!!!
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Len(Trim(Text1.Text)) - 1
J = i + 2
MsgBox Mid(Trim(Text1.Text), i + J, 2)
Next i
End Sub
VBGTSJLKJW (字符很多)
我想得到:
VB
GT
SJ
LK
JW
求教高手,谢谢!!!
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Len(Trim(Text1.Text)) - 1
J = i + 2
MsgBox Mid(Trim(Text1.Text), i + J, 2)
Next i
End Sub
Dim i As Integer
For i = 1 To Len(Trim(Text1)) step 2
print Mid(Trim(Text1), i, 2)
Next i
End Sub