两组判别f3.frm

来自「<VB数理统计实用算法>书中的算法源程序」· FRM 代码 · 共 44 行

VERSION 5.00
Begin VB.Form frmContinue 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   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 Ymax As Double, Ymin As Double, Dy As Double
Dim I As Integer
Private Sub Form_Click()
    Ymax = Y1(1): Ymin = Y1(1)
    For I = 1 To N1
        If Y1(I) > Ymax Then Ymax = Y1(I)
        If Y1(I) < Ymin Then Ymin = Y1(I)
    Next I
    For I = 1 To N2
        If Y2(I) > Ymax Then Ymax = Y2(I)
        If Y2(I) < Ymin Then Ymin = Y2(I)
    Next I
    For I = 1 To N3
        If Y3(I) > Ymax Then Ymax = Y3(I)
        If Y3(I) < Ymin Then Ymin = Y3(I)
    Next I
    Debug.Print Ymax, Ymin
    Dy = (Ymax - Ymin) / 100
    Ymax = Ymax + 10 * Dy
    Ymin = Ymin - 10 * Dy
    Dy = (Ymax - Ymin) / 100
Debug.Print Ymax, Ymin, Dy

End Sub