频数统计m1(bas模块modp).bas

这个程序

Attribute VB_Name = "modP"
'公有变量
Option Explicit
Public intRow As Integer            '行数
Public intCol As Integer            '列数
Public intZon As Integer            '频段分组行数
Public intCCC As Integer            '频段分组列数
Public strDatName As String         '数据文件
Public strZonName As String         '频数分组文件
Public strFreName As String         '频数统计文件
Public P() As Single                '原始数据
Public S() As Single                '分组端值
Public R() As Single                '统计结果