Tampilannya adalah :



dan Source Code nya adalah :

Private Sub cmdproses_Click()
Dim kode As String
kode = UCase(txtkdjrs.Text)
Select Case kode
Case "11 A"
txtjrs.Text = "Akuntansi"
txtkls.Text = "Siang"
txtbps.Text = 950000
Case "11 B"
txtjrs.Text = "Akuntansi"
txtkls.Text = "Malam"
txtbps.Text = 950000
Case "12 A"
txtjrs.Text = "MI"
txtkls.Text = "Siang"
txtbps.Text = 980000
Case "12 B"
txtjrs.Text = "MI"
txtkls.Text = "Malam"
txtbps.Text = 980000
End Select

If txtjrs.Text = "Akuntansi" And txtkls.Text = "Malam" Then
txtbt.Text = 200000
ElseIf txtjrs.Text = "MI" And txtkls.Text = "Malam" Then
txtbt.Text = 250000
Else
txtbt.Text = 0
End If
txttotal.Text = Val(txtbps.Text) + Val(txtbt.Text)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub