Contoh Program menghitung factorial angka menggunakan visual basic

Alogaritma


Baca n (input bilangan factorial)
selagi n > 0
Hitung F = F * n
n = n-1
tulis hasil F
selesai


Menerjemahkan Ke Visual Basic
Visual Basic (VB) memeliki GUI yang menarik, dan memudahkan user untuk berinteraksi, untuk menerjemahkan alogaritma tersebut ke dalam visual basic, hal yang perlu dilakukan adalah
1. Mendesain Input dan output
karena hanya terdapat satu input dan satu ouput, saya hanya menggunakan 2 buah textbox di visual basic, 2 buah label untuk memberi keterangan dan satu buah command button untuk mengeksekusi perintah.
2. Memasukkan code
dalam visual basic untuk memasukkan code dapat dilakukan dengan mengklik dua kali (hal ini dapat dilakukan dalam desain mode) lalu masukkan code sesuai dengan alogaritma yang sudah ditulis diatas.

properties dari command button 1 saya caption nya menjadi hitung, sedangkan properti lainya tidak saya rubah, di menu properti ini sebetulnya kita juga dapat merubah warna, nama ukuran, dan lain sebagaianya.




Private Sub CommandButton1_Click() ' perintah akan dilakukan ketika commandbutton 1 di klik
Dim n As Integer ' deklarasi variable dan jenis yang dipakai
Dim F As Long: F = 1 ' deklarasi variabel
n = txtinput.Text ' membaca input angka yang akan difactorialkan
While (n > 0) ' selagi n lebih besar dari nol
F = F * n 'Mengalikan
n = n - 1 'mengurangi
Wend
txthasil.Text = F 'menulis hasil akhir pada txt hasil
end
hasilnya ketika di running adalah sebagai berikut

gambar berikut ketika dimasukkan input yang akan dihitung adalah 10 !

yang perlu diperhatikan dalam visual basic ketika menggunakan while adalah untuk akhirnya menggunakan perintah wend  bukan end