ماهو الكود الخاص في البرنامج

[همسة شذى]

من خلال استخدام برنامج الفيجوال بيسك
ماهو الكود الذي يمثل الشكل الآتي :



http://www5.0zz0.com/2007/12/18/15/17507415.gif

[همسة شذى]

ماكووو اييييي مساعدة ؟؟

[ahmedzico]

ان افضل طريقة لتكوين هذه الاعداد هو الاستعانة بالمصفوفات ( المرصوصات ) Arrays
فيمكننا تكوين مصفوفة ابعادها 5×5 وكما هو ملاحظ فان كل رقم من الاعداد عبارة عن حاصل ضرب رقم الصف × رقم العمود
بمعنى ان العدد الموجود في الصف الثالث والعمود الرابع نحصل عليه من حاصل ضرب 3×4 وهكذا . وبما ان المصفوفات تبدأ من العمود 0 والصف 0 فاننا يجب ان نرعي ذلك في الكود الخاص بنا
والكود التالي يقوم بالعملية السابقة :

Dim MX(6, 6) As Integer
Dim i, j As Integer
i = 1
Do While i <= 5
j = 1
Do While j <= 5
MX(i - 1, j - 1) = i * j
j = j + 1
Loop
i = i + 1
Loop

[kh_waleed23]

سلمت يداك يا
ahmedzico

[ahmedzico]

اشكرك اخي خالد