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
百度简单方法
最新推荐文章于 2022-01-07 08:57:59 发布