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过程两种方法来实现...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。