求用VB 编程序计算7！+11！-10！ 的程序过程
答案:3 悬赏:0 手机版
解决时间 2021-01-03 12:17
- 提问者网友：情歌越听越心酸
- 2021-01-03 08:20
求用VB 编程序计算7！+11！-10！ 的程序过程
最佳答案
- 五星知识达人网友：鱼忧
- 2021-01-22 05:02
Private Sub Form_Click()
s1 = 1: s2 = 1: s3 = 1
For i = 1 To 7
s1 = s1 * i
Next i
For j = 1 To 10
s2 = s2 * j
Next j
For h = 1 To 11
s3 = s3 * h
Next h
Print 7; "!+"; 11; "!-"; 10; "!="; s1 + s3 - s2
End Sub
上面这个程序是绝对没问题的，反正计算阶乘的方法是这样，当然不止这一种。你可以根据自己需要适当变换。希望对你有所帮助。
s1 = 1: s2 = 1: s3 = 1
For i = 1 To 7
s1 = s1 * i
Next i
For j = 1 To 10
s2 = s2 * j
Next j
For h = 1 To 11
s3 = s3 * h
Next h
Print 7; "!+"; 11; "!-"; 10; "!="; s1 + s3 - s2
End Sub
上面这个程序是绝对没问题的，反正计算阶乘的方法是这样，当然不止这一种。你可以根据自己需要适当变换。希望对你有所帮助。
全部回答
- 1楼网友：话散在刀尖上
- 2021-01-22 05:15
private function fac(byval i as long) as long
if i=1 then fac=1
else
fac=fac(i-1) * i
end function
dim k as long
k=fac(7)*810 '先化简
- 2楼网友：像个废品
- 2021-01-22 05:09
=fact(7)+fact(11)-fact(10)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| 正方形一边上任一点到这个正方形两条对角线的 |
| 阴历怎么看 ？ |