اخواني انا عملت هذا الكود لكن مشكلتة ان الارقام بتظهر تحت بعد انا اريد على شكل مستطيل ( الناتج وليس العمليه) يعني:
1 2 3 4 5 6 7 8 9 10
4 6 8 10 12 14
وهكذا
الكود :
For i = 1 To 10 For y = i To 10 Print y * i Next y Next i
فلسطين .. سوريا ..بورما ......وماذا بعد ؟!
سابقا
medo_programming
موقعي : www.alkhayat-it.com
مواضيع مهمه
-----------------------------------------------:
يعني حضرتك عاوزها بدل ما تظهر كده :
1 2 3 4 5 6 7 8 9 10
4 6 8 10 12 14
تظهر كده
1 2 3 4 5
6 7 8 9 10
11 12 13 14
يرجى التوضيح
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
لا انا اريدها هكذا
1 2 3 4 5 6 7 8 9 10
4 6 8 10 12 14
9 12 15 18
وهكذا
الناتج اللي بيطلع لي هكذا : 1
2
3
ارجو ان اوضحت الفكرة
فلسطين .. سوريا ..بورما ......وماذا بعد ؟!
سابقا
medo_programming
موقعي : www.alkhayat-it.com
مواضيع مهمه
-----------------------------------------------:
يمكنك استخدام CurrentX & CurrentY
مثال
Cls Dim yy As Integer For i = 1 To 10 yy = 0 For y = i To 10 'نضرب ب 250 لاننا نتعامل مع Twips حيث يمكن الزيادة والنقصان حسب المناسب لك CurrentY = i * 250 'مثل ال 250 CurrentX = yy * 500 Print y * i yy = yy + 1 Next y Next i
هذا الموضوع مغلق.
