不重复随即生成数字和排序

Option Explicit

Dim get_num(1000), aaa, k, i As Integer

Private Sub Command1_Click()    Randomize    Erase get_num    List1.Clear    List2.Clear    k = 0        Do While k < 100     aaa = Int(Rnd * 1000)         If get_num(aaa) <> 1 Then               k = k + 1               get_num(aaa) = 1         End If    Loop         For i = 1 To 1000      If get_num(i) = 1 Then            List1.AddItem i            List2.AddItem i, 0      End If    Next i    End Sub