عرض مشاركة واحدة
  #5  
قديم 07-29-2006, 01:37 AM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
المطلوب منكم الان معرفة الاجابة على ما يلي :
ما هي الادوات الازمة لتنفيذ هذا الكود ؟
و ما هو نتيجة تنفيذ هذا الكود ؟
ما هي فائدة الجملة Mod ؟

كود:
Dim v, x, qwasm As Integer
        For v = 1 To 100

            For x = 1 To v
                If v Mod x = 0 Then qwasm = qwasm + 1

            Next x
            If qwasm = 2 Then Text3.Text = Text3.Text & v & "-"

            qwasm = 0
        Next v
للعلم ممكن مشاهدة نفيذ الشفرة عن طريق الضغط على F8 حيث سيظهر لك صفحة الكود و تستطيع تتبع قيمة المتغيرات بتمرير الماوس على المتغيرات و للانتقال لسطر ثاني اضغط على F8 .
__________________
هذا من فضل ربي
رد مع اقتباس