[求助] 运行代码出现下标越界的错误提示，怎么解决 - VB6论坛

问题点数：0 回复次数：4

[求助] 运行代码出现下标越界的错误提示，怎么解决

Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim j As Integer, k As Integer
Dim i As Integer, Px(100) As Double
Dim pd(20) As Double
Dim md(20) As Double
Dim mx(100) As Double

For n = 1 To 18
pd(n) = 25
Next n

For n = 1 To 18
md(n) = 25 * 2.25 / Z(pd(n)) / 8.314 / 293 * 28 * 1000
Next n

For m = 1 To 98
   Px(m) = 3
Next m

For n = 1 To 98
mx(n) = 3 * 0.07 / Z(Px(m)) / 8.314 / 293 * 28 * 1000

Next n

k = 0
aa: k = k + 1
j = 1

For j = 1 To 12
Do While pd(j) - Px(k) >= 1.25

       md(j) = md(j) - 0.01

       pd(j) = md(j) * (1.00036 - 0.00276 * pd(j) + 0.000297905 * pd(j) * pd(j) - 0.000001584444 * pd(j) * pd(j) * pd(j)) * 8.314 * 293 / 2.25 / 28 / 1000 'Z(pd(j))


       mx(k) = mx(k) + 0.01

      Px(k) = mx(k) * (1.00036 - 0.00276 * Px(k) + 0.000297905 * Px(k) * Px(k) - 0.000001584444 * Px(k) * Px(k) * Px(k)) * 8.314 * 293 / 0.07 / 28 / 1000      'Z(pd(j)


    If Px(k) >= 20 Then

   GoTo aa

    End If

Loop

Next j

Text35.Text = k
Text34.Text = Px(k)

For n = 1 To 10 Step 1
i = 3 * (n - 1) + 1
Controls("Text" & i).Text = pd(n)
'Print pd(n)
Next n

End Sub
Private Function Z(ByVal X As Double) As Double
Dim result As Double
result = 1.00036 - 0.00276 * X + 0.000297905 * X * X - 0.000001584444 * X * X * X '压缩系数拟合函数

Z = result
End Function

第 2 楼

得分:0

Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim j As Integer, k As Integer
Dim i As Integer, Px(100) As Double
Dim pd(20) As Double
Dim md(20) As Double
Dim mx(100) As Double

For n = 1 To 18
pd(n) = 25
Next n

For n = 1 To 18
md(n) = 25 * 2.25 / Z(pd(n)) / 8.314 / 293 * 28 * 1000
Next n

For m = 1 To 98
   Px(m) = 3
Next m

For n = 1 To 98
mx(n) = 3 * 0.07 / Z(Px(m)) / 8.314 / 293 * 28 * 1000

Next n

k = 0
aa: k = k + 1
j = 1

For j = 1 To 12
if k=98 then
Do While pd(j) - Px(k) >= 1.25

       md(j) = md(j) - 0.01

       pd(j) = md(j) * (1.00036 - 0.00276 * pd(j) + 0.000297905 * pd(j) * pd(j) - 0.000001584444 * pd(j) * pd(j) * pd(j)) * 8.314 * 293 / 2.25 / 28 / 1000 'Z(pd(j))


       mx(k) = mx(k) + 0.01

      Px(k) = mx(k) * (1.00036 - 0.00276 * Px(k) + 0.000297905 * Px(k) * Px(k) - 0.000001584444 * Px(k) * Px(k) * Px(k)) * 8.314 * 293 / 0.07 / 28 / 1000      'Z(pd(j)


    If Px(k) >= 20 Then

   GoTo aa

    End If

Loop
  End If
Next j

Text35.Text = k
Text34.Text = Px(k)

For n = 1 To 10 Step 1
i = 3 * (n - 1) + 1
Controls("Text" & i).Text = pd(n)
'Print pd(n)
Next n

End Sub
Private Function Z(ByVal X As Double) As Double
Dim result As Double
result = 1.00036 - 0.00276 * X + 0.000297905 * X * X - 0.000001584444 * X * X * X '压缩系数拟合函数

Z = result
End Function

第 3 楼

得分:0

程序代码：

aa: k = k + 1
For j = 1 To 12
Do While pd(j) - Px(k) >= 1.25
       md(j) = md(j) - 0.01
       pd(j) = md(j) * (1.00036 - 0.00276 * pd(j) + 0.000297905 * pd(j) * pd(j) - 0.000001584444 * pd(j) * pd(j) * pd(j)) * 8.314 * 293 / 2.25 / 28 / 1000 'Z(pd(j))
       mx(k) = mx(k) + 0.01
      Px(k) = mx(k) * (1.00036 - 0.00276 * Px(k) + 0.000297905 * Px(k) * Px(k) - 0.000001584444 * Px(k) * Px(k) * Px(k)) * 8.314 * 293 / 0.07 / 28 / 1000      'Z(pd(j)
    If Px(k) >= 20 Then
   GoTo aa    '每次循环调用一次，FOR与DO二重循环，能不越界吗
    End If
Loop
Next j

K值大于数组的下标，因此越界了
可以修改 If Px(k) >= 20 Then 为 If k <= 100 Then 这样就不会越界了，但不知道你的意图，不知行不行。

[此贴子已经被作者于2016-5-20 17:36编辑过]

请不要选我！！！

第 4 楼

得分:0

回复 3楼 ZHRXJR

K值大于数组的下标，因此越界了
可以修改 If Px(k) >= 20 Then 为 If k <= 100 Then 这样就不会越界了，但不知道你的意图，不知行不行。

Px(k) >= 20是一个判定条件，目的是为了计算最终的K值。
能帮我看看嘛

第 5 楼

得分:0

回复 4楼 hxw871208

原因就在这里，因为你在循环过程中，Px(k) 的值始终大于或等于 20，或，大部分循环中，Px(k) 的值始终大于或等于 20，因此才会 Goto aa，这样 k 的值一致在递加，就越界了。
你要解决问题，需要在这个判断语句中下功夫，可以使用And，用多个条件限制Goto，才可以，不然 k 的值一致在递加，肯定会越界的。

[此贴子已经被作者于2016-5-21 09:03编辑过]

收到的鲜花

hxw871208 于 2016-05-27 22:35 送鲜花 3朵附言：我很赞同

请不要选我！！！