X HANELİ BİRBİRİNDEN FARKLI SAYI ÜRETMEK

Öncelikle biz 4 haneli yapalım
bunun için dört farklı değişken tanımlayalım

Bu kodları butona yazıyoruz eğer form yüklenirken yani programın açılışını direk oluştursun diyorsanız formun load kısmına yazın.

Dim a, b, c, d As Integer

Daha sonra aşağıdaki kodları altına yazalım (4 Haneli için)
Kaç haneli yapacaksak o kadar değişken ve attaki
Int(Rnd() * 10) kodunu tüm değişkenlere yazıyoruz


Randomize() 'Her seferinden farklı sayı üsretmesi için
a = Int(Rnd() * 10)'Birinci hane için
b = Int(Rnd() * 10)'İkinci hane için
c = Int(Rnd() * 10) 'Üçüncü hane için
d = Int(Rnd() * 10)'Dördüncü hane için
TextBox1.Text = a & b & c & d 'Textbox'ın içinde Gözükmesi İçin