vb 字符串分组

程序代码来了,自己写的,已经验证OK!!!

Private Sub Command1_Click()
Dim c() As String
Dim str As String
Dim i As Integer
str = "10,4,8,3,5"
c = Split(str, ",")
For i = LBound(c) To UBound(c)
Print "c" & i + 1 & "=" & c(i)
Next
End Sub

你复制到VB就OK了,我也是VB爱好者,以后互相学习了!!!

Option Explicit
Private Sub Command1_Click()
Dim st, n, ch As String, i, l, k, a As Integer
Dim c(), b() As String
Form1.Show
st = Text1.Text
l = Len(st)
For i = 1 To l
n = Mid(st, i, 1)
If n <> "," Then
ch = ch + n
Else
k = k + 1
ReDim c(k + 1)
c(k) = ch
Text2.Text = Text2.Text + " " + ch
ch = ""
End If
Next i
For i = l To 1 Step -1
n = Mid(st, i, 1)
If n <> "," Then
For a = i To 1 Step -1
ReDim b(a + 1)
b(a) = n
Next a