15问答网 > 编一道vb代码，求s=1!+2!+……n!，做了好久都运行不起，拜托各位vb大神，帮忙做一下，谢谢

编一道vb代码，求s=1!+2!+……n!，做了好久都运行不起，拜托各位vb大神，帮忙做一下，谢谢

2025-04-01 10:35:42

推荐回答（2个）

回答1：

Private Sub Command1_Click()
Print s(3), s(4), s(5)
End Sub
Public Function f(x As Integer) As Long
If x <= 1 Then
f = 1
Else
f = x * f(x - 1)
End If
End Function
Public Function s(x As Integer) As Long
If x <= 1 Then
s = 1
Else
s = f(x) + s(x - 1)
End If
End Function

回答2：

孕妇由于怀孕后胎儿增大后的压迫，容易造成痔疮和或者病情加重的。
既然是怀孕了，很多的口服的和外用的药物不好用，您说的孕痔安是孕妇专业的，您是可以使用的。平时要多吃蔬菜水果，不要吃辛辣刺激的食物，多喝水，每天定时大便，保持大便通畅；另外有个方法你可以试试，每天用1：5000温热的高锰酸钾溶液（您可以用多半盆的温热水，稍微的放一点的高锰酸钾，使水稍微的一变粉红色，我们说，就是1：5000高锰酸钾溶液，就可以的）坐浴两次，每次20分钟。