TUGAS 1.2 (Perkalian Dua Bilangan)

Private Sub Txtn1_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Txtn2.SetFocus

End If

End Sub

Private Sub Cmdhitung_Click()

Txtn3 = Val(Txtn1) * Val(Txtn2)

End Sub

Private Sub Cmdbersih_Click()

Txtn1.SetFocus

Txtn1 = ""

Txtn2 = ""

Txtn3 = ""

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub