مرتب سازی آرایه

سلام دوستان عزیز

دوستان باز به مشکل برخوردم و به کمک شما دوستان عزیز نیازمندم...:46:


من یک برنامه می خوام که 2 آرایه رو دریافت کند و در یک آرایه آن را به ترتیب بدهد

مثال :
4 تا عدد در یک آرایه دریافت کند مثل :

2
5
1
12
بعد در آرایه بعدی :
3
4
8
-2
بعد از دریافت این دو آرایه در یک آرایه این اعداد رو مرتب کنه :
-2 1 2 3 4 5 8 12

با تشکر :11:

اینم کد برنامه ای که میخواستی:

کد:

---

Dim a(1 To 4)
Dim b(1 To 4)
Dim c(1 To 8)

Private Sub Command1_Click()
For i = 1 To 4
a(i) = InputBox(i)
Next i
For i = 1 To 4
b(i) = InputBox(i)
Next i
''''''''''''''
For i = 1 To 4
c(i) = a(i)
c(i + 4) = b(i)
Next i

'''''''''''''''
For i = 1 To 8
For j = i To 8
If Val(c(i)) < Val(c(j)) Then
d = c(i)
c(i) = c(j)
c(j) = d
End If

Next j
Next i
'''''''''''''
For i = 1 To 8
Print c(i) & "    ";
Next i

End Sub

---

درست شد؟:5:

بله مرسی دستت درد نکنه :46: