vb里求阶层

vb里求阶层

Private Sub Form_Click()
Dim s As Double, n As Integer
s = 1
n = InputBox("请输入一个整数：")
For i = 2 To n
s = s + JieCheng(i)
Next i
Print s
End Sub

Function JieCheng(b)
t = 1
For i = 2 To b
t = t * i
Next i
JieCheng = t
End Function

给点积分吧！
Private Sub Command1_Click()
n = Val(Text1.Text)
For b = 1 To n
s = b + s
Next b
Text1.Text = s
End Sub

Private Sub Form_Click()
Dim n As Integer, i As Integer, s As Integer
n = InputBox("输入n") 'n为有几个数相加
For i = 1 To n
s = s + i '累积
Next i
Print s '输出最后结果
End Sub
就这么简单~
自己试一下...不行的话再找我...

先新建一个Command1按钮
然后全部代码改为:
Dim san, ov As Double
Function sss(ByVal s As Integer)
For i = 1 To s
ov = ov * i
Next i
End Function
Private Sub Command1_Click()
Dim s As Integer
n = InputBox("请输入要算那个数的阶乘.")
For i = 1 To n
sss (i)
sun = sun + ov
ov = 1
Next i
MsgBox "答案是:" & Str(sun)
End Sub
Private Sub Form_Load()
ov = 1
End Sub