excel - 运行时错误 '9' : subscript out of range when generating an array

Question

我正在尝试为 GA 生成种群。我使用二维数组来帮助生成种群。首先，用户将在用户表单中输入种群大小，然后输入染色体长度。

我的变量:

Dim Generation As Integer
Dim Chromolength As Integer
Dim varchromolength As Integer
Dim Poparr() As Integer

然后我从 UserForm 中获取值:

PopSize = PopulationSize.value
aVariables = AOV.value          'assign userform value entered to this variable
varchromolength = Chromolengthentered.value    'assign userform value entered to this   variable
Chromolength = varchromolength * aVariables   'Chromosome length equals the length of     each varaible chromosome combined

发生错误的编码:

For i = 1 To PopSize           
    For j = 1 To Chromolength       
        If Rnd < 0.5 Then           
            Poparr(i, j) = 0   'assign o to gene
        Else
            Poparr(i, j) = 1   'assign 1 to gene     
        End If
    Next j
Next i

Answer 1

根据您的代码，您从未分配数组的维度。为此，请在设置 PopSize 和 ChromoLength 的值后，在 for 循环之前插入此行。

Redim Poparr(1 to PopSize, 1 to ChromoLength)

不必要的细节:您可以只运行Redim Poparr(PopSize, ChromoLength)，但这会导致数组0到Popsize等...除非您将Option Base 1 添加到模块的顶部。数组的默认基数是 0。我认为最好明确指示数组的下限和上限，因为默认值可以是 0 或 1，具体取决于上下文。