46 lines
892 B
Plaintext
46 lines
892 B
Plaintext
Sub Merge2(c1() As Integer, c2() As Integer)
|
|
Dim As Integer i1 = Lbound(c1)
|
|
Dim As Integer i2 = Lbound(c2)
|
|
|
|
While i1 <= Ubound(c1) And i2 <= Ubound(c2)
|
|
If c1(i1) <= c2(i2) Then
|
|
Print c1(i1);
|
|
i1 += 1
|
|
Else
|
|
Print c2(i2);
|
|
i2 += 1
|
|
End If
|
|
Wend
|
|
|
|
While i1 <= Ubound(c1)
|
|
Print c1(i1);
|
|
i1 += 1
|
|
Wend
|
|
|
|
While i2 <= Ubound(c2)
|
|
Print c2(i2);
|
|
i2 += 1
|
|
Wend
|
|
Print
|
|
End Sub
|
|
|
|
Sub MergeN(all() As Integer)
|
|
Dim As Integer i = Lbound(all)
|
|
While i <= Ubound(all)
|
|
Print all(i);
|
|
i += 1
|
|
Wend
|
|
Print
|
|
End Sub
|
|
|
|
Dim As Integer v1(2) = {0, 3, 6}
|
|
Dim As Integer v2(2) = {1, 4, 7}
|
|
Dim As Integer v3(2) = {2, 5, 8}
|
|
Merge2(v2(), v1())
|
|
MergeN(v1())
|
|
|
|
Dim As Integer all(8) = {v1(0), v2(0), v3(0), v1(1), v2(1), v3(1), v1(2), v2(2), v3(2)}
|
|
MergeN(all())
|
|
|
|
Sleep
|