VB 看看这个数据分组代码怎么写？（可行的话再追加15分）

来源：百度知道 编辑：UC知道 时间：2024/09/28 12:54:25
效果如图：http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/c16747fb1cc2c71e6d22eb29.jpg
文本框1如下，（请注意实际数据不止6行，也不一定5行一组）04,09,39,36,37,40,43,45,48,49,05,06,90,92,95,29,30,32,36,47,03,05,93,99,23,28,37,43,46,48,03,05,09,95,29,27,40,46,47,49,09,03,93,95,25,27,37,39,46,49,06,09,97,99,22,24,28,35,36,47,要求螺旋分组，并且输出到文本框2总共6组，每组5行（不省略了，全部列出来了）第1组 是第1，2，3，4，5行为一组第2组 是第2，3，4，5，6行为一组第3组 是第3，4，5，6，1行为一组第4组 是第4，5，6，1，2行为一组第5组 是第5，6，1，2，3行为一组第6组 是第6，1，2，3，4行为一组第1组04,09,39,36,37,40,43,45,48,49,05,06,90,92,95,29,30,32,36,47,03,05,93,99,23,28,37,43,46,48,03,05,09,95,29,27,40,46,47,49,09,03,93,95,25,27,37,39,46,49,第2组05,06,90,92,95,29,30,32,36,47,03,05,93,99,23,28,37,43,46,48,03,05,09,95,29,27,40,46,47,49,09,03,93,95,25,27,37,39,46,49,06,09,97,99,22,24,28,35,36,47,。。。。

'如果需要原程序，请留言。

'注：根据Text1的行数确定数组的个数
Private Sub Command1_Click()
Dim t() As String, i As Integer, j As Integer, lin As Integer

Text2.Text = ""

t = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(t) - 1

Debug.Print "第" & i + 1 & "组"
Text2.Text = Text2.Text & vbCrLf & "第" & i + 1 & "组"

lin = i
For j = 0 To 4 'UBound(t) - 1

Debug.Print t(lin + 1)
Text2.Text = Text2.Text & vbCrLf & t(lin + 1)

lin = lin + 1
If lin >= UBound(t) Then
lin = -1
End If

Next

Next

If Left(Text2.Text, 2) = vbCrLf Then
Text2.Text = Mid(Text2.Text, 3)
End If

End Sub

我的代码又重新改了一