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

				VERSION 5.00
				Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
				Begin VB.Form frmDisplay 
				   Appearance      =   0  'Flat
				   BackColor       =   &H80000005&
				   Caption         =   "显示记录"
				   ClientHeight    =   5100
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   8310
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   5100
				   ScaleWidth      =   8310
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.Data DataDisplay 
				      Caption         =   "                          单击导航按钮可改变当前记录"
				      Connect         =   "Access"
				      DatabaseName    =   ""
				      DefaultCursorType=   0  '缺省游标
				      DefaultType     =   2  '使用 ODBC
				      Exclusive       =   0   'False
				      Height          =   285
				      Left            =   120
				      Options         =   0
				      ReadOnly        =   0   'False
				      RecordsetType   =   1  'Dynaset
				      RecordSource    =   ""
				      Top             =   4680
				      Width           =   8100
				   End
				   Begin VB.CommandButton cmdExit 
				      Caption         =   "退出"
				      Height          =   375
				      Left            =   7560
				      TabIndex        =   1
				      Top             =   240
				      Width           =   615
				   End
				   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
				      Bindings        =   "数据库_通用F6.frx":0000
				      Height          =   3855
				      Left            =   120
				      TabIndex        =   0
				      Top             =   840
				      Width           =   8055
				      _ExtentX        =   14208
				      _ExtentY        =   6800
				      _Version        =   393216
				      BackColor       =   -2147483639
				      BackColorFixed  =   -2147483638
				      ForeColorSel    =   -2147483640
				      BackColorBkg    =   16777215
				      AllowUserResizing=   1
				      Appearance      =   0
				   End
				   Begin VB.Label lblTDName 
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "Label2"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   1440
				      TabIndex        =   5
				      Top             =   480
				      Width           =   6015
				   End
				   Begin VB.Label lblDBName 
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "Label1"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   1440
				      TabIndex        =   4
				      Top             =   120
				      Width           =   6015
				   End
				   Begin VB.Label lblTD 
				      Alignment       =   1  'Right Justify
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "Label2"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   120
				      TabIndex        =   3
				      Top             =   480
				      Width           =   1215
				   End
				   Begin VB.Label lblDB 
				      Alignment       =   1  'Right Justify
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "Label1"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   120
				      TabIndex        =   2
				      Top             =   120
				      Width           =   1215
				   End
				End
				Attribute VB_Name = "frmDisplay"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				'窗体frmDisplay
				'显示记录
				'使用绑定的MSFlexGrid控件作为显示空间
				Private Sub Form_Load()
				    On Error GoTo err_Display
				    DataDisplay.DatabaseName = db.Name
				    DataDisplay.RecordSource = td.Name
				    DataDisplay.RecordsetType = 2
				    DataDisplay.Align = 2
				    lblDB.Caption = "数据库名为："
				    lblTD.Caption = "数据表名为："
				    lblDBName = db.Name
				    lblTDName = td.Name
				    Exit Sub
				'MSFlexGrid控件的DataSource属性必须在属性窗口设置
				'设置为dataDisplay，即本窗体所使用的数据控件
				err_Display:
				    MsgBox "出现错误"
				End Sub
				
				'退出
				Private Sub cmdExit_Click()
				    Unload Me
				    Load frmDatabase
				    frmDatabase.Visible = True
				End Sub