Program Latihan Perulangan Menggunakan VB Net

Program Latihan Perulangan Menggunakan VB Net

Buatlah program untuk menampilkan hasil dari perpangkatan dengan menggunakan perulangan. Misalnya : 2 Pangkat 3, hasilnya 8.

  Design Program dengan tampilan berikut ini :



Listing program latihan perulangan menggunakan VB Net

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
            bil.Items.Add(i)
            Pangkat.Items.Add(i)
        Next
    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 * bil.Text
        Next
        Hasil.Text = xh
    End Sub
End Class