ini adalah kode program dari Menghitung Pangkat Bilangan
Private Sub cmd_hitung_Click()
Dim i As Integer
Dim B As Integer
B = 1
Angka = Val(txt_angka.Text)
Pangkat = Val(txt_pangkat.Text)
If Pangkat = 0 Then
txt_hsl.Text = 1
ElseIf Pangkat = 1 Then:
txt_hsl.Text = Angka
ElseIf Pangkat > 0 Then:
For i = 1 To Abs(Pangkat)
B = B * Angka
Next
txt_hsl.Text = Str(B)
Else
For i = 1 To Abs(Pangkat)
B = B * Angka
Next
txt_hsl.Text = Str(1 / B)
End If
End Sub
NB:
1. label1(name) = angka (Caption)
2. label2(name) = pangkat(Caption)
3. label3(name) = hasil (Caption)
4. txt_angka(name) = textbox buat label angka
5. txt_pangkat(name) = textbox buat label pangkat
6. txt_hasil(name)= textbox buat label hasil
7. cmd_hitung(name)= commandbutton buat Hitung
Selamat Mencoba,
Ridon-Na70
