یه سوال فوری خواهش می کنم خیلی فوریه

با سلام خدمت دوستان خوبه برنامه ونویسم عیدتونم مبارک.
این برنامه برام خیلی حیاتیه. می خوام یه برنامه بنویسم که مثلا 10000 تا مقدار وارد یه لیست باکس بشه و اونایی که تکراریه رو پاک کنه . یعنی اگه 3 تا مقدار 444 داریم دو تاشو پاک کنه و فقط یه دونه از اون مقدار رو بزاره توی لیست بمونه.
اگه می تونید این برنامه رو بنویسی کوتاهی نکن واجبه. دمت گرم .

خیلی هم سخت نبودا. اگر یکم دقت می کردی بهش میرسیدی.
در هر صورت اینم کد:

کد:

---

Dim I As Integer, J As Integer
For I = 0 To Val(List1.ListCount) - 1
For J = I + 1 To Val(List1.ListCount) - 1
If Val(List1.List(I)) = Val(List1.List(J)) Then List1.RemoveItem (J)
Next J
Next I

---

اینجا فرض بر اینه که اطلاعات قبلا وارد شدند. اگر مشکل داشتید بگید.

بفرمایید دوست عزیز ... کد رو براتون نوشتم :

کد:

---

Private Sub Command1_Click()
Dim a(5) As Integer
For i = 0 To 5
a(i) = InputBox("Enter a number")
List1.AddItem a(i)
Next i
For i = 0 To List1.ListCount - 1
For j = 1 To List1.ListCount - 1
If List1.List(i) = List1.List(j) Then
 List1.RemoveItem (j)
End If
Next j
Next i
End Sub

---

* امیدوارم دوستان گیر ندن چرا کد رو براتون نوشتم ! :دی

------------

راستی شرمنده ... جواب دوستمون ( [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ) رو ندیدم !

چه قدر بچه های p30world بامزه اند خدا :39::16::15:

مرتضی جان میشه دلیل بامزه بودنم رو بگید ؟ :)

پروفایل رو واسه این روزا گذاشتن.

لطفا بازم شروع نکنید.