d7r11.frm

常用的数值算法的VB程序

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4170
   ClientLeft      =   2265
   ClientTop       =   1545
   ClientWidth     =   5955
   LinkTopic       =   "Form1"
   ScaleHeight     =   4170
   ScaleWidth      =   5955
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   3960
      TabIndex        =   0
      Top             =   3480
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    'PROGRAM D7R11
    'Driver for routine ECLAZZ
    N = 15
    Dim NF(15), NFLAG(15), NSAV(15)
    Call ECLAZZ(NF(), N)
    Print "NF(I)=, (I=1,N)"
        For I = 1 To N
        Print Tab(1 + (I - 1) * 4); NF(I);
    Next I
    Print
    For I = 1 To N
        NFLAG(I) = 1
    Next I
    Print
    Print "Numbers from 1-15 divided according to"
    Print
    Print "their value modulo 4:"
    Print
    LCLAS = 0
    For I = 1 To N
        NCLASS = NF(I)
        If NFLAG(NCLASS) <> 0 Then
            NFLAG(NCLASS) = 0
            LCLAS = LCLAS + 1
            K = 0
            For J = 1 To N
                If NF(J) = NF(I) Then
                    K = K + 1
                    NSAV(K) = J
                End If
            Next J
            Print "Class"; LCLAS; ":  ";
            For J = 1 To K
                Print Format$(NSAV(J), "##0"); "  ";
            Next J
            Print
        End If
    Next I
End Sub
Function EQUIV(I, J)
    EQUIV = 0
    If (I Mod 4) = (J Mod 4) Then EQUIV = -1
End Function
Sub ECLAZZ(NF(), N)
    NF(1) = 1
    For JJ = 2 To N
        NF(JJ) = JJ
        For KK = 1 To JJ - 1
            NF(KK) = NF(NF(KK))
            If EQUIV(JJ, KK) Then NF(NF(NF(KK))) = JJ
        Next KK
    Next JJ
    For JJ = 1 To N
        NF(JJ) = NF(NF(JJ))
    Next JJ
End Sub