相关代码如下:
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text3.Locked = True '禁止写入
Command1.Caption = "="
End Sub
Private Sub Command1_Click()
'防止错误
If IsNumeric(Text1) = False Then MsgBox "请输入数字!", vbInformation, "错误": Text1 = "": Text1.SetFocus: Exit Sub
If IsNumeric(Text2) = False Then MsgBox "请输入数字!", vbInformation, "错误": Text2 = "": Text2.SetFocus: Exit Sub
Text3 = CInt(Text1) + CInt(Text2)
End Sub
运行情况如下: