Attribute VB_Name = "MduGA"
Public MM As Integer '染色體條數(shù)
Public NN As Integer '染色體位數(shù)
Public M1 As Integer '第M1條染色體
Public MM1 As Integer '標(biāo)記第M1條染色體
Public M2 As Integer '第M2條染色體
Public MM2 As Integer '標(biāo)記第M2條染色體
Public N As Integer '在第N位交叉
Public A() As Integer '染色體
Public B() As Integer '適應(yīng)度
Public MarkTemp As Integer '暫時(shí)標(biāo)記最優(yōu)
Public Mark As Integer '標(biāo)記最優(yōu)

Public Sub Exchange_A()
Dim i, j As Integer
Dim Temp() As Integer
ReDim Temp(NN)
For i = N To NN
Temp(i) = A(M1, i)
Next i
For i = N To NN
A(M1, i) = A(M2, i)
Next i
For i = N To NN
A(M2, i) = Temp(i)
Next i
End Sub

Public Sub Calculate_A()
Dim i, j As Integer
Dim Test0, Test1 As Integer
For i = 1 To MM
 Test0 = 0
 Test1 = 0
 For j = 1 To 5
 If A(i, j) = 0 Then
   Test0 = Test0 + 1
 End If
 Next j
 For j = 6 To NN
 If A(i, j) = 1 Then
   Test1 = Test1 + 1
 End If
 Next j
 B(i) = Test0 + Test1
Next i
End Sub

Public Sub Find_Optimum()
Dim i As Integer
Dim Optimum As Integer
For i = 1 To MM
If Optimum < B(i) Then
  Optimum = B(i)
  MarkTemp = i
End If
Next i
End Sub