数据文件_录入m.bas

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

Attribute VB_Name = "modRowCol"
'录入数据，并生成数据文件
'数据文件格式：
'   1。“列数”占第1行的第1列，其余列用******填充，必须，自动获取
'   2。“行数”占第2行的第1列，其余列用******填充，必须，自动获取
'   3。“总行数”占第3行的第1列，其余列用******填充，必须，自动计算
'   4。标题，占第4行的第1列，其余列用******填充，可选，由用户填写
'   5。行标，其所占行数与行数相同，只占第1列，其余列用******填充，可选，由用户填写
'   6。列标，占1行的所有列，可选，由用户填写
'   7。数据部分，其所占行数与行数相同，占所有列，由用户填写
'在标题、行标、列标中，标题优先，行标其次。有行标必须有标题，有列标必须有标题、行标
'
Option Explicit
Public intRow As Integer            '行数
Public intRowAll As Integer         '包括标题、行标和列标的总行数
Public intCol As Integer            '列数
Public blnTitle As Boolean          '是否有标题
Public blnRowLabel As Boolean       '是否有行标
Public blnColLabel As Boolean       '是否有列标
Public strFileName                  '文件名
Public intFileNumber As Integer     '文件号