如何在1～100的数字中随机抽取10个数字，要求不重复.

Question

如何在1～100的数字中随机抽取10个数字，要求不重复.

Answer 1

用rnd函数放进数组，然后再判断

Answer 2

Dim bStop As Boolean 
    Dim n(1 To 100), i, j, q 
     
    Private Sub Command1_Click() 
     Command1.Visible = False 
     Randomize Timer 
     While j < 10 
     q = Int(Rnd(1) * 100 + 1) 
     Label1.Caption = q: DoEvents 
     If n(q) = 0 And bStop = True Then 
     Print q 
     n(q) = 1 
     j = j + 1 
     bStop = False 
     End If 
     Wend 
    End Sub 
     
    Private Sub Command2_Click() 
     bStop = True 
    End Sub 
     
    Private Sub Form_Load() 
     For i = 1 To 100
     n(i) = 0 
     Next 
     j = 0 
     bStop = False 
    End Sub