VB还是编程

来源：百度知道 编辑：UC知道 时间：2024/09/26 10:54:16
题目：(事件)单击窗体。
' (响应)求10!的值，并将结果输出到窗体上。
' 将结果存入变量SUM中
很明显么

Function Factorial(ByVal N As Double) As Double
If N <= 1 Then
Factorial = 1
Else
Factorial = Factorial(N - 1) * N
End If
End Function

Private Sub Command1_Click()
Dim N As Double
N = 10
MsgBox Str(N) + "!=" + Str(Factorial(N))
End Sub

你在考试?

Private Sub Form_Click()
Sum = 1
For i = 1 To 10
Sum = Sum * i
Next
Print Sum
End Sub