انتخاب اعداد بزرگتر از 10 در لیست باکس

[farshidshd]

سلام
من در vb6 یه لیست باکس1 دارم که میخوام اعداد بزرگتر از 10 موجود در اون رو جدا کنه و هر عددی که بزرگتر از 10 بود رو منهای 10 کنه و نتیجه رو به طور جداگانه در لیست باکس2 نشون بده و بعد تمام اعداد بدست آمده در لیست2 رو جمع کنه
باید چطوری کدشو بنویسم؟

ممنون

[isaac23]

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

        If List1.List(List1.ListIndex) > 10 Then



            List2.AddItem (List1.List(List1.ListIndex)) - 10

        End If

[farshidshd]

پیمایش مقادیر چطور باید انجام بشه
run time error 13 میده
type mismatch

[vbhamed]

سلام
من در vb6 یه لیست باکس1 دارم که میخوام اعداد بزرگتر از 10 موجود در اون رو جدا کنه و هر عددی که بزرگتر از 10 بود رو منهای 10 کنه و نتیجه رو به طور جداگانه در لیست باکس2 نشون بده و بعد تمام اعداد بدست آمده در لیست2 رو جمع کنه
باید چطوری کدشو بنویسم؟

ممنون

    Dim i&





    With List1





        For i = 0 To .ListCount - 1





            If .List(i) > 10 Then List2.AddItem .List(i) - 10





        Next





    End With