用VB編寫程序，求S=A!+B!+C!，階乘的計算分別用Sub過程和Function過程兩種方法來實現

（1）用Sub實現的過程如下：

Dim a,b,c,s

a=1

b=2

c=3

s=0

Sub jc(x)

Dim v

v=1

While x>0

v=v*x

x=x-1

Wend

s=s+v

End Sub

jc a

jc b

jc c

MsgBox s

（2）用Function的過程如下

Function

Function?jc(a)

If a>0 Then

jc=a*jc(a-1)

Else

jc=1

End?If

End?Function

Dim s,a,b,c

a=4

b=7

c=5

s=jc(a)+jc(b)+jc(c)

擴展資料：

Function函數與Sub過程類似。但 Function函數可以有返回值。可以使用參數。如果 Function函數沒有任何參數，則 Function語句必須要包含空括號。 Function函數通過函數名返回壹個值。返回值的數據類型是Variant。

語法如下：

...

End Function

Function函數是包含在Function和End Function語句之間的壹組VBScript語句。

百度百科-Function函數