摘要： 1 Module RandNumber 2 Public Nums() As Integer 3 Public Sub StartCreateNumber(TopNumber As Integer) 4 Dim i, j, k As Integer 5 Dim temp(TopNumber) As Integer 6 ReDim Nums(TopNumber) 7 Dim rnd As New Random(Seed:=Date.Now.Second) 8 For i = 1 To TopNumb... 阅读全文