Contoh Sederhana Visual Basic Mencari Nilai Bilangan Berpangkat

Terlebih dahulu buatlah desain Form seperti gambar di atas yang terdiri dari:
- 2 Combobox
- 3 Label
- 1 Textbox
Ubah name combobox pertama menjadi bilangan, ubah name combobox yang ke dua jadi pangkat, dan ubah name textbox menjadi hasil.
dan berikut kode programnya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 10
            bilangan.Items.Add(i)
            pangkat.Items.Add(i)
        Next i
    End Sub

    Private Sub pangkat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkat.SelectedIndexChanged
        Dim xh As Double = 1
        For i = 1 To Val(pangkat.Text)
            xh = xh * bilangan.Text

        Next i
        hasil.Text = xh
    End Sub
End Class

Tweet