Gaji Pegawai Menggunakan VB 2008

Soal nya sebagai tertera di atas 
Penyelesaian nya 

Berikut Listing programnya
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pegawai.Items.Add("sitinjak")
        pegawai.Items.Add("zafar")
        pegawai.Items.Add("Putra")
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IIIC")
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        Select Case gol.Text
            Case "IIIA" : gaji.Text = "1500000"
            Case "IIIB" : gaji.Text = "2500000"
            Case "IIIC" : gaji.Text = "3500000"
        End Select
        pajak.Text = 0.15 * gaji.Text
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        gajibersih.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(gajibersih.Text)
    End Sub

    Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
        pegawai.Text = ""
        gol.Text = ""
        gaji.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        gajibersih.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
End Class

HASIL SCREEN SHOT NYA 

 

Semoga bermanfaat :)