求S=a!+b!+c! 编制子程序计算阶乘 数据 a,b,c用 InputBox()函数输入

for i=1 to 3
input a
s=1
for i=1 to a
s=s*i
endfor
print s
endfor

vb程序：

Sub aa()
Dim a As Integer, b As Integer, c As Integer
a = CInt(InputBox("输入正整数A:", "求三数阶乘和", 1))
b = CInt(InputBox("输入正整数B:", "求三数阶乘和", 1))
c = CInt(InputBox("输入正整数C:", "求三数阶乘和", 1))
MsgBox bb(a) + bb(b) + bb(c)
End Sub

Function bb(i As Integer)
bb = 1
While i > 0
bb = bb * i
i = i - 1
Wend
End Function

我这里就不管InputBox输入了，直接写了两个。直接用S = jisuan(a, b, c)。看看对不对。

Private Function jisuan(a As Integer, b As Integer, c As Integer)
jisuan = jiecheng(a) + jiecheng(b) + jiecheng(c)
End Function

Private Function jiecheng(num As Integer)
Dim i, sum As Integer
For i = 1 To num
sum = sum * i
Next i
jiecheng = sum
End Function