Question

vb文本框数组排列问题

文本框有多组数据如：1 2 3 4 5 6 7,1 5 6 9 10 11 13等数组数据，数与数之间有一个空格，怎么实现用一个按纽就把这些数组数据按5个数一组的所有组合显示到另一个文本框，如1 2 3 4 5,1 2 3 4 6,1 2 3 4 7等等，数与数之间有空格，感谢！！！

Answer 1

‘可能实现的方法很多，我只会这一种，希望对你有帮助。关键代码如下：
Dim S As String
S = "1 2 3 4 5 6 7,1 5 6 9 10 11 13"
S = Replace(S, ",", " ")
Dim ShuZi() As String
ShuZi = Split(S, " ") '将带空格的数字串打散为数组
Dim S1 As String
S1 = ""
For i = 0 To UBound(ShuZi)
If S1 = "" Then

S1 = ShuZi(0)
Else

If i Mod 5 = 0 Then ‘每间隔5位
S1 = S1 & "," & ShuZi(i)
Else
S1 = S1 & Space(1) & ShuZi(i)
End If

End If
Next
MsgBox (S1)