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

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