on error resume next 遇到错误继续执行，系统不报错
用这条语句要非常谨慎，如果不能预期报什么错误，最好不要用，因为可能产生难于查找的错误，如果确信可能出现的错误不会对结果有什么影响，就可以使用了，在程序调试阶段也最好屏蔽掉，这样有利于找到错误。跟此相关的还有on error goto语句，在知道将要出现什么样的错误的情况下使用，目的是用来处理可预知的错误（http://topic.csdn.net/t/20030504/10/1737436.html）
------------------------
Mod 取余
语法 result = number1 Mod number2
说明
在进行 Mod 运算或求余数运算时，该运算符将 number1 用 number2 除（将浮点数字四舍五入成整数），并把余数作为 result 的值返回。例如，在下列表达式中，A (result) 等于 5。
A = 19 Mod 6.7
一般说来，不管 result 是否为一个整数，result 的数据类型为 Byte，Byte 变体、Integer、Integer 变体、Long 或一个包含 Long 的 Variant。任何小数部分都被删除。但是，如果任何一个 Null，类型的表达式出现时，result 都将是 Null。任何 Empty 类型表达式都作为 0 处理。
Mod 运算符示例
本示例使用 Mod 运算符来对两数作除法运算，但返回其余数而非商数。如果两数中有一数为浮点数，该数会先被四舍五入成整型后再进行运算。
Dim MyResult
MyResult = 10 Mod 5 ' 返回 0。
MyResult = 10 Mod 3 ' 返回 1。
MyResult = 12 Mod 4.3 ' 返回 0。
MyResult = 12.6 Mod 5 ' 返回 3。
-------------------
Round 函数：取整
描述
返回按指定位数进行四舍五入的数值。
语法
Round(expression[, numdecimalplaces])
Round 函数的语法有以下参数：
参数 描述
expression 必选。进行四舍五入的数值表达式。
numdecimalplaces 可选。数字表明小数点右边有多少位进行四舍五入。如果省略，则 Round 函数返回整数。
[更新于：06.12.16]
