مرتب سازی یک آرایه دو بعدی 3x4

[maysam.m]

سلام

جواب این سوال را میخواستم : :قلب:

برنامه ای بنویسید که اطلاعات یک جدول 4x3 را خوانده و جدول را به ترتیب از کوچک به بزرگ مرتب نماید.
(بالا سمت چپ کوچکترین و پایین سمت راست بزرگترین خواهند بود)

[just4froum]

با سلام

ببین با این کد کارت راه میفته یا نه ؟

Dim x(1 To 3, 1 To 4), i As Integer, ii As Integer, sort(1 To 12) As Integer, _
max As Integer, iii As Integer, xx As Integer, number(1) As Integer

For i = 1 To 3
For ii = 1 To 4
If x(i, ii) > max Then max = x(i, ii)
Next ii
Next i
max = max + 1
For xx = 1 To 11
sort(xx) = max
For i = 1 To 3
For ii = 1 To 4

If x(i, ii) < sort(xx) Then

sort(xx) = x(i, ii)
number(0) = i
number(1) = ii
End If
Next ii
Next i
x(number(0), number(1)) = max
Next xx
sort(12) = max

End Sub

البته راستشو بخوای من مدت زیادی نیست که دارم vb کار می کنم به خواطر همین فکر کنم با نصف این کدا و متغیر ها هم بشه چنین کاری رو کرد دیگه شرمنده این چیزی بود که در توان من بود

راستی میتونی تمام این مقدار هارو بریزی توی یک لیست باکس بعدی خاصیت sort را برابر true قرار بدی




موفق باشید

[just4froum]

یادم رفت بگم
x(1 To 3, 1 To 4)

این همون جدولت اول مقدار دهیش کن.

[maysam.m]

سلام

دوست عزیز متاسفانه کدها رو امتحان کردم ولی امتحان نکرد! مقدار دهی اولیه هم کردمش:

x(1, 1) = 3
x(1, 2) = 5
x(1, 3) = 7
x(1, 4) = 4
x(2, 1) = 11
x(2, 2) = 30
x(2, 3) = 29
x(2, 4) = 27
x(3, 1) = 43
x(3, 2) = 25
x(3, 3) = 26
x(3, 4) = 17

[butterfly8528]

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


http://www.vbforums.com/showthread.php?t=631366
http://www.vbforums.com/showthread.php?t=176656
http://www.vbforums.com/showthread.php?t=286625
http://www.vbforums.com/showthread.php?t=499101


موفق باشید .

[just4froum]

با سلام

بفرمایید دوست عزیز اینم فایل برای مرتب کردن که با داده های خودتون مقدار دهی شدن و با کد بالا مرتب می کنند


75916




موفق باشید

[maysam.m]

سلام

ممنون از دوستان به خصوص جناب just4froum عزیز
برم کد ها رو بررسی بکنم و ببینم چی به چیه! :لبخند: