VBA变量尺寸标注的问题

如何解决VBA变量尺寸标注的问题

我在VBA中有一个运行模型的代码。我将省略代码的正文，并显示我认为是问题所在的代码。如果您想查看完整的脚本，请告诉我。

问题是当我运行代码时，我收到运行时错误。我觉得这是因为变量类型不允许执行代码。

下面是变量的尺寸标注方式以及它们的赋值方式。

Dim VOL(10) As Double         'Variable for Reservoir Volume
Dim QOUT(10) As Double         'Variable for Reservoir Release
Dim DK(10) As Integer         'Variable for Kinetic Coefficient
Dim Alpha As Double         'Variable for AL in Function
Alpha = (QOUT(I5) / VOL(I5)) + DK(I5)
Function RHS(TERM1 As Double,Y As Double,Alpha As Double)     'The RHS of the differential equation
RHS = TERM1 - Y * Alpha

下面是I5循环的代码。

For I5 = 1 To NREACT
        WLUP(I5) = 0
        If I5 = 1 Then GoTo RungeKutta
        WLUP(I5) = CONCUP(I5 - 1) * QOUT(I5 - 1)
    

RungeKutta：

        Alpha = (QOUT(I5) / VOL(I5)) + DK(I5)

QOUT，VOL和DK的值分别为：1250、35000和0。

我尝试通过将QOUT，VOL和DK分配为不同的变量类型来解决问题，但无济于事，对于Alpha方程仍然收到相同的运行时错误。错误为“ Ru时间错误'6'：溢出。