كود :
MIN = Val(Text1(0).Text)
For i = 0 To 3
If Val(Text1(i).Text) < MIN Then
MIN = Val(Text1(i).Text)
End If
Next
MinTxt.Text = MIN
يبدو انني اكثرت من الاسئلة ولكن عذرنا هو سعة صدركم بارك الله بكم
لدي هذا الكود المرفق وظيفتة ايجاد العدد الأصغر من مجموعه اعداد وهو يعمل بصورة جيدة لكني أرغب في انه بعد ان يجد العدد الاصغر في الدورة الأولى يعاد مرة ثانية ليتفحص بقية الاعداد مستثنيا العدد الاصغر الذي وجدوه في الدورة الاولى ثم يعيد تفحص بقية الاعداد ويستثني في المرة الثالثة العددين الاول والثاني وهكذا الى نهاية الاعداد مع شكري الجزيل لكم جميعا أحبتي