DoWhile...Loop：先判断条件是否满足，若满足，则进入循环；
Do...LoopWhile：先进入循环执行，然后判断条件是否满足，若满足，则进入下一次的循环。
VB语句函数大全
1. Abs(N) 取绝对值；
例：Abs(-3.5) 结果：3.5；
2. Cos(N) 余弦函数；
例：Cos(0) 结果：1；
3. Exp(N) e为底的指数函数；
例：Exp(3) 结果：20.068；
4. Log(N) 以e为底的自然对数；
例：Log(10) 结果：2.3；
5. Rnd[(N) 产生随机数；
例：Rnd 结果：0--1之间的数；
6. Sin(N) 正弦函数；
例：Sin(0) 结果：0；
7. Sgn(N) 符号函数；
说明：取正负号。Y=Sgn(X) 既 X>0 则Y=1；X=0 则Y=0；X<0 则Y= -1；
8. Sqr(N) 平方根；
例：Sqr(9) 结果：3；
9. Tan(N) 正切函数；
例：Tan(0) 结果：0；
10.Atn(N) 反切函数；
例：Atn(0) 结果：0。