Mencari Nilai Pangkat dengan Visual Basic

Berikut adalah langkah membuat program mencari nilai pangkat :
1. Buat 2 buah Label
2. buat 2 buah TextBox
3. Buat 3 buah CommandButton
4. Buat 1 buah ListBox

klik 2 kali form lalu ketik listing berikut :

Private Sub Form_Load()
Dim X, Y As Integer
Dim HSL As Long
Dim I As Byte
End Sub

klik 2 kali Command1/tombol_PAGKAT lalu ketik listing berikut :

Private Sub Command1_Click()
 X = Val(Text1.Text)
    Y = Val(Text2.Text)
    HSL = X
        For I = 1 To (Y - 1)
        HSL = HSL * X
    List1.Text = List1.Text & Str(HSL) & vbCrLf
    Next
End Sub

klik 2 kali Command2/tombol_CLEAR lalu ketik listing berikut :

Private Sub Command2_Click()
Text1 = Clear
Text2 = Clear
List1 = Clear
End Sub

klik 2 kali Command3/tombol_EXIT lalu ketik listing berikut :

Private Sub Command3_Click()
Unload Me
End Sub

Tekan tombol F5 pada keyboard untuk mengcompile/menjalankan program.
Selamat mencoba.........

Program Mencari Nilai Faktorial Visual Basic

Langsung aja ngak usah panjang lebar berikut adalah langkah membuat program menghitung nilai faktorial :

1. Buat  2 label
2. Buat 2 textbox
3. Buat 1 buah command

Perhatikan contoh berikut :

berikut adalah listing/source codenya :

double klik pada command1/tombol_hitung lalu isi dengan listing/source berikut :

Private Sub Command1_Click()

Dim x As Double

x = 1

For i = 1 To Text1.Text

x = x * i

Next i

Text2.Text = x

End Sub

double klik pada command2/tombol_baru lalu isi dengan listing/source berikut :

Private Sub Command2_Click()

Text1.Text = Clear

Text2.Text = Clear

End Sub

double klik pada command3/tombol_keluar lalu isi dengan listing/source berikut :

Private Sub Command3_Click()

Unload Me

End Sub

Selamat mencoba.......