請問如何能讓程式出來的數字不重複到(樂透號碼)

Aeroth

請參考:

1. Dim rand As New Random
   
2. 
   
3. Dim winnum As New List(Of Integer)
   
4. Dim num, counter As Integer
   
5. Dim result As String = ""
   
6. 
   
7. Do
   
8. num = rand.Next(1, 90)
   
9. If winnum.Contains(num) Then
   
10. Do
    
11. num = rand.Next(1, 90)
    
12. Loop Until winnum.Contains(num) = False
    
13. End If
    
14. winnum.Add(num)
    
15. counter += 1
    
16. Loop Until counter = 6
    
17. 
    
18. 'Extracting and displaying the numbers from the array
    
19. For n As Integer = 0 To 5
    
20. result = winnum(n) & " " & result
    
21. Next

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員