频数统计f2(窗体模块frmcalc).frm

这个程序

VERSION 5.00
Begin VB.Form frmCalc 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "计算"
   ClientHeight    =   8820
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   13290
   LinkTopic       =   "Form1"
   ScaleHeight     =   15.558
   ScaleMode       =   7  'Centimeter
   ScaleWidth      =   23.442
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdFuzz 
      Caption         =   "求隶属度"
      Height          =   375
      Left            =   1680
      TabIndex        =   5
      Top             =   0
      Width           =   855
   End
   Begin VB.PictureBox pic 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   8295
      Left            =   0
      ScaleHeight     =   8295
      ScaleWidth      =   13335
      TabIndex        =   4
      Top             =   480
      Width           =   13335
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退  出"
      Height          =   375
      Left            =   840
      TabIndex        =   3
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保  存"
      Height          =   375
      Left            =   3360
      TabIndex        =   2
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton cmdPrint 
      Caption         =   "打  印"
      Height          =   375
      Left            =   2520
      TabIndex        =   1
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton cmdCalculate 
      Caption         =   "计  算"
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   855
   End
End
Attribute VB_Name = "frmCalc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'计算窗体
Dim strFileOut As String, intFileOut As Integer
Dim I As Integer, J As Integer, Inc As Single

Private Sub Form_Load()
    Me.Top = 0: Me.Left = 0
    Me.Width = Screen.Width: Me.Height = Screen.Height
    cmdPrint.Visible = False                '“打印”命令按钮不可视
    cmdSave.Visible = False                 '“保存”命令按钮不可视
    cmdFuzz.Visible = False                 '“求隶属度”命令按钮不可视
End Sub

'计算
Private Sub cmdCalculate_Click()
    Dim RR As Single, FF As Single
    FreFuzz P, S, R                         '调用标准模块中计算频数的过程
'在屏幕的图片框中显示统计结果
    pic.Font = "隶书"
    pic.FontSize = 20
    pic.Print Spc(5 * intCCC); "频数统计"
    pic.Font = "宋体"
    pic.FontSize = 10
    For I = 1 To intCCC
        pic.Print "  分组区间",: pic.Print "相对频数",
    Next I
    pic.Print
    For I = 1 To intZon
        For J = 1 To intCCC
            pic.Print S((I - 1) * intCCC + J, 1);: pic.Print "-";
            pic.Print S((I - 1) * intCCC + J, 2),
            RR = Int(R((I - 1) * intCCC + J, 2) * 10000 + 0.5) / 10000
            pic.Print RR;: pic.Print "  ",
        Next J
        pic.Print
    Next I
    cmdCalculate.Visible = False
    cmdPrint.Visible = True                 '“打印”命令按钮可视
    cmdSave.Visible = True                  '“保存”命令按钮可视
    cmdFuzz.Visible = True                  '“求隶属度”命令按钮可视
End Sub

'打印
Private Sub cmdPrint_Click()
    MsgBox "现在开始打印，请稍候"
    Printer.Font = "隶书"
    Printer.FontSize = 20
    Printer.Print Spc(2 * intCCC); "频数统计"
    Printer.Font = "宋体"
    Printer.FontSize = 10
    For I = 1 To intCCC
        pic.Print "   分组区间    ",: pic.Print "相对频数",
    Next I
    pic.Print
    For I = 1 To intZon
        For J = 1 To intCCC
            pic.Print S((I - 1) * intCCC + J, 1);: pic.Print "-";
            pic.Print S((I - 1) * intCCC + J, 2),
            RR = Int(R((I - 1) * intCCC + J, 2) * 10000 + 0.5) / 10000
            pic.Print RR;: pic.Print "  ",
        Next J
        pic.Print
    Next I
    Printer.EndDoc                                  '执行打印
    MsgBox "打印文档已交付打印设备，请继续其他工作"
End Sub

'保存
Private Sub cmdSave_Click()
    Dim intFreNumber As Integer
    MsgBox "开始保存数据，请稍候"
    intFreNumber = FreeFile                         '取得空闲的文件号
    Open strFreName For Output As intFreNumber      '打开文件
    Write #intFreNumber, intRow; intCol             '保存样本数和列数
    For intI = 1 To intZon
        For intJ = 1 To intCCC
'将数组中的数据写到文件上
            If intJ <> intCCC Then
                Write #intFreNumber, Str(S((intI - 1) * intCCC + intJ, 1));
                Write #intFreNumber, Str(S((intI - 1) * intCCC + intJ, 2));
                Write #intFreNumber, Str(R((intI - 1) * intCCC + intJ, 2));
            Else
                Write #intFreNumber, Str(S((intI - 1) * intCCC + intJ, 1));
                Write #intFreNumber, Str(S((intI - 1) * intCCC + intJ, 2));
                Write #intFreNumber, Str(R((intI - 1) * intCCC + intJ, 2))
            End If
        Next intJ
    Next intI
    Close                                           '关闭文件
    cmdSave.Visible = False
    MsgBox "保存数据完成，请继续进行"
End Sub

'求隶属度
Private Sub cmdFuzz_Click()
    Unload Me
    frmFuzz.Visible = True
End Sub

'退出
Private Sub cmdExit_Click()
    Unload Me
    End
End Sub