modgenerateinitialpop.bas

来自「用vb编写的一个遗传算法的程序」· BAS 代码 · 共 19 行

Attribute VB_Name = "ModGenerateInitialPop"
'产生初始种群
'并重定义种群结构数组的大小
Sub GenerateInitialPop()
ReDim Population(PopSize)
Dim i As Integer, j As Integer
Call Randomize
For i = 0 To PopSize - 1
    ReDim Population(i).chrom(ChromLength)
    For j = 0 To ChromLength - 1
        If Rnd < 0.5 Then
            Population(i).chrom(j) = 0
        Else
            Population(i).chrom(j) = 1
        End If
    Next j
Next i
End Sub