لطفا هر سوال را در تاپیک جداگانه ای مطرح کنید و در عنوان هر تاپیک موضوع سوال و زبان آنرا بنویسید.
کد:
Private Function Sort(A() As Long, N As Long)
Dim I As Long, J As Long, T As Long
For I = 1 To N - 1
For J = I + 1 To N
If A(I) > A(J) Then
T = A(I)
A(I) = A(J)
A(J) = T
End If
Next
Next
End Function
Private Function Merge(A() As Long, N1 As Long, B() As Long, N2 As Long) As Long()
Dim I As Long, J As Long, C() As Long
Dim N As Long
ReDim C(1 To N1 + N2)
Sort A, N1
Sort B, N2
I = 1
J = 1
N = 1
Do While (I <= N1 And J <= N2)
If A(I) < B(J) Then
C(N) = A(I)
I = I + 1
Else
C(N) = B(J)
J = J + 1
End If
N = N + 1
Loop
Do While (I <= N1)
C(N) = A(I)
I = I + 1
N = N + 1
Loop
Do While (J <= N2)
C(N) = B(J)
J = J + 1
N = N + 1
Loop
Merge = C
End Function
مثال :
کد:
Private Sub Form_Load()
Dim A(1 To 3) As Long, B(1 To 4) As Long
Dim C() As Long, S As String
Dim I As Long
A(1) = 7
A(2) = 2
A(3) = 6
B(1) = 5
B(2) = 3
B(3) = 1
B(4) = 4
C = Merge(A, 3, B, 4)
For I = 1 To 7
S = S & CStr(C(I)) & ", "
Next
MsgBox S
End Sub
