2107/11/27 武汉市城市规划设计院面试情况小记(2)

使用EXCEL 生成不重复的随机数的VBA程序

Option Base 1Const M As Integer = 100Const N As Integer = 60Private Sub CommandButton1_Click()Dim i As Integer, a(M) As Integer, x As Integer, arr(1 To N)'从100个数中选择60个数，这60个数不能重复，Do While i < N  x = Int(Rnd * (M - 1) + 1)  If a(x) = 0 Then    a(x) = 1    i = i + 1    arr(i) = x '结果放到数组当中待用  End IfLoopFor j = 1 To M    Cells(j, 1) = 0    Cells(j, 2) = Round(Rnd * (3# - 2#) + 2#, 2)    Cells(j, 3) = Round(Rnd * (0.2 - 0.13) + 0.13, 2)    Cells(j, 4) = Round(Rnd * (0.7 - 0.5) + 0.5, 2)Next jFor l = 1 To N    Cells(arr(l), 1).Value = 1 '60个数组的位置赋值为1Next lEnd Sub