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

				VERSION 5.00
				Begin VB.Form frmDirList 
				   Appearance      =   0  'Flat
				   BackColor       =   &H80000005&
				   Caption         =   "目录列表"
				   ClientHeight    =   3090
				   ClientLeft      =   60
				   ClientTop       =   450
				   ClientWidth     =   4470
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   3090
				   ScaleWidth      =   4470
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.CommandButton cmdExit 
				      Caption         =   "退出"
				      Height          =   375
				      Left            =   480
				      TabIndex        =   4
				      Top             =   2640
				      Width           =   855
				   End
				   Begin VB.DirListBox Dir1 
				      Height          =   2610
				      Left            =   2040
				      TabIndex        =   3
				      Top             =   360
				      Width           =   2295
				   End
				   Begin VB.DriveListBox Drive1 
				      Height          =   300
				      Left            =   240
				      TabIndex        =   0
				      Top             =   360
				      Width           =   1695
				   End
				   Begin VB.Label lblDir 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "目录"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   2520
				      TabIndex        =   2
				      Top             =   120
				      Width           =   1215
				   End
				   Begin VB.Label lblDrive 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "选择驱动器"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   240
				      TabIndex        =   1
				      Top             =   120
				      Width           =   1695
				   End
				End
				Attribute VB_Name = "frmDirList"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				'frmDirList窗体
				'选定驱动器后显示目录
				Option Explicit
				
				Private Sub Drive1_Change()
				    Dir1.Path = Drive1.Drive
				End Sub
				
				Private Sub cmdExit_Click()
				    Unload Me
				    frmDatabase.Show
				End Sub