?? d1r6.txt
字號:
Private Sub Command1_Click()
'program D1R6
'Driver program for routine VANDER
N = 5
Dim X(5), Q(5), W(5), TERM(5)
'輸入已知的方程組的系數(shù)矩陣的X
X(1) = 1#: X(2) = 1.5: X(3) = 2#: X(4) = 2.5: X(5) = 3#
'輸入已知的方程組的右端向量B
Q(1) = 1#: Q(2) = 1.5: Q(3) = 2#: Q(4) = 2.5: Q(5) = 3#
Print Tab(5); " 已知的方程組的右端向量"
Print Tab(13); Format$(Q(1), "##.##")
Print Tab(13); Format$(Q(2), "##.##")
Print Tab(13); Format$(Q(3), "##.##")
Print Tab(13); Format$(Q(4), "##.##")
Print Tab(13); Format$(Q(5), "##.##")
Call VANDER(X(), W(), Q(), N)
'輸出方程組的解W
Print
Print Tab(5); " 計算出的方程組的的解"
Print Tab(11); Format$(W(1), "##.######")
Print Tab(11); Format$(W(2), "##.######")
Print Tab(11); Format$(W(3), "##.######")
Print Tab(11); Format$(W(4), "##.######")
Print Tab(11); Format$(W(5), "##.######")
'將計算出的解乘以系數(shù)矩陣,以驗(yàn)證計算結(jié)果正確
Print
Print Tab(4); "將計算出的解乘以系數(shù)矩陣,以驗(yàn)證計算結(jié)果正確"
Print
Print Tab(7); "解乘以系數(shù)矩陣"; Tab(26); "方程組的右端向量"
SUM1 = 0
For I = 1 To N
TERM(I) = W(I)
SUM1 = SUM1 + W(I)
Next I
Print Tab(12); Format$(SUM1, "#.####"); Tab(32); Format$(Q(1), "#.####")
For I = 2 To N
SUM1 = 0
For J = 1 To N
TERM(J) = TERM(J) * X(J)
SUM1 = SUM1 + TERM(J)
Next J
Print Tab(12); Format$(SUM1, "#.####"); Tab(32); Format$(Q(I), "#.####")
Next I
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -