作业帮 > 综合 > 作业

vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/09 12:54:19
vb求n阶乘表达式
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入一个正整数: ")
Print Fac(n)
End Sub
Private Function Fac(m) As Long
'' '请不要删除该行,只在下一行中填空'
For k = 2 to
Fac = Fac * k
Next k
End Function
vb求n阶乘表达式Private Sub Command1_Click()Dim n As Integern = Inp
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("请输入一个正整数:")
Print Fac(n)
End Sub
Private Function Fac(m) As Long
'' '请不要删除该行,只在下一行中填空'
For k = 2 To m
Fac = Fac * k
Next k
End Function