【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了Ex5_14.frm相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Begin VB.Form Ex5_14 
       Caption         =   "Form1"
       ClientHeight    =   3090
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3090
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Ex5_14"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Function Muln(n As Integer) As Long
          If n = 0 Or n = 1 Then
            '结束条件n=0或n=l
            Muln = 1
          Else
            Muln = Muln(n - 1) * n
          End If
        End Function
    Private Sub Form_Click()
          Dim M As Long, i As Integer
          i = InputBox("请输入一个正整数")
          M = Muln((i))
          Print i; "!="; M
    End Sub
    

上一篇：Ex5_13.frm
下一篇：ASP小区停车管理系统(Access)(含录像)