所有数理统计知识的源代码都在此,是一本数理统计数的配套光盘.里面有各种分布类型及参数估计插值

VERSION 5.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "增加或减少菜单项"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      Begin VB.Menu mnuRun 
         Caption         =   ""
         Index           =   0
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSep 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAdd 
         Caption         =   "增加"
      End
      Begin VB.Menu mnuDel 
         Caption         =   "减少"
      End
   End
   Begin VB.Menu mnuEnd 
      Caption         =   "结束"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim intC As Integer

'增加
Private Sub mnuAdd_Click()
    Dim strMsg As String, vntX
    strMsg = "键入项目名称"
    vntX = InputBox(strMsg)
    intC = intC + 1
    Load mnuRun(intC)               '加载菜单项
    mnuRun(intC).Caption = vntX     '用项目名称作为菜单项标题
    mnuRun(intC).Visible = True     '使加载的菜单项可视
    mnuSep.Visible = True
End Sub

'删除
Private Sub mnuDel_Click()
    Dim intN As Integer, intI As Integer
    Dim strMsg As String
    strMsg = "键入项目的顺序号"   '这里不再用项目名称
    intN = InputBox(strMsg)
    If intN > intC Or intN < 1 Then
        MsgBox "所给出的顺序号超出范围！"
        Exit Sub
    End If
'从被删除的位置开始，用后面的菜单项覆盖前面的菜单项
    For intI = intN To intC - 1
        mnuRun(intI).Caption = mnuRun(intI + 1).Caption
    Next intI
'最后两个菜单项是重复的，故卸载最后一个
    Unload mnuRun(intC)
    intC = intC - 1
    If intC = 0 Then mnuSep.Visible = False
End Sub

'单击添加的菜单项
Private Sub mnuRun_Click(Index As Integer)
    Debug.Print "您选择了" & mnuRun(Index).Caption
'如果添加项目的标题是可执行文件全名，可以用下列方法执行该文件
'Dim vntX
'vntX = Shell(mnuRun(index).Caption,1)
End Sub

'结束
Private Sub mnuEnd_Click()
    Unload Me
    End
End Sub