[已解决]如何用vba得不重复随机数？

bbwsj

帮蓝色测试论坛新功能

随便偷了个题目来提问

在A2；A11用vba得到0～100之间的10个不重复随机整数

嘻嘻嘻嘻嘻嘻

估计这次没人扔臭鸡蛋了，大家扔代码吧  

最佳答案

月排行榜 / 总排行榜

搁浅2008

2010-2-22 21:29

Sub tt()
    Dim m As Long
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    Do
        m = Int(Rnd() * 101)
        d(m) = ""
    Loop Until d.Count = 10
    Range("A2:A11") = Application.Transpose(d.keys)
End Sub

跳转到最佳答案楼层

搁浅2008

Sub tt()
    Dim m As Long
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    Do
        m = Int(Rnd() * 101)
        d(m) = ""
    Loop Until d.Count = 10
    Range("A2:A11") = Application.Transpose(d.keys)
End Sub

搁浅2008

Sub aa()
    Dim i As Long
    i = 100
    Dim num As Long
    ReDim arr(i) As Long
    ReDim arr2(i, 0) As Long
    Dim x As Long
    For x = 0 To i
        arr(x) = x
    Next x
    For x = 0 To i
        num = Int(Rnd() * (i - x))
        arr2(x, 0) = arr(num)
        arr(num) = arr(i - x)
    Next x
    Range("A2:A11") = arr2
End Sub

zgq75468

搁浅是V的高手，学习一下，谢谢分享！

hytsky

记录一下，方便日后查找

w2001pf

学习了哟。