说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

產生隨机函數

编辑:说三道四文库 发布时间:2018-08-18 04:49
HTML文档下载 WORD文档下载 PDF文档下载
如何產生10个1-30之间无重复的随机数(包括1和30,也可以不包括)
就象這樣的
第一次
1,2,4,5,8,10,12,14,16,30
第二次
2,3,7,9,11,13,15,17,21,29
第三次
1,4,6,8,9,11,14,17,25,27
n次
..........

For i = 1 To 10
    MsgBox Int((10 * Rnd) + i)
Next i
n次外面再套1层循环就可以了
加上Randomize
Private Sub Command1_Click()
    Dim arr&(30), sort&(10), maxArr&
    
    maxArr = 30
    For i = 1 To 30
        arr(i) = i
    Next
    
    For i = 1 To 10
        r = Rnd * (maxArr - 1) + 1
        sort(i) = arr(r)
        arr(r) = arr(maxArr)
        maxArr = maxArr - 1
    Next
    
    Label1.Caption = ""
    For i = 1 To 10
        Label1.Caption = Label1.Caption & sort(i) & " "
    Next
End Sub

太複雜了,有沒有簡單一點的
楼上的把30改为10就满足楼主的要求了
不是吧,这还复杂,楼主不是在打击我吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘