VB編程：給定兩組按升序排好的整型數據，編寫壹個程序把它們合並為壹組仍按升序排列的數據。謝謝！

Dim mArra(4), mArrB(4), mArrC, i%, stra$, strb$, j%, k%, temstr%

For i = 0 To 4

mArra(i) = i + 1

Print mArra(i);

Next

Print

For i = 0 To 4

mArrB(i) = i * 6

Print mArrB(i);

Next

Print

stra = Join(mArra, ",")

strb = Join(mArrB, ",")

strc = stra & "," & strb

mArrC = Split(strc, ",")

For j = 0 To UBound(mArrC) - 1

For k = UBound(mArrC) To j + 1 Step -1

If Val(mArrC(k)) < Val(mArrC(k - 1)) Then temstr = mArrC(k): mArrC(k) = mArrC(k - 1): mArrC(k - 1) = temstr

Next k

Next j

Print "New Array: " & Join(mArrC, " ")

End Sub