请问怎么在文本框中生成不重复的随机数啊，用randomize生成的是重复的数还是不重复？

Randomize的作用是使程序每次运行时产生的随机数序列都不相同，比如第一次运行产生的是1、2、3……，下次再运行时产生的则是4、5、6……，如果不用Randomize则每次产生的都是1、2、3……
如果要产生不重复的随机数序列，可以有两种方法：
1.用数组保存每个已产生的随机数，当再次产生一个随机数时，与数组中已有的数字进行比较，如果已经出现过，则舍弃新产生的数，重新产生一个
2.把目标范围内所有的数字全部打乱顺序，然后按照打乱之后的顺序依次取出每个数，具体的打乱方法可以是：循环过一遍数组，把每个数都跟数组内随机位置的一个数交换一次位置

'　生成 20 个 10 到 n 之间的随机数
Dim n As Integer, S(1 To 20) As Integer
n = Val(InputBox("随机数的最大数 n", "输入n", "60"))
Randomize
Picture1.Cls
s(1) = Int((n - 9) * Rnd + 10)
For i = 2 To 20
s(i) = Int((n - 9) * Rnd + 10)
For j = 1 To i - 1 '　判断随机数是否重复
If s(i) = s(j) Then i = i - 1
Next
Next

生成不重复的随机数，主要是内循环的判断，可以一行搞定：
For j = 1 To i - 1: If s(i) = s(j) Then i = i - 1: j = i: Next

'　有20个人，每人手中持有一张票，票号的范围是76～95，
'　现在要随机抽出10个人来领奖品，
'　以每行五个号的格式，显示出这10个人的票号。
'　对于范围小，随机数多的情况，就要使用【随机乱序】方法：
Dim S(1 To 20) As Integer, cc As String
Dim i As Integer, j As Integer, T As Integer
'　将数据装入数组
For i = 1 To 20: S(i) = 95 - i: Next
Randomize
For i = 1 To 20 '　随机乱序
j = Int(Rnd * 10 + 1)
T = S(i): S(i) = S(j): S(j) = T
Next
cc = "抽出的票号是：" & vbCrLf
For i = 1 To 10
cc = cc & CSt(S(i))
If i Mod 5 = 0 Then
cc = cc & vbCrLf
Else
cc = cc & Space(5)
End If
Next
MsgBox cc, 0 + 64, "输出结果"