Page 59 - أساسيات الحاسب الالي2
P. 59
جمل التحكم الفصل الرابع
-١أمر التفرع المتعدد باستخدام On - Goto
هناك نوع آخر للتفرع ويسمى التفرع الغي ر مباش ر أو التف رع المتع دد وي تم ذل ك التف رع
باستخدام اﻷمر
On expression Goto Label1, Label2, Label3...
حي ث expressionه و تعبي ر ب سيط أو اس م متغي ر وه ذا التعبي ر يج ب أن يرج ع قيم ة
تمثل عدد صحيح ويقوم هذا العدد بإخبار الك ود ع ن العن وان ال ذي ي تم التوج ه إلي ه ف ي
قائمة العناوين التي تلي .Gotoإذا كانت قيمة التعبير )أو المتغير( تساوى ١فان التفرع
يتم إلى أول عنوان فى هذه القائم ة وإذا كان ت ت ساوى ٢ي تم التف رع إل ى العن وان الث انى
وهكذا كما يوضح المثال التالى
)(Sub conbr
Dim x As Integer
)"x = InputBox("Enter Row Number", " Number
On x GoTo a1, a2, a3, a4, a5
GoTo stp
٥٩
