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

				VERSION 5.00
				Begin VB.Form frmResult 
				   Appearance      =   0  'Flat
				   BackColor       =   &H80000005&
				   Caption         =   "计算结果"
				   ClientHeight    =   1785
				   ClientLeft      =   60
				   ClientTop       =   450
				   ClientWidth     =   3660
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   1785
				   ScaleWidth      =   3660
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.CommandButton cmdExit 
				      Caption         =   "退   出"
				      Height          =   375
				      Left            =   2040
				      TabIndex        =   2
				      Top             =   1200
				      Width           =   1335
				   End
				   Begin VB.Label lblResult 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      BorderStyle     =   1  'Fixed Single
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   840
				      TabIndex        =   1
				      Top             =   600
				      Width           =   1815
				   End
				   Begin VB.Label lblNote 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "所求出的平均值为"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   840
				      TabIndex        =   0
				      Top             =   240
				      Width           =   1815
				   End
				End
				Attribute VB_Name = "frmResult"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				'计算窗体
				Option Explicit
				
				Private Sub Form_Load()
				'调用计算平均值函数
				    lblResult.Caption = XYZ(intRow, intCol, dblArray)
				End Sub
				
				'退出
				Private Sub cmdExit_Click()
				    Unload Me
				    End
				End Sub