新手学vb编程..还有3道题目 实在是弄不懂了

1. 求1~100间偶数的和,当和大于等于400时不再计算输入这时的和值(循环语句和条件语句嵌套) 用 for...exit for...next循环语句
2. 编写一个求三角形面积的子过程,要求任意输入的三角形的底和高,输出三角形的面积(提示:调用子过程需要传递三个参数,代表底和高的变量用值传递,面积变量用地址传递)
3. 编写一个求任意正整数阶乘的function函数,然后在form_Click事件中调用该函数,要求输入一个整数,输出其阶乘的值

界面放2个按钮,不要做任何改动,拷贝代码运行就是你要的结果
第一,第二题直接点按钮.第三题你要求放在Form_Click事件中.

Private Sub Command1_Click()
Dim i, sum
For i = 1 To 100
If i Mod 2 = 0 Then
sum = sum + i
End If
If sum >= 400 Then
Exit For
End If
Next i
MsgBox sum
End Sub

Private Sub Command2_Click()
Dim iD, iH, lArea As Double
Do
iD = InputBox("请输入底:")
Loop While IsNumeric(iD) = False Or Val(iD) < 0
Do
iH = InputBox("请输入高:")
Loop While IsNumeric(iH) = False Or Val(iH) < 0
If iD = 0 Or iH = 0 Then
lArea = 0
Else
Call cmpArea(iD, iH, lArea)
End If
MsgBox "底: " & iD & " 高: " & iH & " 面积: " & Format(lArea, "0.###")
End Sub

Private Sub Command3_Click()

End Sub

Private Sub Form_Click()
Dim i
i = InputBox("请输入一个正整数:")