来答问题者给分~~~少了再补给你~~~！解决者再补分给！！！

Question

怎么产生一个数字不重复的4位随机数？
例如：1123 和 2233 都不行  1123 中11重复  2233中2和3都重复

Answer 1

把0 ～ 9 这10个数字放在数组M中；
N 从 1 到 4 循环：
    产生一个[N ＋ 1, 10]之间的随机数R；
    把M中第N个数和第R个数交换。
NEXT N这时候取出前面4个数就可以了。

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    Dim strTmp As String
    Dim strRet As String
    For i = 1 To 4
        Do
        strTmp = Int(Rnd() * 10)
        Loop While InStr(1, strRet, strTmp) > 0
        strRet = strRet + strTmp
    Next
    MsgBox strRet
End Sub

Answer 3

前面给你的那个例子生成的是字符串型的，你可以用val()函数转换成为数值型的。另外，有一种可能是第一位数为"0"这种情况经过val以后就只有3位，由于不知道你需要的到底是数值型的海是字符串型的所以我没有做处理，楼主可以自己处理。

Answer 4

呵呵，chewinggum(口香糖·dotnet转型中) 都已经写出代码了，楼主的问题应该解决了哦。

Answer 5

chewinggum(口香糖·dotnet转型中)的方法是可以的。

Answer 6

chewinggum(口香糖·dotnet转型中) 的是可以的

Answer 7

fishzone(阿愚@脸上没疤) 的方法更可行吧，应该更简单一些。

Answer 8

我这段代码虽然罗嗦，但是非常有效哟！Private Sub Command1_Click()
    Dim x As Integer '欲生成的四位随机数
    Dim i As Integer
    Dim n(1 To 4) As Integer
l1:
    n(1) = Int(Rnd * 10)
    If n(1) = 0 Then GoTo l1 '第一位数字不能为0
l2:
    n(2) = Int(Rnd * 10)
    If n(2) = n(1) Then GoTo l2:
l3:
    n(3) = Int(Rnd * 10)
    If n(3) = n(1) Or n(3) = n(2) Then GoTo l3
l4:
    n(4) = Int(Rnd * 10)
    If n(4) = n(1) Or n(4) = n(2) Or n(4) = n(3) Then GoTo l4
    
    x = n(1) * 1000 + n(2) * 100 + n(3) * 10 + n(4)
    
    MsgBox x '显示结果
    
End Sub

Answer 9

Dim col As Collection
    Dim i As Integer
    Dim Index As Integer
    Dim s As String
    Set col = New Collection
    For i = 1 To 9
        col.Add i
    Next i
    Randomize
    For i = 1 To 4
        Index = (col.Count - 1) * Rnd + 1
        s = s & CSng(col(Index))
        col.Remove Index
    Next i
    Set col = Nothing

Answer 10

上面没考虑0，改一下：    Dim Col As Collection
    Dim i, j, Index As Long
    Dim s As String
100
　　Set col = New Collection
    For i = 0 To 9
        Col.Add i
    Next i
    Randomize
    For i = 1 To 4
        Index = (Rnd * (Col.Count - 1)) + 1
        s = s & CSng(Col(Index))
        Col.Remove Index
    Next i
    Set Col = Nothing
    j = CLng(s)
    If j < 1000 Then GoTo 100
    Debug.Print s

Answer 11

是啊，chewinggum(口香糖·dotnet转型中)的方法是可以的

Answer 12

楼上的说法 和 vbman2003(家人) 类似。