vb在运行过程中出现 loop 找不到 do 是什么原因？

来源：百度知道 编辑：UC知道 时间：2024/05/25 19:41:34
运行中提示loop 缺少 do

下列程序
Do

For i = 1 To m '雅克比阵生成H N J L
For j = 1 To length - 1
If i <> j Then '非对角阵
Jacobi(2 * i - 1, 2 * j - 1) = -By(i, j) * noe(i) + Gy(i, j) * nof(i)
Jacobi(2 * i - 1, 2 * j) = Gy(i, j) * noe(i) + By(i, j) * nof(i)
Jacobi(2 * i, 2 * j - 1) = -Gy(i, j) * noe(i) - By(i, j) * nof(i)
Jacobi(2 * i, 2 * i) = LL(i, j) = -By(i, j) * noe(i) + Gy(i, j) * nof(i)
Else '对角阵
Jacobi(2 * i - 1, 2 * j - 1) = -By(i, j) * noe(i) + Gy(i, j) * nof(i) + Bi(i)
Jacobi(2 * i - 1, 2 * j) = Gy(i, j) * noe(i) + By(i, j) * nof(i) + Ai(i)
Jacobi(2 * i, 2 * j - 1) = -Gy(i, j) * noe(i) - By(i, j) * nof(i) + Ai(i)
Jacobi(2 * i, 2 * i) = LL(i, j) = -By(i, j) * noe(i) + Gy(i, j) * nof(i) + Bi(i)
E

对比一下我的：

Private Sub Form_Click()
Do

For i = 1 To m '雅克比阵生成H N J L
For j = 1 To length - 1
If i <> j Then '非对角阵
Jacobi(2 * i - 1, 2 * j - 1) = -By(i, j) * noe(i) + Gy(i, j) * nof(i)
Jacobi(2 * i - 1, 2 * j) = Gy(i, j) * noe(i) + By(i, j) * nof(i)
Jacobi(2 * i, 2 * j - 1) = -Gy(i, j) * noe(i) - By(i, j) * nof(i)
Jacobi(2 * i, 2 * i) = LL(i, j) = -By(i, j) * noe(i) + Gy(i, j) * nof(i)
Else '对角阵
Jacobi(2 * i - 1, 2 * j - 1) = -By(i, j) * noe(i) + Gy(i, j) * nof(i) + Bi(i)
Jacobi(2 * i - 1, 2 * j) = Gy(i, j) * noe(i) + By(i, j) * nof(i) + Ai(i)
Jacobi(2 * i, 2 * j - 1) = -Gy(i, j) * noe(i) - By(i, j) * nof(i) + Ai(i)
Jacobi(2 * i, 2 * i) = LL(i, j) = -By(i, j) * noe(i) + Gy(i, j) * nof(i) + Bi(i)
End If
Next j
Next i

For i = m + 1 To length - 1 '雅克比阵生成H N R S
For j = 1 To length - 1
If i <> j Then '非对角阵
Jacobi(2 * i - 1, 2 * j - 1) = -