form2.frm

vb环境下 匈牙利算法的解决 自己编的 仅供参考

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   4470
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6960
   LinkTopic       =   "Form2"
   ScaleHeight     =   4470
   ScaleWidth      =   6960
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   255
      Left            =   5160
      TabIndex        =   0
      Top             =   240
      Width           =   495
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim c(1 To 4, 1 To 4) As Integer
Dim a1(1 To 4, 1 To 4) As Integer
Dim d(1 To 4, 1 To 4) As Integer
Dim g(1 To 4, 1 To 4) As Integer
For i = 1 To N
  For j = 1 To N
  g(i, j) = 0
  Next j: Next i
N = 4
c(1, 1) = 0: c(1, 2) = 1: c(1, 3) = 2: c(1, 4) = 3
c(2, 1) = 0: c(2, 2) = 1: c(2, 3) = 2: c(2, 4) = 1
c(3, 1) = 2: c(3, 2) = 3: c(3, 3) = 0: c(3, 4) = 0
c(4, 1) = 3: c(4, 2) = 0: c(4, 3) = 1: c(4, 4) = 1
a1(1, 1) = 1: a1(1, 2) = 0: a1(1, 3) = 0: a1(1, 4) = 0
a1(2, 1) = 2: a1(2, 2) = 0: a1(2, 3) = 0: a1(2, 4) = 0
a1(3, 1) = 0: a1(3, 2) = 0: a1(3, 3) = 1: a1(3, 4) = 1
a1(4, 1) = 0: a1(4, 2) = 1: a1(4, 3) = 0: a1(4, 4) = 0
 For i = 1 To N
  For j = 1 To N
 If (c(i, j) = 0) Then
    If a1(i, j) = 0 Then
 Exit Sub
         End If
        End If
    Next j
  Next i
  
For i = 1 To N
  For j = 1 To N
   If a1(i, j) = 0 Or a1(i, j) = 2 Then
   d(i, j) = 1
   Else: d(i, j) = 0
     End If
     Print d(i, j);
       Next j
       Print
  Next i
For i = 1 To N
k = 0
  For j = 1 To N
If d(i, j) = 1 Then
 k = k + 1
 End If
 Next j
    If k < N Then
     For h = 1 To N
     d(i, h) = 0
     Next h
     End If
  Next i
 For i = 1 To N
  For j = 1 To N
  Print d(i, j);
  Next j
  Print
  Next i
  
For i = 1 To N
For j = 1 To N
    If d(i, j) = 1 And c(i, j) = 0 Then
        For h = 1 To N
        d(h, j) = 1
        Next h
        End If
        Next j
        Next i
        
    For i = 1 To N
  For j = 1 To N
  Print d(i, j);
  Next j
  Print
  Next i
        
        
   For j = 1 To N
   For i = 1 To N
    If d(i, j) = 1 And a1(i, j) = 1 Then
        For h = 1 To N
        d(j, h) = 1
        Next h
        End If
        Next i
        Next j
        
     For i = 1 To N
     k = 0
    For j = 1 To N
    If d(i, j) = 1 Then
       k = k + 1
        End If
      Next j
       If k < N Then
       For h = 1 To N
         g(i, h) = 1
         Next h
         End If
      Next i
      
  For j = 1 To N
     k = 0
    For i = 1 To N
    If d(i, j) = 1 Then
       k = k + 1
        End If
      Next i
       If k = N Then
       For h = 1 To N
         g(h, j) = 1
         Next h
         End If
      Next j
      
      
 For i = 1 To N
  For j = 1 To N
      If g(i, j) = 0 Then
       m = c(i, j)
       End If
    Next j
  Next i
For i = 1 To N
  For j = 1 To N
    If g(i, j) = 0 Then
     If m > c(i, j) Then
        m = c(i, j)
        End If
        End If
       Next j
  Next i
  Print m
  
  For i = 1 To N
     k = 0
    For j = 1 To N
    If g(i, j) = 1 Then
       k = k + 1
        End If
      Next j
       If k < N Then
       For h = 1 To N
         c(i, h) = c(i, h) - m
         Next h
         End If
      Next i
   For i = 1 To N
     k = 0
    For j = 1 To N
    If g(j, i) = 1 Then
       k = k + 1
        End If
      Next j
       If k = N Then
       For h = 1 To N
         c(h, i) = c(h, i) + m
         Next h
         End If
      Next i
    
    
    Print
  For i = 1 To N
  For j = 1 To N
  Print c(i, j);
  Next j
  Print
  Next i
       
End Sub