子过程的调用求助

togetheru

程序是这样的
求组合数C(n,m),n是下标,m是上标
Private Sub 调子程序_Click()
Dim N, M, NM As Integer, S As String, ZJC As Long
N = Text1.Text
M = Text2.Text
N1 = N: Call ZQJC(N1, ZJC): N1 = ZJC '求N的阶乘,并赋给N1
M1 = M: Call ZQJC(M1, ZJC): M1 = ZJC '求M的阶乘,并赋给M1
NM = N - M: Call ZQJC(NM, ZJC): NM = ZJC '求N-M的阶乘,并赋给NM
S = "C(" + Str$(N) + "," + Str$(M) + ")=" + Str$(HQZH(N, M))
Label6.Caption = S
End Sub

Public Function ZQJC(ByVal K As Integer, JC As Long)
Dim I As Integer
JC = 1
For I = 1 To K
  JC = JC * I
Next I
End Function

其中上色的几句不理解

togetheru

ZJC和JC貌似没联系```还是什么原因 麻烦路过的好人帮帮忙 谢谢
同时子过程如何达到他能运算
C(n,m)=n!/(m!(n-m)!)

togetheru

知道了 有条语句输错了 应该是
S = "C(" + Str$(N) + "," + Str$(M) + ")=" + Str$(N1 / (M1 * NM))

还个不理解```JC函数如何传递 貌似没有 通过ZJC么```
如果我把ZJC改成JC则出现ByRef参数类型不符```

psic

N1和M1都没有声明，当然参数类型会不符啊……

大元帅

变量这样复用不太好吧 好乱的感觉 而且写的是复句 好久没看到冒号句了 更加乱
反正就是调用下面的函数，通过传址参数对第二个参数进行赋值 从而求出阶乘 最后显示 我觉得用返回值不更好么