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

            Load txtFre((intI - 1) * intCol + intJ)
            txtFre((intI - 1) * intCol + intJ).Move _
                             txtFre(0).Left + (intJ - 1) * sngtxtWid, _
                             txtFre(0).Top + (intI - 1) * sngtxtHig
            txtFre((intI - 1) * intCol + intJ).Visible = True
            txtFre((intI - 1) * intCol + intJ).Text = ""
            Load txtAdd((intI - 1) * intCol + intJ)
            txtAdd((intI - 1) * intCol + intJ).Move _
                             txtAdd(0).Left + (intJ - 1) * sngtxtWid, _
                             txtAdd(0).Top + (intI - 1) * sngtxtHig
            txtAdd((intI - 1) * intCol + intJ).Visible = True
            txtAdd((intI - 1) * intCol + intJ).Text = ""
        Next intJ
    Next intI
'形成左边标签框，对行作标记
'第1行保存列数（=段数）
    Load lblRowFre(1): Load lblRowAdd(1)
    lblRowFre(1).Move lblRowFre(0).Left, lblRowFre(0).Top
    lblRowFre(1).Visible = True
    lblRowFre(1).Caption = "段数"
    lblRowAdd(1).Move lblRowAdd(0).Left, lblRowAdd(0).Top
    lblRowAdd(1).Visible = True
    lblRowAdd(1).Caption = "段数"
    txtFre(1).Text = intCol                    '列数=段数
    txtAdd(1).Text = intCol                    '列数=段数
    If intCol >= 2 Then
        For intJ = 2 To intCol
'“列数”只放在第1列。其余的列充以*******，表示这些列没有用
            txtFre(intJ).Text = "*******"
            txtAdd(intJ).Text = "*******"
        Next intJ
    End If
'第2行保存行数
    Load lblRowFre(2): Load lblRowAdd(2)
    lblRowFre(2).Move lblRowFre(0).Left, lblRowFre(0).Top + snglblHig
    lblRowFre(2).Visible = True
    lblRowFre(2).Caption = "行数"
    txtFre(intCol + 1).Text = 1   '数据行数=1
    lblRowAdd(2).Move lblRowAdd(0).Left, lblRowAdd(0).Top + snglblHig
    lblRowAdd(2).Visible = True
    lblRowAdd(2).Caption = "行数"
    txtAdd(intCol + 1).Text = 1   '数据行数=1
    If intCol >= 2 Then
        For intJ = 2 To intCol
'“行数”只放在第1列。其余的列充以*******，表示这些列没有用
            txtFre(intCol + intJ).Text = "*******"
            txtAdd(intCol + intJ).Text = "*******"
        Next intJ
    End If
'第3行保存总行数
    Load lblRowFre(3): Load lblRowAdd(3)
    lblRowFre(3).Move lblRowFre(0).Left, lblRowFre(0).Top + 2 * snglblHig
    lblRowFre(3).Visible = True
    lblRowFre(3).Caption = "总行数"
    txtFre(2 * intCol + 1).Text = intRowAll   '总行数< = 7
    lblRowAdd(3).Move lblRowAdd(0).Left, lblRowAdd(0).Top + 2 * snglblHig
    lblRowAdd(3).Visible = True
    lblRowAdd(3).Caption = "总行数"
    txtAdd(2 * intCol + 1).Text = intRowAll   '总行数< = 7
    If intCol >= 2 Then
        For intJ = 2 To intCol
'“总行数” 只放在第1列。其余的列充以*******，表示这些列没有用
            txtFre(2 * intCol + intJ).Text = "*******"
            txtAdd(2 * intCol + intJ).Text = "*******"
        Next intJ
    End If
    intRowStart = 4
    If blnTitle Then                    '形成标题
        Load lblRowFre(intRowStart)
        lblRowFre(intRowStart).Move lblRowFre(0).Left, _
            lblRowFre(0).Top + (intRowStart - 1) * snglblHig
        lblRowFre(intRowStart).Visible = True
        lblRowFre(intRowStart).Caption = "标题"
        txtFre((intRowStart - 1) * intCol + 1).Text = strTitle & "频数"
        Load lblRowAdd(intRowStart)
        lblRowAdd(intRowStart).Move lblRowAdd(0).Left, _
            lblRowAdd(0).Top + (intRowStart - 1) * snglblHig
        lblRowAdd(intRowStart).Visible = True
        lblRowAdd(intRowStart).Caption = "标题"
        txtAdd((intRowStart - 1) * intCol + 1).Text = strTitle & "累积频数"
        If intCol >= 2 Then
            For intJ = 2 To intCol
'“标题”只放在第1列。其余的列充以*******，表示这些列没有用
                txtFre((intRowStart - 1) * intCol + intJ).Text = "*******"
                txtAdd((intRowStart - 1) * intCol + intJ).Text = "*******"
            Next intJ
        End If
        intRowStart = intRowStart + 1
    End If
        lblTitleFre.Visible = True: lblTitleAdd.Visible = True
    If blnRowLabel Then                 '形成行标记
        Load lblRowFre(intRowStart)
        lblRowFre(intRowStart).Move lblRowFre(0).Left, _
                lblRowFre(0).Top + (intRowStart - 1) * snglblHig
        lblRowFre(intRowStart).Visible = True
        lblRowFre(intRowStart).Caption = "行标"
        txtFre((intRowStart - 1) * intCol + 1).Text = strRowLabel(1)
        Load lblRowAdd(intRowStart)
        lblRowAdd(intRowStart).Move lblRowAdd(0).Left, _
                lblRowAdd(0).Top + (intRowStart - 1) * snglblHig
        lblRowAdd(intRowStart).Visible = True
        lblRowAdd(intRowStart).Caption = "行标"
        txtAdd((intRowStart - 1) * intCol + 1).Text = strRowLabel(1)
        If intCol >= 2 Then
            For intJ = 2 To intCol
'图题只放在第1列。其余的列充以*******，表示这些列没有用
                txtFre((intRowStart - 1) * intCol + intJ).Text = "*******"
                txtAdd((intRowStart - 1) * intCol + intJ).Text = "*******"
            Next intJ
        End If
        intRowStart = intRowStart + 1
    End If
    If blnColLabel Then                 '形成列标的标记
        Load lblRowFre(intRowStart): Load lblRowAdd(intRowStart)
        lblRowFre(intRowStart).Move lblRowFre(0).Left, _
                        lblRowFre(0).Top + (intRowStart - 1) * snglblHig
        lblRowFre(intRowStart).Visible = True
        lblRowFre(intRowStart).Caption = "段值"
        lblRowAdd(intRowStart).Move lblRowAdd(0).Left, _
                        lblRowAdd(0).Top + (intRowStart - 1) * snglblHig
        lblRowAdd(intRowStart).Visible = True
        lblRowAdd(intRowStart).Caption = "段值"
        Z0 = Min                                '最小值是分段的起始值
        For intJ = 1 To intCol
            txtFre((intRowStart - 1) * intCol + intJ).Text = Str(Z0) & "-" & R(1, intJ)
            txtAdd((intRowStart - 1) * intCol + intJ).Text = Str(Z0) & "-" & R(1, intJ)
            Z0 = R(1, intJ)
        Next intJ
        intRowStart = intRowStart + 1   '加列标的标记行
    End If
'形成上边标签框，对列作标记，这一行不记入总行数
    For intI = 1 To intCol
        Load lblColFre(intI): Load lblColAdd(intI)
        lblColFre(intI).Move lblColFre(0).Left + (intI - 1) * snglblWid, _
                          lblColFre(0).Top
        lblColFre(intI).Visible = True
        lblColFre(intI).Caption = "第" & intI & "段"
        lblColAdd(intI).Move lblColAdd(0).Left + (intI - 1) * snglblWid, _
                          lblColAdd(0).Top
        lblColAdd(intI).Visible = True
        lblColAdd(intI).Caption = "第" & intI & "段"
    Next intI
    intRow = 1                          '最终结果只有1行数据，或是频数，或是累积频数
    intI = intRowAll
    Load lblRowFre(intI): Load lblRowAdd(intI)
    lblRowFre(intI).Move lblRowFre(0).Left, _
                          lblRowFre(0).Top + (intI - 1) * snglblHig
    lblRowFre(intI).Visible = True
    lblRowFre(intI).Caption = "数据行"
'将频数置于文本框
    For intJ = 1 To intCol
        txtFre((intI - 1) * intCol + intJ).Text = R(2, intJ)
    Next intJ
    lblRowAdd(intI).Move lblRowAdd(0).Left, _
                          lblRowAdd(0).Top + (intI - 1) * snglblHig
    lblRowAdd(intI).Visible = True
    lblRowAdd(intI).Caption = "数据行"
'将频数置于文本框
    For intJ = 1 To intCol
        txtAdd((intI - 1) * intCol + intJ).Text = R(3, intJ)
    Next intJ
'记盘
    intFileFre = FreeFile                           '取得空闲的文件号
    Open strFreFile For Output As intFileFre        '打开文件
    intFileAdd = FreeFile                           '取得空闲的文件号
    Open strAddFile For Output As intFileAdd        '打开文件
    For intI = 1 To intRowAll
        For intJ = 1 To intCol
            Write #intFileFre, txtFre((intI - 1) * intCol + intJ);
            Write #intFileAdd, txtAdd((intI - 1) * intCol + intJ);
        Next intJ
    Next intI
'记段名（最上面的一行），这一行不记入总行数
    For intI = 1 To intCol
        Write #intFileFre, lblColFre(intI).Caption
        Write #intFileAdd, lblColAdd(intI).Caption
    Next intI
'记行名（最左边的一列），这一列不记入列数
    For intI = 1 To intRowAll
        Write #intFileFre, lblRowFre(intI).Caption
        Write #intFileAdd, lblRowAdd(intI).Caption
    Next intI
    Close                        '关闭文件
End Sub

'退出
Private Sub cmdExit_Click()
    Unload Me
    frmCalculate.cmdPrint.Visible = True
    frmCalculate.Visible = True
End Sub