满意答案
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分享举报