3.1 tugas visual basic

Private Sub Cmdhitung_Click()
Cbokode.SetFocus
Cbokode = ""
txtmrk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""

End Sub

Private Sub Cmdkeluar_Click()
End

End Sub

Private Sub Cmdproses_Click()
Dim s, DISC As String
s = Mid(Cbokode, 7, 5)
If s = "mc965" Then
txtmrk = "Apple macbook air mc965"
txths = "12800000"
ElseIf s = "MC966" Then
txtmrk = "Apple macbook air mc966"
txths = "15800000"
ElseIf s = "mc966" Then
txtmrk = "apple macbook air mc968"
txths = "9900000"
ElseIf s = "mc968" Then
txtmrk = "apple macbook air mc969"
txths = "11900000"
ElseIf s = "mc969" Then
txtmrk = "apple macbook air mc700"
txths = "10800000"
ElseIf s = "mc700" Then
txtmrk = "apple macbook air mc721"
txths = "15900000"
ElseIf s = "mc721" Then
txtmrk = "apple macbook air mc723"
txths = "19300000"
ElseIf s = "mc723" Then
txtmrk = "apple macbook air mc724"
txths = "13700000"
ElseIf s = "mc724" Then
txtmrk = "apple macbook air mc311"
txths = "24200000"
ElseIf s = "mc311" Then
txtmrk = "apple macbook air mc313"
txths = "11900000"
ElseIf s = "mc313" Then
txtmrk = "apple macbook air mc314"
txths = "14700000"
ElseIf s = "mc314" Then
txtmrk = "apple macbook air mc318"
txths = "17600000"
ElseIf s = "mc318" Then
txtmrk = "apple macbook air mc322"
txths = "21300000"
ElseIf s = "mc322" Then
End If
txthp = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
DISC = 0.15 * Val(txthp)
Case Is > 135000000
DISC = 0.05 * Val(txthp)
Case Is > 130000000
DISC = 0.02 * Val(txthp)
End Select
txtdis.Text = DISC
txttb = txthp - DISC
End Sub


Private Sub Form_Load()
Cbokode.AddItem "apple mc965 macbook air"
Cbokode.AddItem "apple mc966 macbook air"
Cbokode.AddItem "apple mc968 macbook air"
Cbokode.AddItem "apple mc969 macbook air"
Cbokode.AddItem "apple mc700 macbook air"
Cbokode.AddItem "apple mc721 macbook air"
Cbokode.AddItem "apple mc723 macbook air"
Cbokode.AddItem "apple mc724 macbook air"
Cbokode.AddItem "apple mc311 macbook air"
Cbokode.AddItem "apple mc313 macbook air"
Cbokode.AddItem "apple mc314 macbook air"
Cbokode.AddItem "apple mc318 macbook air"
Cbokode.AddItem "apple mc322 macbook air"
End Sub