求助vb while。。whileend的程序

Question

1. 已知Sin(x) = x-(x^3)/3!+(x^5)/5! -(x^7)/7!……，编写过程或函数计算Sin(0.2)的值，要求计算到求和项的绝对值小于1×10-10为止。
2. 编写程序，计算并输出下面级数中偶数项的和Sum，求和过程在第一次出现和值Sum的绝对值大于1000时结束。 原级数和可表示为：
Sum＝1×2－2×3＋3×4－4×5＋…＋(－1)(n－1)×n×(n＋1)＋…
*3.编写程序求两个正整数的最小公倍数。

Answer 1

我来做第2题：
只给出计算过程。
private sub jisuan()
dim sum as integer
dim n as integer ,
n=1
dim aa as interger,a as interger
aa=-1
whlile(|sum|<1000)
n=n+1
aa=-aa
a=n*(n+1)*(-aa)
sum=sum+a
while end
end sub
其中语法可能有出入，很长时间没有用VB了算法应该差不多