Foruma 6 adet textbox ve 1 adet buton ekleyelim
Forum:
Private Sub Command1_Click()
Dim karşılaştırma As Boolean
Dim a As Integer
Dim b As Integer
Dim temp As Integer
Dim sayı(1 To 6) As Integer
sayı(1) = Int(Rnd * 49) + 1
'birbirinin aynı olmayan 6 rakam uretelim
For a = 2 To 6
Do
sayı(a) = Int(Rnd * 49) + 1
karşılaştırma = True
For b = 1 To a - 1
If sayı(a) = sayı(b) Then
karşılaştırma = False
Exit For
End If
Next b
Loop Until karşılaştırma
Next a
'Sayıların sıralamasını yapalım
For a = 1 To 6
For b = 1 To 5
If sayı(b) > sayı(b + 1) Then
'Temp değişkeni kullanılarak sayılar yer değiştiriliyor
temp = sayı(b)
sayı(b) = sayı(b + 1)
sayı(b + 1) = temp
End If
Next b
Next a
'sayıları yazdıralım
For a = 1 To 6
Text1(a - 1) = sayı(a)
Next a
End Sub
Private Sub Form_Load()
Randomize
End Sub
Programın Gorunuşu Buyrun:
http://img23.**************/img23/4818/adszozd.jpg
Alıntıdır
Yorumlarınızı Esirgemeyim
__________________