逐步判别f3.frm

<VB数理统计实用算法>书中的算法源程序

VERSION 5.00
Begin VB.Form frmContinue 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "单击窗体显示判别系数"
   ClientHeight    =   8475
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12270
   LinkTopic       =   "Form1"
   ScaleHeight     =   8475
   ScaleWidth      =   12270
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "frmContinue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'逐步判别
Option Explicit
Dim KKK As Integer, I As Integer, J As Integer, K As Integer
Dim sngC As Single
Private Sub Form_Load()
'设置窗体范围
    Me.Top = 0: Me.Left = 0
    Me.Width = 14500: Me.Height = 10000
    KKK = -1    '执行进程标志
End Sub

Private Sub Form_Click()
    If KKK > 0 Then
        Unload Me: End
    End If
    Me.Print " "; "组号  ", "常数  ",
    For I = 1 To M
        Me.Print "X" & Str(I) & "    ",
    Next I
    Me.Print
    For I = 1 To G
        Me.Print " "; Str(I) & "   ",
        For J = 0 To M
'取3位小数，小数点后第4位作四舍五入处理
            sngC = Int(C(I, J) * 1000 + 0.5) / 1000
            Me.Print sngC,
        Next J
        Me.Print
    Next I
    KKK = 1     '执行进程标志
    Me.Caption = "单击窗体可结束"
End Sub