VB编程，求阶乘的过程

2025-05-23 08:23:20

推荐回答（4个）

回答（1）：

VB求阶乘需要Function 过程来实现。

Function 语句，声明 Function 过程的名称，参数以及构成其主体的代码。

以下是求输入数的阶乘代码：

Option Explicit
    Dim Sum As Double
    Dim N As Integer
    Dim i As Integer

Private Function fact(N As Integer) As Double
    fact = 1
    Do While N > 0
        fact = fact * N
        N = N - 1
    Loop
End Function

Private Sub Command1_Click()
    N = Val(Text1.Text)
    Sum = fact(N)
    Text2 = Sum
End Sub

Private Sub Form_Load()
    Text1 = "": Text2 = ""
End Sub

回答（2）：

先用一个过程private function mulitiply ( byval n as integer) as integermulitply = 10do while n >0mulitply = mulitply * nn = n-1loopend function 再写事件代码由窗体的单击事件触发。dim sum ,idim se as stringsum = sum + mulitply (i)se = msgbox(“计算的结果是”，sum)上面写的是1到10的阶乘可以随便该下

回答（3）：

private sub form1_onclick()dim summ as integersumm=fact(7)+fact(8)msgbox summend subpublic function fact(num)dim sum as integersum=1for i=1 to numsum=sum*inextreturn sumend function

回答（4）：

Private Sub Form_Click()
Print "7!+8!=" & fact(7) + fact(8)
End Sub

Function fact(n As Integer) As Long
Dim f As Long
f = 1
For i = 1 To n
f = f * i
Next i
fact = f
End Function