怎么筛选出6个完全相同数的数

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:52:57
怎么筛选出6个完全相同数的数
小弟不懂vb请高手帮忙编写

Text1窗口有多行数据：01-33之间的数据
07 25 03 14 29 18
32 30 31 01 21 06
13 33 28 30 27 31
03 05 02 01 04 06
05 02 03 04 06 01
02 03 01 04 06 05
点comd1 把2行以上完全相同（顺序不管，只要求6个数相同）的数放入Text2窗口得
01 02 03 04 05 06

放入两个文本框(文本框的多行显示和垂直滚动条打开)
两个按钮

Private Sub Command1_Click()
Randomize Timer
Dim tmp As String
Text1.Text = ""
For i = 1 To 30
tmp = ""
For j = 1 To 6
tmp = tmp & Format((Int(Rnd * 33) + 1), "00") & " "
Next j
Text1.Text = Text1.Text & Trim(tmp) & vbCrLf
Next i

End Sub

Private Sub Command2_Click()
Dim s As String
Dim str As String
s = ""
str = ""
s = Text1.Text
a = Split(s, vbCrLf)
For i = 0 To UBound(a) - 1
str = str & PaiXv(a(i)) & vbCrLf
Next i
Text2.Text = Find_Same(str)
End Sub

Private Function PaiXv(ByVal data As String)
a = Split(Trim(data), " ")
For i = 0 To UBound(a)
Dim tmp As String
For j = i To UBound(a)
If Int(a(i)) > Int(a(j)) Then