Dim i As Integer, z As Double
For i = 1 To 1000
x = Val(InputBox("input x:"))
n = Val(InputBox("input n:"))
If n >x Then MsgBox "n值要小于x值，请重新输入"
If n <x Then Exit For
Next i
z = 1
For i = 2 To n
z = z * xyz(x - i)
Next i
Print "(x-2)!(x-3)!....(x-n)!="z
End Sub
Function xyz(x As Integer) As Double
Dim i As Integer, p As Double
p = 1
For i = 1 To x
p = p * i
Next i
xyz = p
End Function
阶乘本来就很大，阶乘再乘阶乘，需要定义双精度类型
肺主宣泄，咳嗽有痰，是因体内潮湿，气血运行不畅，咳嗽是把这些凝固排不出去的浊气通过肺排出体内，不然凝聚在体内很长时间久会腐烂滋生细菌，所以当身体不适的时候，咳嗽就给你一个预警了。本身就是气血不畅，所以就可以多吃一些白色养肺的食物，比如，白萝卜，冬瓜，夏天的时候多喝一点莲子百合粥等，都是不错的养肺食品。如果去医院，医生也会告诉你，不是太大的毛病，如果他给你开药，也会给你开一些宣肺，活血化瘀的药品的，是药三分毒，所以还不如就通过食补来达到最好的效果！祝健康！
欢迎分享，转载请注明来源：优选云
微信扫一扫
支付宝扫一扫
