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

vb程序设计题
编写一函数过程Fac(n),对于已知正整数n,求其阶乘值.主程序分别输入两个正整数X和Y,计算并输出x!+(x+1)!+(x+2)!+ …… +(x+y)!之和.
海底森林 1年前 已收到1个回答 举报
赞

南色Long 春芽

共回答了20个问题采纳率：95% 举报

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

1年前

5
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.032 s. - webmaster@yulucn.com