引
例：求组合数C
m n
例
c
n! m!( n m)!
求组合数的值，可将组合数 分解成求三个值的阶乘。
S1=JC(n)
S2=JC(m)
S3=JC(n-m)
Dim n%, m%, i%, s1#, s2#, s3# n = Val(InputBox("输入N")) m = Val(InputBox("输入M")) s1 = 1 定义函数过程JC： For i = 1 To n Public Function JC#(k%) s1 = s1 * i Dim i% Next JC = 1 s2 = 1 For i = 1 to k For i = 1 To m JC = JC * i s2 = s2 * i Next Next End Function s3 = 1 For i = 1 To n - m s3 = s3 * i Next
…… End Sub
控件事件过程的语法
Private Sub 控件名_事件名[(参数列表)]
[局部变量和常数声明]
Private Sub Command1_Click() End Sub …… End Sub Private Sub CmdBotton_Click(Index As Integer) …… End Sub
个子过程，供多次调用。
自定义子过程分为公有过程
（Public）和私有过程（Private） 两种
自定义子过程的定义
格式： Sub 子过程名[(形式参数表)]
过程体
End Sub 特点：子过程名无值，无类型
自定义子过程的调用
格式1
如：Swap
a, b
