一个问题提交了N次，都交不上，

来源：百度知道 编辑：UC知道 时间：2024/06/07 03:31:24
TEXT1=01，02，03，04，05，06，07，08，09，10
点了COMMAND1后，系统强制随机选择5个数，
当选了第一个数以后，系统会把相对应的TXTP里的数值与TEXT1中的数值进行对比，如果有相同的值，就删除TEXT1中相同的数值，
第二位，第三位，第四位，第五位，也是这样，
如：TEXT1=01，02，03，04，05，06，07，08，09，10
点COMMAND1
TEXT63=02
02的TXTP（2）=03，04
删除TEXT1中的03，04
TEXT1=01，05，06，07，08，09，10
系统会再对TEXT1进行随机选择第二位，
TEXT63=02，06
06的TXTP（6）=07
删除TEXT1中的07
TEXT1=01，05，08，09，10
系统会再对第三位进行随机选择，
第四位，第五位，也是这样，

你是要源程序?
如果是的话要把你的数据类型和格式写出来啊.
这个是我大概估摸着搞的
界面自己建,你要的功能都在
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 5
Text1 = Replacestr(Text1)
Next
End Sub
Function getnum(s As String) As Integer
Dim start As Integer, n As Integer
start = 1
n = 0
Do
start = InStr(start, s, ",")
n = n - (start > 0)
Loop While start
getnum = n - (s <> "")
End Function
Function Replacestr(s As String) As String
Dim l As Integer, i As Integer, t As String
t = Mid(s, Int(getnum(s) * Rnd + 1) * 3 - 2, 2)
Text63 = Text63 & "," & t
l = CInt(t)
For i = 1 To getnum(TXTP(l))
t = Mid(TXTP(l), i * 3 - 2, 2)
If InStr(s, t & ",") Then s = Replace(s, t & ",", "") Else s = Replace(s, t, "")
Next i
Replacestr = s
End Function