لا أعرف

[alalfa]

لا أعرف لأي مدى يمكن استخدام امر التكرار for.... next في امتحان الصف الثالث الاعدادى
و أتمنى برنامج يحتوى على اثنثن for ...next متداخلة للضرب أو للجمع لأننى درستها في الكلية و لا أجد منها أمثلة
مثال for i= 1 to 10
for x = 2 to 11


Msgbox (I*X)
next
next



ما الناتج ?

[الأستاذة / أم أمل]

نفذ هذا البرنامج ضع الأداة button1 وثلاث أدوات listbox

Dim i, x As Integer

For i = 1 To 10
For x = 2 To 11
ListBox1.Items.Add(i)
ListBox2.Items.Add(x)
ListBox3.Items.Add(i * x)

Next
Next

فى الحلقة التكرارية الأولى i=1

ثم ينزل على الثانية ويعد x=2 ويضرب i*x اى 1*2
ويستمر فى الحلقة الثانية اى أن تصل x=11
يعطى سطر الضرب من أول 1*2 ........1*11

ثم يخرج للحلقة اولى وهنا i=2

ويدخل الثانية ويضرب من 2*1 .......2*11

ويستمر هكذا الى أخر سطر للجدول
i=10 فيضربها فى قيم x التى تأخذ من 2 ..... 11

اى هذا البرنامج هو جدول الضرب من 1*2 الى 10*11