Question

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

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