vb求n阶乘表达式,编写VB阶乘的函数

网友回答

Public Function N_Multiplication(ByVal n As Long) As Long
　　 '参数n为整数值，函数返回-1则表明参数n有异常，否则正常计算N阶乘数
　　 Dim J As Long
　　 N_Multiplication = -1
　　 '函数给定值-1，参数n必须大于等于1且不能为非数字，否则函数返回-1
　　 If (Not IsNumeric(n)) Or (n <= 0) Then'判断n是否为数字且大于等于1
　　 ‘如果不满足上述条件则提示出错！
　　 MsgBox("请不要输入非数字或零值！")
　　 '可以省略此句，可利用函数返回数来判定是否有异常，如果函数返回-1则有异常；
　　 Exit Function
　　 Else ’n如果为数字且大于等于1则正常计算
　　 N_Multiplication = 1
　　 For J = 1 To n
　　 N_Multiplication = J* N_Multiplication
　　 '正常计算，并返回N阶乘数
　　 Next
　　 End If
　　 End Function

网友回答

1、vb代码中，求一个数的阶乘的函数代码如下：
　　Public Function jiecheng(ByVal n As Integer) As Double
　　        Dim jc As Double
　　        jc = 1
　　        For i = 1 To n
　　            jc = jc * i
　　        Next
　　        jiecheng = jc
　　    End Function2、具体用法：首先打开VB6.0，新建一个标准exe工程；
　　3、在设计界面上添加一个Command控件，Command1的Caption属性设置为"N的阶乘"。
　　4、双击Command1控件进入代码编辑界面，编辑代码如下：
　　Public Function jiecheng(ByVal n As Integer) As Double
　　        Dim jc As Double
　　        jc = 1
　　        For i = 1 To n
　　            jc = jc * i
　　        Next
　　        jiecheng = jc
　　    End Function
　　Private Sub Command1_Click()
　　Dim sum As Double, n As Integer
　　n = InputBox("计算的N的阶乘，请输入数字N")
　　sum = jiecheng(n)
　　MsgBox (sum)
　　End Sub5、运行新建的工程，单击按钮，输入要计算的N的阶乘的数字N，得出阶乘结果。