Page 75 - أساسيات الحاسب الالي2
P. 75
جمل التحكم الفصل الرابع
الكود التالى يستخدم لطباعة عدد من النجوم فى كل سطر بحيث ي ساوى الع دد المطب وع
رقم السطر
)(Sub Main
Dim i, j As Integer
For i = 1 To 10
For j = 1 To i
)"*"(Console.Write
Next j
)(Console.WriteLine
Next
)(Console.Read
End Sub
-٦التكرار المشروط باستخدام Do-While
فى هذا النوع من جمل التكرار ﻻ يستطيع المبرمج أن يحدد عدد مرات التكرار فمثﻼ
برنامج يستقبل مجموعة من القيم ليجمعها وينتهى عندما يدخل المستخدم قيمة صفر
وعندها يتوقف التكرار وبالتالى فقد يدخل المستخدم قيمتين أو ثﻼثة أو ١٠قيم وفى هذه
الحالة ﻻ نستطيع استخدام For Nextوإنما نستخدم واحدة من جمل التكرار المشروط
حيث يتم تنفيذ الدوارة طالما الشرط متحقق وعندما يكون غير متحقق يتم نقل التنفيذ إلى
العبارة التالية للدوارة
٧٥
