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
人气：190 ℃ 时间：2020-04-08 23:10:36
解答
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
推荐
猜你喜欢
