vb如何输入阶乘,怎么写vb的阶乘代码

网友回答

自己编写函数代码：
　　Private Function 求阶乘(Byval n As Integer) As Long
　　 Dim i As Integer
　　 Dim Fac As Long
　　 Fac = 1
　　 For i = 1 To n
　　 Fac = Fac * i
　　 Next i
　　 求阶乘 = Fac
　　End Function
　　在你需要求阶乘的地方，调用该函数：
　　例如：
　　Dim y As Long
　　y = 求阶乘(10) '求阶乘(10)将用10调用上面的自定义函数，返回10的阶乘

网友回答

1、For语句实现
　　Private Sub Command1_Click()
　　    Dim s As Long, n As Integer, i As Integer
　　    n = Val(Text1.Text)
　　    s = 1
　　    For i = 1 To n
　　        s = s * i
　　    Next i
　　    Label4.Caption = Str(s)
　　End Sub
　　2、Do While语句实现
　　Private Sub Command1_Click()
　　    Dim s As Long, n As Integer, i As Integer
　　    n = Val(Text1.Text)
　　    s = 1
　　    i = 1
　　    Do While i <= n
　　        s = s * i
　　        i = i + 1
　　    Loop
　　    Label4.Caption = Str(s)
　　End Sub
　　扩展资料：
　　1~10的阶乘的结果如下：
　　1!=1
　　2!=2*1=2
　　3!=3*2*1=6
　　4!=4*3*2*1=24
　　5!=5*4*3*2*1=120
　　6!=6*5*4*3*2*1=720
　　7!=7*6*5*4*3*2*1=5040
　　8!=8*7*6*5*4*3*2*1=40320
　　9!=9*8*7*6*5*4*3*2*1=362880
　　10!=10*9*8*7*6*5*4*3*2*1=3628800