?? d7r5.txt
字號(hào):
Private Sub Command1_Click()
'PROGRAM D7R5
'for routine SORT2
Dim A(100), B(100)
Open "D:\VB常用數(shù)值算法集\DATA\TARRAY.DAT" For Input As #2
For I = 1 To 10
Line Input #2, dum$
For J = 1 To 10
A(10 * (I - 1) + J) = Val(Mid(dum$, 6 * J - 5, 6))
Next J
Next I
Close (2)
'Generate B-array
For I = 1 To 100
B(I) = I
Next I
'Sort A and mix B
Call SORT2(100, A(), B())
Print "After sorting A and mixing B, array A is:"
For I = 1 To 10
For J = 1 To 10
Print Tab(7 * (J - 1) + 2); Format$(A(10 * (I - 1) + J), "###.#0");
Next J
Print
Next I
Print "...and array B is:"
For I = 1 To 10
For J = 1 To 10
Print Tab(7 * (J - 1) + 2); Format$(B(10 * (I - 1) + J), "###.#0");
Next J
Print
Next I
MSG1$ = "press RETURN to continue..."
X = MsgBox(MSG1$, 1)
'Sort B and mix A
Call SORT2(100, B(), A())
Print "After sorted B and mixing A,array A is:"
For I = 1 To 10
For J = 1 To 10
Print Tab(7 * (J - 1) + 2); Format$(A(10 * (I - 1) + J), "###.#0"); " ";
Next J
Print
Next I
Print "...and array B is:"
For I = 1 To 10
For J = 1 To 10
Print Tab(7 * (J - 1) + 2); Format$(B(10 * (I - 1) + J), "###.#0");
Next J
Print
Next I
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -