?? chobsb.txt
字號:
Sub CHOBSB(A(), N, D(), B())
For I = 1 To N
Sum = B(I)
For J = 1 To I - 1
Sum = Sum - A(I, J) * B(J)
Next J
B(I) = Sum
Next I
For I = N To 1 Step -1
If D(I) = 0# Then
Print " Singular Matrix"
Exit Sub
Else
Sum = B(I) / D(I)
End If
For J = I + 1 To N
Sum = Sum - A(J, I) * B(J)
Next J
B(I) = Sum
Next I
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -