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

				VERSION 5.00
				Begin VB.Form frmDisplayRowCol 
				   Appearance      =   0  'Flat
				   BackColor       =   &H80000005&
				   Caption         =   "显示文件的列数和行数、总行数"
				   ClientHeight    =   2025
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   6420
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   2025
				   ScaleWidth      =   6420
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.CommandButton cmdExit 
				      Caption         =   "退  出"
				      Height          =   375
				      Left            =   4920
				      TabIndex        =   9
				      Top             =   1440
				      Width           =   1215
				   End
				   Begin VB.CommandButton cmdOK 
				      Caption         =   "确  定"
				      Height          =   375
				      Left            =   3600
				      TabIndex        =   8
				      Top             =   1440
				      Width           =   1215
				   End
				   Begin VB.Label lblRowAllCount 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      BorderStyle     =   1  'Fixed Single
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   4800
				      TabIndex        =   7
				      Top             =   720
				      Width           =   975
				   End
				   Begin VB.Label lblRowCount 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      BorderStyle     =   1  'Fixed Single
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   2520
				      TabIndex        =   6
				      Top             =   720
				      Width           =   975
				   End
				   Begin VB.Label lblColCount 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      BorderStyle     =   1  'Fixed Single
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   600
				      TabIndex        =   5
				      Top             =   720
				      Width           =   975
				   End
				   Begin VB.Label Label5 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "（包括图题、列标和行标）"
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   4080
				      TabIndex        =   4
				      Top             =   360
				      Width           =   2415
				   End
				   Begin VB.Label Label4 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "（不计图题、列标和行标）"
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   1920
				      TabIndex        =   3
				      Top             =   360
				      Width           =   2295
				   End
				   Begin VB.Label Label3 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "文件的总行数"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   4440
				      TabIndex        =   2
				      Top             =   120
				      Width           =   1695
				   End
				   Begin VB.Label Label2 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "文件的行数"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   2160
				      TabIndex        =   1
				      Top             =   120
				      Width           =   1695
				   End
				   Begin VB.Label Label1 
				      Alignment       =   2  'Center
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "文件的列数"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   240
				      TabIndex        =   0
				      Top             =   120
				      Width           =   1695
				   End
				End
				Attribute VB_Name = "frmDisplayRowCol"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Option Explicit