我在用VB6.0编程时遇到了难题 请帮帮我

来源：百度知道 编辑：UC知道 时间：2024/05/03 10:47:12
首先，是从0~9中随机选一个数，该动作进行八次得到一个数组text1(i).text
接着，去掉里面相同的数（如，10584757，就变成了105847）（5和7重复了去掉）
然后，是0到9检测反选（即如上面数据，就得到了2369）（105847 和 2369组成了0~9 应该懂吧）
第一步我会的，下面两步我想了很久，谁可以帮帮我，谢谢你了

代码：

Private Sub Command1_Click()
Dim str As String
Dim str1 As String
Dim str2 As String

Dim digit As Long
Dim exist(0 To 9) As Boolean
Dim x As Long

' #1
For x = 1 To 8
digit = Int(Rnd() * 10)
str = str & digit
Next
Print "str = " & str

' #2
For x = 0 To 9
exist(x) = False
Next

For x = 1 To 8
digit = Val(Mid(str, x, 1))
If exist(digit) = False Then
exist(digit) = True
str1 = str1 & digit
End If
Next
Print "str1 = " & str1

' #3
For x = 0 To 9
exist(x) = False
Next

For x = 1 To Len(str1)
digit = Val(Mid(str1, x, 1))
exist(digit) = True
Next