İnteger tipinde faktöriyel alma ;
Dim sayac, fakt As Integer
fakt = 1
For sayac = 1 To TextBox4.Text
fakt = fakt * sayac
Next
MsgBox("Sonuç : " & fakt)
Forma 1 textbox 1 de buton ekle bu kodları butonun içine yaz textbox4 yazan yeri sen textbox1 yaparsın.
Long ile yapılmışı
Dim sayac, fakt As Long
fakt& = 1
For sayac& = 1 To TextBox4.Text
fakt& = fakt * sayac
Next
MsgBox("Sonuç : " & fakt)
Integer :
Visual Basic’te tam sayi degiskenleri tanimlamak için kullanilir. Hafizada 2 byte yer kaplarlar. Alabilecegi deger araligi -32768 ile +32767 arasindadir.DefInt bildiri deyimi ile tanimlanabilirler. Ayrica bir degiskenin sonunda % karakteri bulunuyorsa bu degisken integer tipindedir.
Long :
Daha büyük bir aralikta integer yani tamsayi tanimlamak için kullanabilecegimiz bir veri tipidir. Hafizada 4 byte yer kaplar. Kullanilabilecek uç degerler +2,147,483,647 ile -2,147,483,648 dir. Long tipinde bir degisken tanimlamak için DefLng bildirimini veya degisken sonunda & karakterini kullanabiliriz.