VB一组数据随机换行

11 13 25 37 57
22 14 26 38
83 15 27 39
64 16 28 40
25 17 29 41
16 18 30 42
37 19 31 43
18 20 32 44
99 21 33 45
10 22 34 46
11 23 35 47
12 24 36 48

随机换行,随机把每行换动位置,生成40组,如图:

http://hiphotos.baidu.com/wenyiyangjin/pic/item/43d5b5439c1c7f069213c690.jpg

谢谢

'把下面代码复制到文本文件并保存为Form1.frm，然后打开此文件并按f5运行。 保存成frm文件，楼上的朋友忘记把text1里的数据放上去了。我改了下，放数据原来用text2改成listbox，速度快很多。

VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
Caption = "Form1"
ClientHeight = 5940
ClientLeft = 3795
ClientTop = 3180
ClientWidth = 6810
LinkTopic = "Form1"
ScaleHeight = 5940
ScaleWidth = 6810
Begin VB.CommandButton Command2
Caption = "退出"
Height = 495
Left = 5760
TabIndex = 5
Top = 960
Width = 975
End
Begin VB.TextBox Text3
Height = 495
Left = 5760
TabIndex = 3
Text = "40"
Top = 2280
Width = 855
End
Begin VB.CommandButton Command1
Caption = "换行"
Height = 495
Left = 5760
TabIndex = 2
Top = 240
Width = 975
End
Begin VB.TextBox Text2
Height = 5655
Left = 2640
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 120
Width = 2895
End
Begin VB.TextBox Text1
Height = 5655
Left = 120
MultiLine = -1 'True
TabIndex = 0
Top = 120
Width = 2415
End
Begin VB.Label Label1
Caption = "组数："
Height = 375
Left = 5760
TabIndex = 4
Top = 1800
Width = 735
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text2 = ""
For I = 1 To Val(Text3.Text)
Call onceclick
Next I
End Sub

Sub rnds(data%())
Randomize
Dim I%, J%, NB%, N As Boolean
ReDim data(0 To 11)
For I = 0 To 11
data(I) = -1
Next I
For I = 0 To 11
N = False
NB = Int(Rnd * 12)
Do Until N
For J = 0 To 11
If data(J) = NB Then NB = Int(Rnd * 12): Exit For
Next J
If J = 12 Then N = True
Loop
data(I) = NB
Next I
End Sub

Sub onceclick()
Dim a
Dim b%()
s = Text1
a = Split(s, vbCrLf)
Randomize
rnds b
For I = 0 To 11
Text2 = Text2 & a(b(I)) & vbCrLf
Next I
Text2 = Text2 & vbCrLf
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1 = "11 13 25 37 57 " & vbCrLf & "22 14 26 38" & vbCrLf & "83 15 27 39" & vbCrLf & "64 16 28 40" & vbCrLf & "25 17 29 41" & vbCrLf & "16 18 30 42 " & vbCrLf & "37 19 31 43" & vbCrLf & "18 20 32 44" & vbCrLf & "99 21 33 45 " & vbCrLf & "10 22 34 46" & vbCrLf & "11 23 35 47" & vbCrLf & "12 24 36 48 "
End Sub
参考资料：网络