vb调用c语言程序,用VB编写程序,求S=A!+B!+C!,阶乘的计算分别用Sub过程和Function过程两种方法来实现...

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数值类型

取消

评论