UC知道vb数字分组
来源：百度知道 编辑：UC知道 时间：2024/06/10 11:12:52
窗体上有3个text控件text1，text2，text3）和一个Command1
text1，text2来用输入数字，text3用来显示结果
要现实如下过程：
在text1输入若干个的数字，数字与数字之间用,隔开（例如0，5，3，4，2，8，7
，9，）。然后在text2里输入5（仅能输入1-5这5个数）
然后按下Command1，会把在text1里输入的数随机分成6个数字的数组若干组，但
每一组里不能有相同的数字。分成多少组由text2来决定！
例如在text1的输入0，5，3，4，2，8，7，9， 然后在text2里输入3的 当按下
Command1后text3显示如下内容：
0，8，7，3，4，5
7，5，2，9，0，8
3，2，0，7，9，5
帮帮〔写下代码
text1，text2来用输入数字，text3用来显示结果
要现实如下过程：
在text1输入若干个的数字，数字与数字之间用,隔开（例如0，5，3，4，2，8，7
，9，）。然后在text2里输入5（仅能输入1-5这5个数）
然后按下Command1，会把在text1里输入的数随机分成6个数字的数组若干组，但
每一组里不能有相同的数字。分成多少组由text2来决定！
例如在text1的输入0，5，3，4，2，8，7，9， 然后在text2里输入3的 当按下
Command1后text3显示如下内容：
0，8，7，3，4，5
7，5，2，9，0，8
3，2，0，7，9，5
帮帮〔写下代码
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim DifNum(5) As Integer
Dim Arr
If Val(Text2.Text) < 1 Or Val(Text2.Text) > 5 Then
MsgBox "请输入1-5范围内的整数！"
Else
Text3.Text = ""
Arr = Split(Text1.Text, ",")
If UBound(Arr) < 5 Then
MsgBox "输入数据不够6个！"
Exit Sub
Else
For i = 1 To Val(Text2.Text)
For j = 0 To 5
Randomize
RE:
DifNum(j) = Rnd * UBound(Arr)
If j > 0 Then
For k = 1 To j
If DifNum(j) = DifNum(j - k) Then
GoTo RE
End If
Next k
End If
Next j
For j = 0 To 5
Text3.Text = Text3.Text & Arr(DifNum(j)) & ","
Next j
Text3.Text = Left(Text3.Text, Len(Text3.Text) - 1) & vbCrLf