朋友，你没有贴上源代码，所以我不知道你说的JCH是哪样的，但是我找到了一个代码，你看是不是相似？Function jch(n As Integer) As Double'定义一个计算阶乘的函数Dim a As Integerjch = 1For a = 1 To njch = jch * aNext aEnd FunctionPrivate Sub Command1_Click()Dim s As DoubleDim b As Integers = 0For b = 1 To 99s = s + jch(b)Next bMsgBox sEnd Sub 里面的Jch仅...
