modfindbestandworstindividual.bas

用vb编写的一个遗传算法的程序

Attribute VB_Name = "ModFindBestAndWorstIndividual"
'找出最优、最差个体
'并更新当前最优个体
Sub FindBestAndWorstIndividual()
Dim i As Integer
BestIndividual = Population(0)
WorstIndividual = Population(0)
For i = 1 To PopSize - 1
If Population(i).fitness > BestIndividual.fitness Then
    BestIndividual = Population(i)
    Best_Index = i
ElseIf Population(i).fitness < WorstIndividual.fitness Then
    WorstIndividual = Population(i)
    Worst_Index = i
End If
Next i

If Generation = 0 Then
    CurrentBest = BestIndividual
ElseIf BestIndividual.fitness > CurrentBest.fitness Then
    CurrentBest = BestIndividual
End If
End Sub