那位VB编程高手帮下忙!~~~~~~~小弟在此谢过了~~~~

'求从1到200的偶数的和?

Private Sub Command1_Click()
For i = 2 To 200 Step 2
s = s + i
Next
Print s
End Sub

'求从1到100的递归。 问的模糊，我估计是求和递归（1+2+……+100），因为求积的话100！数值太大了
1.求和递归
Private Function add(n As Long) As Long
If n = 1 Then add = 1

If n > 1 Then add = add(n - 1) + n
End Function
Private Sub Command1_Click()
Print add(100)
End Sub

dim a1 as long'全局

for i = 1 to 200
if i mod 2 = 0 then
a1 = a1 + i
end if

next
递归不知道意思

privite sub command1_()
dim n as integer
for n=1 to 200
s=0
if n mod 2=0 then
s=s+n
end if
next n
print s
end sub
这是求和的代码，递归不会

for i=0 to 200 step 2
s=s+i
next

很不错值得学习