[VB] Sayısal Loto Programı JJPP

Sayısal Loto Programı
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
For j = 1 To i - 1
If (Loto(i) = Loto(j)) Then
Check = False
Exit For
End If
Next j
Loop Until Check
Next i
'--------------------------------------------------
'Loto Sayılarını Küçükten Büyüğe Sırala
'--------------------------------------------------
For i = 1 To 6
For j = 1 To 5
If (Loto(j) > Loto(j + 1)) Then
hold = Loto(j)
Loto(j) = Loto(j + 1)
Loto(j + 1) = hold
End If
Next j
Next i
'------------Ekrana Sayıları Yaz-------------
For i = 1 To 6
lblN(i - 1) = Loto(i)
Next i
End Sub

Private Sub cmdend_Click()
End
End Sub

Private Sub Form_Load()
Randomize Timer
End Sub