文件名称：VB 用过程求组合数.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 05:13:27
VB源码-游戏编程
VB 用过程求组合数，输入m和n，按等号键可得组合数，来看如下的简单代码： Private Sub f(m As Integer, p As Long) '自定义通用过程，用于求阶乘 Dim i As Integer '声明局部变量 p = 1 '赋初值 For i = 1 To m '求m 的阶乘 p = p * i '结果返给参数p Next i End Sub Private Sub Command1_Click() '求组合数 Dim m As Integer, n As Integer Dim c As Long, f1 As Long m = Val(Text2) '取文本框的值 n = Val(Text1) Call f(m, f1) '调用子过程，求m的阶乘 c = f1 '阶乘的结果存到变量c里 Call f(n, f1) '调用子过程，求n的阶乘 c = c / f1 '阶乘的结果参与运算然后再存回变量c里 Call f(m - n, f1) '调用子过程，求同m-n的阶乘 c = c / f1 '阶乘的结果参与运算然后再存回变量c里 Text3 = c '最后求得的组合数在文本框中输出 End Sub
【文件预览】：
srcfans.com
----suband()
--------E180.vbw(51B)
--------Form1.frm(5KB)
--------E180.vbp(684B)
--------MSSCCPRJ.SCC(189B)