VB 数理统计实用算法

				VERSION 5.00
				Begin VB.Form frmGridResult 
				   Appearance      =   0  'Flat
				   BackColor       =   &H80000005&
				   Caption         =   "计算结果"
				   ClientHeight    =   1740
				   ClientLeft      =   60
				   ClientTop       =   450
				   ClientWidth     =   4560
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   1740
				   ScaleWidth      =   4560
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.CommandButton cmdExit 
				      Caption         =   "退出"
				      Height          =   375
				      Left            =   3360
				      TabIndex        =   4
				      Top             =   1200
				      Width           =   855
				   End
				   Begin VB.Label lblMin 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      BorderStyle     =   1  'Fixed Single
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   2280
				      TabIndex        =   3
				      Top             =   480
				      Width           =   1935
				   End
				   Begin VB.Label lblMax 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      BorderStyle     =   1  'Fixed Single
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   240
				      TabIndex        =   2
				      Top             =   480
				      Width           =   1815
				   End
				   Begin VB.Label lblNote2 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "极小值"
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   2280
				      TabIndex        =   1
				      Top             =   240
				      Width           =   1935
				   End
				   Begin VB.Label lblNote1 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "极大值"
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   240
				      TabIndex        =   0
				      Top             =   240
				      Width           =   1815
				   End
				End
				Attribute VB_Name = "frmGridResult"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				'计算窗体
				Option Explicit
				
				Private Sub Form_Load()
				    Call XYZ(intRow, intCol, dblArray())
				    lblMax.Caption = dblMax     '标签显示极大值
				    lblMin.Caption = dblMin     '标签显示极小值
				End Sub
				
				'退出
				Private Sub cmdExit_Click()
				    Unload Me
				    End
				End Sub