sub求阶乘c语言,用VB编写程序求S=A！+B！+C！，要求阶乘的计算使用Sub过程来实现，参数A、B、C的值从键盘输入的程序代码？...

满意答案

shaneya

2013.06.17

采纳率：44%    等级：12

已帮助：15807人

对上面一个程序加下注解

Private Sub Command1_Click() 'Command1的单击事件所以要在窗体上加command1按钮一个

Dim a As Long, b As Long, c As Long, s As Long '定义变量a,b,c,s

a = Val(InputBox("请输入一个正整数：")) '弹出对话框输入每一个数，并用VAl函数转化成数字类型

b = Val(InputBox("请输入一个正整数：")) '弹出对话框输入每二个数，并用VAl函数转化成数字类型

c = Val(InputBox("请输入一个正整数：")) '弹出对话框输入每三个数，并用VAl函数转化成数字类型

jiecheng a '引用过程jiecheng并带入a

jiecheng b '引用过程jiecheng并带入b

jiecheng c '引用过程jiecheng并带入c

s = a + b + c '将a + b + c的值赋给s

msgbox s '弹出对话框，并把S值写在上面

End Sub 'Command1的单击事件完

Public Sub jiecheng(ByRef n As Long) '自定义过程jiecheng

Dim i As Long, lin As Long '定义变量i,lin

If n <> 0 Then '如果n不等于零

lin = 1 'lin＝1

Else '那么

n = 0 'n＝0

Exit Sub '退出判断

End If 'if 语句完

For i = 1 To n '循环语句，表示i从1循环到n

lin = lin * i 'lin乘i

Next i '循环结束

n = lin 'n=lin

End Sub '自定义过程jiecheng完

03分享举报