計算到這一部分出錯了
Case 2 '組法方程
Text1.Visible = False
Dim n1 As Integer, n2 As Integer, l1 As Double, pp As Double
ll = 0
n1 = zds - yds
n2 = n1 * (n1 + 1) / 2
ReDim NX(n2), UX(n1)
Call order(mm(), yds)
For i = 1 To cds
k1 = nl(i - 1) + 1: k2 = nl(i)
For k = k1 To k2
ReDim nb(n1)
h = seqn(zd1(k))
cha = charact(i, j)
If cha = "n" Then
d = i - j
nb(d) = -1
End If
cha = charact(h, j)
If cha = "n" Then
d = h - j
nb(d) = 1
End If
ll = (z(h) - z(i) - g(k)) * 100 （提示在這一行出錯了）
pp = 200 / s1(k)
Call equation(nb(), pp, l1)
ll = ll + pp * l1 ^ 2
Next k
Next i
Text1.Visible = False
MsgBox ("法方程組成完畢")
adj(1).Enabled = False
adj(3).Enabled = True
adj(0).Enabled = False
adj(2).Enabled = False
End Select
End Sub
uj5u.com熱心網友回復：
錯誤資訊呢? 你有沒有看看出錯的時候運算式里面每個變數的值?uj5u.com熱心網友回復：
可不可以段點debuguj5u.com熱心網友回復：
在出錯的行打斷點，分別查看 h，i，k 的值。uj5u.com熱心網友回復：
VB IDE中彈出出錯提示框時點除錯按鈕。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/155875.html
標籤：網絡編程
上一篇：VB 多串口通信