المطلوب منكم الان معرفة الاجابة على ما يلي :
ما هي الادوات الازمة لتنفيذ هذا الكود ؟
و ما هو نتيجة تنفيذ هذا الكود ؟
ما هي فائدة الجملة 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 .