| Option Explicit
Private Sub cmdoyna_Click()
Dim Loto(1 To 6) As Integer
Dim Check As Boolean
Dim i, j, hold As Integer
Loto(1) = Int(Rnd * 49) + 1
For i = 2 To 6
Do `Aynı sayının 2 kez gilmesini engellemeliyiz...
Loto(i) = Int(Rnd * 49) + 1
Check = True
F
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |
