Jawaban Soal Kuis No. 2

1. Tampilan Form Akhir

 2. Atur Settingan Seperti Berikut :

 Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Namapegawai.Items.Add("UMMI")
        Namapegawai.Items.Add("RIYO")
        Namapegawai.Items.Add("WAHYU")
        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
        Dim X As String
        X = Microsoft.VisualBasic.Left(Gol.Text, 4)
        Select X
            Case "IIIA"
                Gaji.Text = "1500000"
                Pinjaman.Text = "300000"             Case "IIIB"
                Gaji.Text = "2500000"
                Pinjaman.Text = "150000"             Case "IIIC"
                Gaji.Text = "3500000"
                Pinjaman.Text = "200000"         End Select
        Pajak.Text = 0.015 * Gaji.Text     End Sub     Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Gajibersih.Text = Val(Gaji.Text) - Val(Pinjaman.Text) - Val(Pajak.Text)     End Sub     Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub
End Class