2.1 tugas

 

Private Sub cmdhitung_Click()

txtB.Text = Val(txtA.Text) * 0.1

txtC.Text = Val(txtA.Text) - Val(txtB.Text)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtA = ""

txtB = ""

txtC = ""

End Sub