Kode Pengurangan

 

 Kode Hitung

Private Sub cmdhitung_Click()

txthasil.Text = Val(txtnilaipertama.Text) + Val(txtnilaikedua.Text) - Val(txtnilaiketiga.Text)

End Sub

Kode Hitung Lagi

Private Sub cmdhitunglagi_Click()

txtnilaipertama.Text = " "

txtnilaikedua.Text = " "

txtnilaiketiga.Text = " "

txthasil.Text = " "

txtnilaipertama.SetFocus

End Sub

Kode Keluar

Private Sub cmdselesai_Click()

Unload Me

End Sub