用SUb过程编写求阶乘代码

2025-03-13 14:32:41

推荐回答（1个）

回答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