你在用VB做计算器吗?错误怎么处理_语言综合

概述我在高中时用VB语言完成过一个计算器程序,它叫Runner. 如果简单计算器只有在特殊情况下会出现错误: 显示错误. 除0; 运算的数字过大,过小. 显示错误由于VB的文本框全权由自己管理,你要防止用户不小心输入了两个小数点.或者输入两个00在开头之类的.这种处理当时耗费了很长时间.幸得当时的计算机老师王老师所助,她为我找了不少代码,供我学习思考.我当时将文本框作为中间存储区. 输入->过滤->

我在高中时用VB语言完成过一个计算器程序,它叫Runner.

如果简单计算器只有在特殊情况下会出现错误:

显示错误. 除0; 运算的数字过大,过小. 显示错误

由于VB的文本框全权由自己管理,你要防止用户不小心输入了两个小数点.或者输入两个00在开头之类的.这种处理当时耗费了很长时间.幸得当时的计算机老师王老师所助,她为我找了不少代码,供我学习思考.我当时将文本框作为中间存储区.
输入->过滤->文本框->运算赋值

除0

这是很容易想到的.我在做除法运算的时候,判断第二个除数是否为0,如果是0,则d出错误窗口.然后不执行结果.
(回想当年对程序的设计,就仿佛在刚才(～ o ～)~)

运算数字过大或者过小

解决方案:

1限制输入:

限制文本框最大接收文本.可以达到这个目的.但是不想废除连算功能.
在连算比如:多次平方后还是可以爆掉.

2如果检测到上一次结果达到了最大运算平方的根.

那么d出错误窗口.然后不执行结果.

更好的解决方案是通过异常机制来完成.
以下代码来自百度问答

Private Sub Command1_Click()    Dim A As Integer    '截获错误    On Error GoTo Err1    'A为整型变量赋值40000会溢出    A = 40000  '这时会跳到Err1处执行错误处理    '给A重新赋值并消息提示A    A = 30000    MsgBox A    Exit Sub'错误处理Err1:    MsgBox "出错了！" & vbCrLf & "错误编号：" & Err.Number & " 错误描述：" & Err.Description    '返回出错语句的下一句继续执行余下的代码    Resume NextEnd Sub