Sayısal Loto — Visual Basic 6
Sayısal Loto — Visual Basic 6
Private Sub Command1_Click() List1.Clear Dim dizi(6) As Integer Dim sayi, j As Integer Dim buldu As Boolean sayi = 0 j = 0 buldu = False For i = 0 To 5 buldu = False Do While buldu = False sayi = Int((49 * Rnd) + 1) For j = 0 To 5 If dizi(j) = sayi Then Exit For End If Next If j = 6 Then dizi(i) = sayi buldu = True End If Loop Next For i = 0 To 5 List1.AddItem (dizi(i)) Next i End Sub
