数据类型定义错误。改为：dim iResult as string---------------------------你原先的定义是整数，是数值型的，当你输入的内容为非数值型时，自然会报错。必须定义其为文本型数值。
