string ls_msg choose case error.number case 1//by zero ls_msg = "发生被 0 除错误" case 2//2 Null object reference ls_msg = "空对象引用" case 3//3 Array boundary exceeded ls_msg = "数组越界" case 4//4 Enumerated value is out of range for function ls_msg = "枚举值超出函数的范围" case 5//5 Negative value encountered in function ls_msg = "函数中遇到负数" case 6//6 Invalid DataWindow row/column specified ls_msg = "数据窗口的列或行非法" case 7//7 Unresolvable external when linking reference ls_msg = "链接调用时不能解决外部对象" case 8//8 Reference of array with null subscript ls_msg = "使用空下标引用数组" case 9//9 DLL function not found in current application ls_msg = "当前应用中没有找到动态链接库的函数" 。。。。。。。。。。。。。。。。。