vb作业，急急急！！！

Function jiech(n)
Sum = 1
For i = 1 To n
Sum = Sum * i
Next
jiech = Sum
End Function
Private Sub Form_Load()
Label1.Caption = jiech(HScroll1.Value)
End Sub
Pr