mohandes_hadi
یک شنبه 01 آذر 1394, 22:05 عصر
سلام
میخواستم یک بر نامه بنویسم که 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
میخواستم یک بر نامه بنویسم که 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