TUGAS 2.1 dan Tugas 2.2 program perkalian mini

CARA MEMBUAT PROGRAM UNTUK MENGHITUNG PERKALIAN SEPERTI GAMBAR DI BAWAH INI
Dengan cara cara dibawah ini

 Private Sub Text1_KeyPress(KeyAscii As Integer)
        If KeyAscii = 13 Then
             Text2.SetFocus
        End if
End Sub
---------------------------------------------------------
Private Sub Command1_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub
---------------------------------------------------------
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
---------------------------------------------------------
Private Sub Command3_Click()
Unload Me End Sub
---------------------------------------------------------

dan jika kita akan menambahkan atau untuk melihat hasil kita cukup menekan tombol enter, maka kita cukup menambahkan rumus seperti di bawah ini.

 Private Sub Text2_KeyPress(KeyAscii As Integer)
        If KeyAscii = 13 Then
                Text3 = Val(Text1) * Val(Text2)
        End If
End Sub


di bawah ini adalah contoh dari rumusnya