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

VERSION 5.00
Begin VB.Form frmCalculate 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "计算"
   ClientHeight    =   6825
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   9630
   LinkTopic       =   "Form1"
   ScaleHeight     =   12.039
   ScaleMode       =   7  'Centimeter
   ScaleWidth      =   16.986
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox pic 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   5895
      Left            =   480
      ScaleHeight     =   5895
      ScaleWidth      =   8895
      TabIndex        =   4
      Top             =   480
      Width           =   8895
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退  出"
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保  存"
      Height          =   375
      Left            =   1680
      TabIndex        =   2
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton cmdPrint 
      Caption         =   "打  印"
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton cmdCalculate 
      Caption         =   "计  算"
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   855
   End
End
Attribute VB_Name = "frmCalculate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'计算窗体
Dim strFileOut As String, intFileOut As Integer
Dim I As Integer, J As Integer, Inc As Single

Private Sub Form_Load()
    cmdPrint.Visible = False                '“打印”命令按钮不可视
    cmdSave.Visible = False                 '“保存”命令按钮不可视
End Sub

'计算
Private Sub cmdCalculate_Click()
'R(1,...)为段值，R(2,...)为频数，R(3,...)为累积频数
    ReDim R(1 To 3, 1 To intZone)
    Inc = (Max - Min) / intZone                         'Inc为增量
    For I = 1 To intZone
        R(1, I) = Int((Min + Inc * I) * 10 + 0.5) / 10  '段值
    Next I
    Fre_Add P, R                            '调用标准模块中计算频数的过程
'在屏幕的图片框中显示统计结果
    pic.Font = "隶书"
    pic.FontSize = 20
    pic.Print Spc(8); "频数和累积频数统计结果"
    pic.Font = "宋体"
    pic.FontSize = 10
    pic.Print
    pic.Print "序号",
    pic.Print "分段区间",
    pic.Print "频数",
    pic.Print "频率",
    pic.Print "累积频数",
    pic.Print "累积频率"
    Z0 = Min                                '最小值是分段的起始值
    For J = 1 To intZone
        pic.Print J,
        pic.Print Z0;: pic.Print "-";: pic.Print ; R(1, J),
        pic.Print R(2, J),
        pic.Print Int((R(2, J) / R(3, intZone)) * 1000 + 0.5) / 10;: pic.Print "%",
        pic.Print R(3, J),
        pic.Print Int((R(3, J) / R(3, intZone)) * 1000 + 0.5) / 10;: pic.Print "%"
        Z0 = R(1, J)
    Next J
    cmdCalculate.Visible = False
    cmdPrint.Visible = True                 '“打印”命令按钮可视
    cmdSave.Visible = True                  '“保存”命令按钮可视
End Sub

'打印
Private Sub cmdPrint_Click()
    MsgBox "现在开始打印，请稍侯"
    Printer.Font = "隶书"
    Printer.FontSize = 20
    Printer.Print Spc(8); "频数和累积频数统计结果"
    Printer.Font = "宋体"
    Printer.FontSize = 10
    Printer.Print
    Printer.Print "序号",
    Printer.Print "分段区间",
    Printer.Print "频数",
    Printer.Print "频率",
    Printer.Print "累积频数",
    Printer.Print "累积频率"
    Z0 = Min
    For J = 1 To intZone
        Printer.Print J,
        Printer.Print Z0;: Printer.Print "-";: Printer.Print ; R(1, J),
        Printer.Print R(2, J),
        Printer.Print Int((R(2, J) / R(3, intZone)) * 1000 + 0.5) / 10;
        Printer.Print "%",
        Printer.Print R(3, J),
        Printer.Print Int((R(3, J) / R(3, intZone)) * 1000 + 0.5) / 10;
        Printer.Print "%"
        Z0 = R(1, J)
    Next J
    Printer.EndDoc      '执行打印
    MsgBox "打印文档已交付打印设备，请继续其他工作"
End Sub

'保存
Private Sub cmdSave_Click()
    Unload Me
    frmSave.Visible = True          '激活保存窗体
End Sub

'退出
Private Sub cmdExit_Click()
    Unload Me
    End
End Sub