数据合法性检验调用IsNumeic()函数，参阅教材例.；若有错利用MsgBox显示出错信息，如图.所示，通过Focus方法定位于出错的文本框处，重新输入；计算结果保留位小数