Page 72 - أساسيات الحاسب الالي2

‫جمل التحكم‬ ‫الفصل الرابع‬

Fact = Fact * i

Next i

Console.WriteLine(" Factorial 5 is equal to " & Fact)

Console.Read()

End Sub

‫تمرين‬
‫اوجد مضروب رقم يدخله المستخدم‬

‫ملحوظات‬
‫ يمكنك الخروج من جسم الدوارة وﻻ يمكنك الدخول اليها كما يوضح المثال التالى‬-١
Sub Main()

Dim i, Fact As Integer
Fact = 1
For i = 1 To 10

Fact = Fact * i
If i = 5 Then GoTo 10 ‘ ‫تم الخروج من الدوارة‬
Next i
10: Console.WriteLine(" Factorial 5 is equal to " & Fact)
Console.Read()
End Sub

‫أما الكود التالى فيوضح الخطأ فى الدخول إلى الدوارة من خارجها‬
Sub Main()

Dim i As Integer
GoTo 5 ‘ ‫ﻻ نستطيع الدخول إلى الدوارة‬
For i = 1 To 10

٧٢