VB问题，请求帮助给50分

来源：百度知道 编辑：UC知道 时间：2024/05/14 10:39:38
例如：在TEXT1.TXt中输入01，02，03，04，05，06，07，11，13
当按下COMMAND1会提示“请问你选择几次”
在TEXT2.TXT中输入5次，
系统会从上面的9位数中，随机选择4位，不相重，共5次，
输出结果到TEXT10.TXT比如是：
01，03，04，06
03，06，07，13
06，07，11，13
02，04，05，13
01，03，07，13
每行四位，这四位不相重，

注意上面的数字必须是01，02的方式，当过10以后就不须要了，
输入出的结果也得像上面，四个值为一行，

然后击COMMAND2对上面TEXT10中的5行值保存到一个数据库中，

在TEXT3.TXT中输入：01，02，04，06
当点击COMMAND3，会把TEXT3中的值于保存在数据库中的五行值对比，

按上面的输出结果保存在TEXT11.TXT中，
结果显示：

01，03，04，06 相同的值有：2位
02，04，05，13 相同的值有：2位

显示的结果：为和数据库对比有两位以上相同的一行，相同的值以加粗显示，
旁边的“相同的值有：X位，在TEXT11以外的面板上，显示

希望可以做的朋友帮个忙，
60分了,就没人来帮我吗?

没人帮我就帮帮你搞吧……
不过数据库文件需要创建哦，7kz.mdb，表名fp，字段名ID(主键，自动编号)、n1(文本)、n2(文本)、n3(文本)、n4(文本)。谨记，必须引用Microsoft ActiveX Data Objects 2.X Library

'工程->引用->Microsoft ActiveX Data Objects 2.X Library
Option Explicit
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim Cnt As Integer '数据库数据总行数

Private Sub Command1_Click()
Dim t1n() As String, tmp$, m%, n%, i%
Text10.Text = ""
t1n = Split(Text1.Text, "，")
For i = 1 To Val(Text2)
n = 0
tmp = ""
Do
m = Int(Rnd * (UBound(t1n) + 1)) '生成代表各个数字相应位置的随机数
'判定数字是否重复
If InStr(1, tmp, t1n(m)) = 0 Then
tmp = tmp & "，" & t1n(m)
Text10.Text = Text10.Text & t1n(m) & "，"
n = n + 1
End If
Loop Until n = 4
Text10