VB高手问几个简单的问题？！

第一题

Private Sub Form_Click()
For i = 2 To 100 Step 2
s = s + i
Next
MsgBox s
End Sub

第2题给你3种方法

1： 这种是最方便的，
Sub jiecheng(n As Integer)
s = 1
For i = 1 To n
s = s * n
Next
MsgBox s
End Sub
'上面是定义一个求阶乘的过程，然后就可以调用了
Private Sub Form_Click()
Call jiecheng(8) '括号里面的数变成几就是求几的阶乘
End Sub

2： for...next方法

s = 1
for i = 1 to 8
s = s * i
next
msgbox s

3: do..loop方法，当然此种方法还可以写成好几种

算1到100的所有偶数的和
Option Explicit

Dim sum As Integer
Dim i As Integer

Private Sub Command1_Click()
For i = 2 To 100 Step 2
sum = sum + i
Next
Print sum
End Sub

求T=8!(1*2*3...*8)
Option Explicit
Dim Sum As Double
Dim N As Integer
Dim i As Integer
Dim j As Integer

Private Sub Command2_Click()
Sum = 1
For j