百度简单方法

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Len(Text1.Text) <= 2 Then
Text2.SetFocus
Else
Text1.Text = ""
End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label1.Caption = "=" & Str(Val(Text1.Text) * Val(Text2.Text))
End If
End Sub