modglobalvariables.bas

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

Attribute VB_Name = "ModGlobalVariables"
'全局变量声明
Public PopSize As Integer       '种群大小
Public Pc As Double             '交叉概率
Public Pm As Double             '变异概率
Public MaxGeneration As Integer '终止代数
Public ChromLength As Integer   '编码长度

Public Population() As individual    '种群
Public Generation As Integer         '代数
Public BestIndividual As individual  '本代最佳个体
Public Best_Index As Integer         '本代最佳个体序号
Public WorstIndividual As individual '本代最差个体
Public Worst_Index As Integer        '本代最差个体序号
Public CurrentBest As individual     '当前最佳个体

Public test As Integer '测试