مرتب سازی اعداد

[mohandes_hadi]

سلام
میخواستم یک بر نامه بنویسم که 10 تا عدد رو از کاربر بگیره و به ترتیب صعودی مرتبشون کنه ولی کد زیر رو نوشتم و به جوابی که نیخواستم نرسیدم(کار نکرد)میشه بگید مشکلش کجاست و این که چجوری میتونم درستش کنم؟(این فقط قسمت اصلی برنامه است و نه همش)Dim a(10) As Integer

Dim f(10) As Integer
For b = 1 To 10
a(b) = Val(InputBox("adad " + Str(b) + "om ra vared konid", "daryaft adad", ""))
Next b
For g = 1 To 10
(f(g) = a(g
Next g
For c = 1 To 10
For d = c + 1 To 10
If a(c) < f(d) And a(c) < f(c) Then
(f(c) = a(c
End If
If a(c) > f(d) And a(d) < f(c) Then
(f(c) = a(d
End If
For h = 1 To d
If f(h) = f(h - 1) Then
(f(h) = a(c
Goto 10
End If
Next h
10Next d
Next c
For e = 1 To 10
((List1.AddItem Str(f(e)
Next e

[ایلیا آخوندزاده]

باسلام هدف شما از این برنامه چیست؟ اگه فقط برنامه براتون مهم هستش من پیشنهاد میکنم از Console application زبان #C برای نوشتن استفاده کنید که خیلی بی دردسر تر جواب میده.

[mohandes_hadi]

باسلام هدف شما از این برنامه چیست؟ اگه فقط برنامه براتون مهم هستش من پیشنهاد میکنم از Console application زبان #C برای نوشتن استفاده کنید که خیلی بی دردسر تر جواب میده.
دوست عزیز اولا که من میخواستم همینجوری تمرینی یک برنامه بنویسم که خودمو محک بزنم و نشد بعد هم اومدم و اینجا پرسیدمش
بعدم خب من الان اصلا #Cبلد نیستم

[ایلیا آخوندزاده]

سلام دوست عزیز بنده به شما پیشنهاد میکنم زبان های جدیدتری مثل #C رو یاد بگیرین خلاصه درمورد سوالتون بنده یبار کتاب هنرستان رو نگاه میکردم یه همچین تمرینی داشت که با آرایه حل میشد حلش کردم که کدش رو میزارم نگاه کنید و شاید بتونه کمکی بهتون بکنه اگرم در مورد کدش سوالی داشتین بپرسین در خدمتم.

Dim lngWith As Long
arrData = Split(Trim$(lblData.Caption), ",")
lblSortData.Caption = ""
lngListIndex = 0
lngWith = 0
lngStart = 0
frmHide.list(0).Clear
For i = 0 To lngCount - 1
lngLen = Len(Trim$(arrData(i)))
If lngLen <= lngListIndex + 1 Then
frmHide.list(lngLen - 1).AddItem Trim(arrData(i))
Else
For j = lngListIndex + 1 To lngLen - 1
Load frmHide.list(j)
frmHide.list(j).Visible = True
frmHide.list(j).Left = frmHide.list(j).Width + lngWith
lngWith = lngWith + frmHide.list(j).Width
Next
lngListIndex = lngLen - 1
frmHide.list(lngListIndex).AddItem Trim$(arrData(i))
End If
Next
For i = 0 To lngListIndex
For j = 0 To frmHide.list(i).ListCount - 1
arrData(lngStart) = frmHide.list(i).list(j)
lngStart = lngStart + 1
Next
Next
If lngListIndex <> 0 Then
For i = 1 To lngListIndex
Unload frmHide.list(i)
Next
End If
For i = 0 To lngStart - 1
lblSortData.Caption = lblSortData.Caption & arrData(i) & " , "
Next

موفق باشین