نحوه نوشتن دستور سورت و جمع کردن داده ها

[مهندس محیط زیست]

سلام
من نیاز به کمک فوری دارم
من با شیت های اکسل کاری ندارم در ویژوال بیسیک یک ماجول دارم تعدادی داده تولید کردم می خواهم در همون ماجول سورت کنم و کمترین و بیشترین آنها رو پیدا کنم
و سوال دوم اینکه این داده ها را جمع کنم (دستور سیگما)
ممنون میشم کمکم کنید

[shamsololama]

RE: نحوه نوشتن دستور سورت و جمع کردن داده ها

با درود فراوان

شما نمونه کدی که نوشتین رو بنویسید تا بهتر بشه کمک کرد
تا ببینم اون مقدار های که تولید کردی رو کجا ذخیره میکنی
در هر صورت اگر تو یک آرایه ذخیره کردی آن را به روشهای مختلفی میشه سورت کرد مثلا تقسیم و غلبه که اگر تعدش زیاد نباشه هم که فرقی نمیکنه به چه روشی باشه چون زیاد زمانی نمیگیره

[مهندس محیط زیست]

RE: نحوه نوشتن دستور سورت و جمع کردن داده ها

سلام
من کدم خیلی طولانی فقط این توضیح بدم که من داده هایی تولید میکنم در ماتریسی به نام k(j ذخیره میکنم که j از 1 تا 16 تغییر میکند. حالا می خوام از دستور sort ویا rank استفاده کنم (البته درصورت امکان) که درایه های این ماتریس را از کوچک به بزرگ ذخیره کند.
امیدوارم تونسته باشم توضیح واضحی بدم

[shamsololama]

RE: نحوه نوشتن دستور سورت و جمع کردن داده ها

با درود فراوان
نیاز همه کد ی که نوشتی نبود در هر صورت
شما داده ها رو اگر تو یک آرایه داشته باشی می تونی آن را به این صورت سورت کنی

به فرض این که آرایه
a(16)
برای سورت کردن آن به این صورت می نویسیم


Dim a(16)
Dim j, t
For j = 0 To 16
For t = 0 To 16
If t + j > 16 Then Exit For
If a(j) > a(t + j) Then
temp = a(j)
a(j) = a(t + j)
a(t + j) = temp

End If
Next t