3.3 tugas visual basic

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
End Sub

Private Sub Cmdproses_Click()
Dim s As String
s = Left(txtkt, 3)
If s = "BIM" Then
txtjk = "BIMA"
txtht = "50000"
txtjb = "16.00"
ElseIf s = "EKO" Then
txtjk = "EKONOMI"
txtht = "35000"
txtjb = "19.00"
ElseIf s = "MUT" Then
txtjk = "MUTIARA"
txtht = "23000"
txtjb = "17.00"
ElseIf s = "SEN" Then
txtjk = "SENJA"
txtht = "15000"
txtjb = "20.00"
End If
txttotalp = Val(txtjt) * Val(txtht)
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtjt) * Val(txtht)
End If
End Sub