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.........