vb程序设计题编写一函数过程Fac(n),对于已知正整数n,求其阶乘值.主程序分别输入两个正整数X和Y,计算并输出x!+(x+1)!+(x+2)!+……+(x+y)!之和.

Question

vb程序设计题
编写一函数过程Fac(n),对于已知正整数n,求其阶乘值.主程序分别输入两个正整数X和Y,计算并输出x!+(x+1)!+(x+2)!+ …… +(x+y)!之和.

Answer 1

Private Sub Form_click()
Dim x%,y%,s%,i%
x = Val(InputBox("x="))
y = Val(InputBox("y="))
For i = x To y
s = s + Fac(i)
Next
Print s
End Sub
Function Fac(n)
Dim i%
Fac = 1
For i = 1 To n
Fac = Fac * i
Next
End Function