نهاية الاعداد التي سيتم جمهها يدخل عن طريق الاداة txtLimit.Text ولابد من عمل مخزن له وليكن Limit
العدد الفردي لابد ان يكون له مخزن وليكن x
مجموع الاعداد الفردية لابد من عمل مخزن له وليكن total
نستخدم امر Dim لعمل المخازن
Dim x, total, limit As Integer
نتأكد من ان المدخل رقم بـ
Try
نقوم بتحويل المدخل من حرفس الي عددي لان وسيلة الدخول TextBox
(limit = Integer.Parse(Me.txtLimit.Text
ثم استكمال try
Catch
نظهر رسالة ادخل ارقام في حالة الخطأ
("ادخل ارقم")MsgBox
ننهي Try
EndTry
بداية العدد الفردي x بـ 1
X=1
فكرة جمع الاعداد الفردية هي 1 ثم اضافة 3 ثم اضافة 5 ثم اضافة 7 وهكذا طالما العدد المضاف اقل من او يساوي عدد النهاية
يعني ايه سنضيف الى مخزن المجموع total ( كلمة نضيف = المخزن + المضاف ويوضع في المخزن total=total+x
كما نضيف للعدد المجموع (1 و 3 و5 و 7 و ......... )2 كل مرة
اي مخزن البداية x يضاف اليه 2 اي المخزن + 2 ويوضع في المخزنx=x+2
ننفذ الفكرة التكرار ب do while والشرط العدد المضاف x اقل من او يساوي العدد المدخل limt
Do While x <= limit
اضافة العدد الفردي الي total
total = total + x
زيادة العدد x بــ 2 (1 ثم 3 ثم 5 ثم 7 وهكذا )
x = x + 2
ثم انهاء امر do while بـ
Loop
وفي النهاية نظهر المجموع في label2
Me.Label2.Text = Format(total, "##")l
تسخدم Format لاظهار الرقم او لا شئ في حالة استخدام ##
المفضلات