VB问题,请各位大佬帮忙，谢谢！

Question

*****写出关键代码*****
1、累加。s=2+4+6+......+100,利用各种循环语句编程求解s。（2550）
2、条件累加。s=1+3+5+9+......,求s不大于1000最大值。
3、累加累乘。编程求：2！+4！+6!+8！+10! (3669866)
4、找最小数。随机产生十个1-100范围内的整数，输出最小数。
5、编程输出所有的水仙花数。
6、打印输出九九乘法表

Answer 1

（1）
s = 0
for i = 2 to 100 step 2
s = s + i
next
msgbox s
（2）
s = 0
n = 1
while s < 100 + n
s = s + n
n = n + 2
wend
msgbox n
（3）
sum = 0
acc = 1
for i = 2  to 10
acc = acc * i
if (acc mod 2 = 0) then sum = sum + acc
next
msgbox sum
（4）
min = rnd() * 100
for i = 1 to 9
x = rnd() * 100
if (min > x) then min = x
next
msgbox min
（5）
水仙花数有无数个，必须指定范围，否则无法打印
（6）
for i = 1 to 9
for j = 1 to 9
print i & "*" & j & "=" & i * j & " ",
next
print ""
next