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

VERSION 5.00
Begin VB.Form frmSave 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "保存"
   ClientHeight    =   7005
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11415
   LinkTopic       =   "Form1"
   ScaleHeight     =   7005
   ScaleWidth      =   11415
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtAdd 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      Height          =   270
      Index           =   0
      Left            =   1080
      TabIndex        =   6
      Top             =   4440
      Width           =   855
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退  出"
      Height          =   375
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   1215
   End
   Begin VB.TextBox txtFre 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      Height          =   270
      Index           =   0
      Left            =   1080
      TabIndex        =   2
      Top             =   1320
      Width           =   855
   End
   Begin VB.Label Label2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   240
      TabIndex        =   10
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   240
      TabIndex        =   9
      Top             =   1080
      Width           =   855
   End
   Begin VB.Label lblTitleAdd 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "累积频数文件的内容和格式"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   1320
      TabIndex        =   8
      Top             =   3600
      Width           =   6255
   End
   Begin VB.Label lblTitleFre 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "频数文件的内容和格式"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   495
      Left            =   2040
      TabIndex        =   7
      Top             =   480
      Width           =   4815
   End
   Begin VB.Label lblColAdd 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   270
      Index           =   0
      Left            =   1080
      TabIndex        =   5
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label lblRowAdd 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   270
      Index           =   0
      Left            =   240
      TabIndex        =   4
      Top             =   4440
      Width           =   855
   End
   Begin VB.Label lblRowFre 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   270
      Index           =   0
      Left            =   240
      TabIndex        =   1
      Top             =   1320
      Width           =   855
   End
   Begin VB.Label lblColFre 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H80000008&
      Height          =   270
      Index           =   0
      Left            =   1080
      TabIndex        =   0
      Top             =   1080
      Width           =   855
   End
End
Attribute VB_Name = "frmSave"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'保存窗体
Option Explicit
Dim sngtxtHig As Single, sngtxtWid As Single
Dim snglblHig As Single, snglblWid As Single
Dim intRowStart As Integer
Dim intI As Integer, intJ As Integer
Dim intK As Integer, intL As Integer
Dim intFileFre As Integer, intFileAdd As Integer

Private Sub Form_Load()
'文本框数组txtFre显示频数
    txtFre(0).Visible = False
    lblRowFre(0).Visible = False: lblColFre(0).Visible = False
'文本框数组txtAdd显示累积频数
    txtAdd(0).Visible = False
    lblRowAdd(0).Visible = False: lblColAdd(0).Visible = False
    lblTitleFre.Visible = False: lblTitleAdd.Visible = False
    intCol = intZone                                    '列数等于数据段数
'总行数intRowAll = 列数行+行数行+总行数行+数据行
    intRowAll = 4
    If blnTitle Then intRowAll = intRowAll + 1          '加标题行
    If blnColLabel Then intRowAll = intRowAll + 1       '加列标行
    If blnRowLabel Then intRowAll = intRowAll + 1       '加行标
'利用原型控件的坐标参数
    sngtxtHig = txtFre(0).Height
    sngtxtWid = txtFre(0).Width
    snglblHig = sngtxtHig
    snglblWid = sngtxtWid
'形成文本框数组
    For intI = 1 To intRowAll
        For intJ = 1 To intCol