VB.net 编写函数,两题,望高手指点!

来源：百度知道 编辑：UC知道 时间：2024/05/18 04:43:24
17．编写求整数阶乘的函数。然后在sub main()过程中调用该过程，求20!-10!

18．编写函数求s=m+（m+1）+(m+2)……+n，其中m和n是通过函数的参数传递。并且在函数中判断如果m>n则输出“输入有误，请重新输入。”

第一题
Sub sum1(ByVal n As Integer, ByRef s As Long)
Dim i As Integer
s = 1

For i = 1 To n
s = s * i

Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim s1, s2, sum As long
Dim i, j As Integer

i = 20 : j = 10

sum1(i, s1)
sum1(j, s2)
sum = s1 - s2
MsgBox(Str(sum))
End Sub