有關vb 陣列合併

Question

我有個問題想請教一下
就是現在我有2個陣列，第一個由小到大排，第二個由大到小排
想要將第一個陣列連接第二個陣列，頭尾相接，再一起存到另一個陣列內
例如:
第一個陣列 0 0 7 7 12 25
第二個陣列 48 21 0 0 0
合併後 7 7 12 25 48 21(零的刪掉)
當然陣列也有可能為
第一個陣列 1 5 7 7 12 25
第二個陣列 0 0 0 0 0 0
合併後 1 5 7 7 12 25
希望幫忙指點一下迷津........................感激!!!!

拜託各位大大幫幫忙阿!!

Answer 1

Private Sub Command1_Click()        Dim A, B, C(), I As Integer, N As Integer                A = Array(0, 0, 7, 7, 12, 25) 'A陣列        B = Array(48, 21, 0, 0, 0) 'B陣列                For I = 0 To UBound(A)            If A(I) <> 0 Then               ReDim Preserve C(N)               C(N) = A(I)               N = N + 1            End If        Next                For I = 0 To UBound(B)            If B(I) <> 0 Then               ReDim Preserve C(N)               C(N) = B(I)               N = N + 1            End If        Next                Print Join(C)End Sub