雨點滴滴在心頭

樂透程式碼
Sub lote()
Cells(1, 1) = Int((49 - 1 + 1) * Rnd + 1)
Cells(1, 2) = Int((49 - 1 + 1) * Rnd + 1)
 Do
 Cells(1, 2) = Int((49 - 1 + 1) * Rnd + 1)
 Loop While Cells(1, 2) = Cells(1, 1)
Cells(1, 3) = Int((49 - 1 + 1) * Rnd + 1)
Do
 Cells(1, 3) = Int((49 - 1 + 1) * Rnd + 1)
 Loop While Cells(1, 3) = Cells(1, 2) Or Cells(1, 3) = Cells(1, 1)
Cells(1, 4) = Int((49 - 1 + 1) * Rnd + 1)
Do
 Cells(1, 4) = Int((49 - 1 + 1) * Rnd + 1)
 Loop While Cells(1, 4) = Cells(1, 3) Or Cells(1, 4) = Cells(1, 3) Or Cells(1, 4) = Cells(1, 2) Or Cells(1, 4) = Cells(1, 1)
 
Cells(1, 5) = Int((49 - 1 + 1) * Rnd + 1)
Do
 Cells(1, 5) = Int((49 - 1 + 1) * Rnd + 1)
 Loop While Cells(1, 5) = Cells(1, 4) Or Cells(1, 5) = Cells(1, 3) Or Cells(1, 5) = Cells(1, 2) Or Cells(1, 5) = Cells(1, 1)
Cells(1, 6) = Int((49 - 1 + 1) * Rnd + 1)
Do
 Cells(1, 6) = Int((49 - 1 + 1) * Rnd + 1)
 Loop While Cells(1, 6) = Cells(1, 5) Or Cells(1, 6) = Cells(1, 4) Or Cells(1, 6) = Cells(1, 3) Or Cells(1, 6) = Cells(1, 2) Or Cells(1, 6) = Cells(1, 1)
End Sub