sub实现:
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long
a = Val(InputBox("请输入一个大于0的整数A:"))
b = Val(InputBox("请输入一个大于0的整数B:"))
c = Val(InputBox("请输入一个大于0的整数C:"))
If a > 0 And b > 0 And c > 0 Then
n1 a
n1 b
n1 c
MsgBox "A!+B!+C!=" & a + b + c
End If
End Sub
Sub n1(n As Long)
Dim i As Long, s As Long
s = 1
For i = 2 To n
s = s * i
Next
n = s
End Sub
function实现:
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Long
a = Val(InputBox("请输入一个大于0的整数A:"))
b = Val(InputBox("请输入一个大于0的整数B:"))
c = Val(InputBox("请输入一个大于0的整数C:"))
If a > 0 And b > 0 And c > 0 Then
MsgBox "A!+B!+C!=" & n2(a) + n2(b) + n2(c)
End If
End Sub
Function n2(n As Long) As Long
Dim i As Long
n2 = 1
For i = 2 To n
n2 = n2 * i
Next
End Function
请注意:输入的数字不能太大,因为受Long型最大值的限制,计算13!即溢出。要想计算更大的数值,可使用Double数值类型
取消
评论
vb调用c语言程序 用VB编写程序 求S=A!+B!+C! 阶乘的计算分别用Sub过程和Function过程两种方法来实现...