مثال تتبع تنفيذ اكواد على Do while .. Loop

**س ا يوسف** · 02-04-2009, 02:10 PM

تتبع تنفيذ الاكواد

Dim x, total, limit As Integer

(limit = Integer.Parse(Me.txtLimit.Text

x = 1

Do While x <= limit

total = total + x

x = x + 2

Loop

( "##",Me.Label2.Text = Format(total

**س ا يوسف** · 02-04-2009, 02:34 PM

عمليات التتبع
هي ايجاد القيم في كل خطوة من خطوات البرنامج
الخطوة 1 سيكون عندنا 3 متغيراتx و total و Limt
الخطوة 2 قيمة limt حسب الشكل 8
الخطوة 3 قيمة x هي 1
الخطوة 4 نري 1 اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها 1 الي total اخر قيمة صفر وتضعها في total ليتكون 1
الخطوة 6 نزيد x ب 2 فتكون 3
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 3 اخر قيمة لـ x اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها3 الي total اخر قيمة 1 وتضعها في total ليتكون 4
الخطوة 6 نزيد x ب 2 فتكون 5
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 5 اخر قيمة لـ x اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها5 الي total اخر قيمة 4 وتضعها في total ليتكون 9
الخطوة 6 نزيد x ب 2 فتكون 7
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 7 اخر قيمة لـ x اقل من 8 اذن الشرط صحيح ننفذ ما بعد do
الخطوة 5 نضيف قيمة x اخر قيمه لها7 الي total اخر قيمة 9 وتضعها في total ليتكون 16
الخطوة 6 نزيد x ب 2 فتكون 9
الخطوة 7 نعود الي الخطوة 4 لاختبار الشرط مرة اخري
الخطوة 4 نري 59 اخر قيمة لـ x ليست اقل من او تساوي 8 اذن الشرط خطأننفذ ما بعد Loop
الخطوة 8 نظهر قيمة total مكان label2 اي تظهر 16 كما بالشكل