Sayısal Loto Programı

Public Class Form1 
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          Dim sayilar(5) As Integer 'Sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu. 
          Dim rsayi, sayac As Integer 
          sayac = 0 'visualbasicdersleri.com 
          While sayac < 6 
              rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor 
              If (Array.IndexOf(sayilar, rsayi) = -1) Then 
                  sayilar(sayac) = rsayi 
                  sayac = sayac + 1 
              End If 
          End While 
          Array.Sort(sayilar) 
          Label1.Text = sayilar(0) 
          Label2.Text = sayilar(1) 
          Label3.Text = sayilar(2) 
          Label4.Text = sayilar(3) 
          Label5.Text = sayilar(4) 
          Label6.Text = sayilar(5) 
      End Sub 
  End Class