《计算机程序设计基础》教学课件：8_5自定义过程.pptVIP

* * * * * * * 8.5 过程的编写与调用 内部函数是VB事先定义好的函数，我们可以直接拿过来用，但内部函数并不能解决所有的问题，有很多地方需要我们亲自动手，编写自定义的函数或者过程。 过程 函数 子过程 内部函数 自定义函数 事件过程 自定义子过程 * 例1： Private Sub command1_Click() Dim m, n, c Dim FacN, FacM, FacNM If n m Then t = n n = m m = t End If , t , i% FacN = 1 For i = 1 To n FacN = FacN * i Next i FacM = 1 For i = 1 To m FacM = FacM * i Next i FacNM = 1 For i = 1 To n - m FacNM = FacNM * i Next i c = FacN / (FacM * FacNM) label1.Caption = Str(c) End Sub m = Val(InputBox(请输入m的值)) n