[ولد رائع]

1. جملة for..... next

2. جملة do .... loop

1. for ...... next

الشكل العام العدد الثاني to العدد الاول = متغير for
..............................
..............................
.............................. جمل برمجية
..............................
next
امثلة :
اكتب داخل زر الامر ما يلي

PHP كود :

for a = 0 to 3 
print a,a^2,sqr(a),"السلام عليكم ورحمة الله وبركاته" 
next 


'سوف يقوم البرنامج بكتابة السلام عليكم ورحمة الله وبركاته ثلاثة مرات ويقوم بكتابه الاعداد من 0 الى 3 مع مربعاتها وجذورها التربيعية
مثال 2 لايجاد مجموع الارقام بين عددين
اكتب داخل زر الامر ما يلي :

PHP كود :

dim a as integer,s as integer
a=val(text1.text)
s=val(text2.text)
sum=0
for i = a to s
sum=sum+i
next
print sum 


2. Do ...... loop

الشكل العام Do

............
............ جمل برمجية
............

loop until او loop while
مثال لعمل كلمة سر للنموذج باستخدام جملة التكرار do .... loop

PHP كود :

Dim hus As String
Do
hus = InputBox(" اكتب vb4arb في الخانة تحت")
If Not hus = "vb4arb " Then
MsgBox "no"
Beep
End If
Loop Until hus = "vb4arb " 


مثال 2 لايجاد مجموع الارقام بين 0 و 4

PHP كود :

dim a as integer
sum=0
a=0
do
a=a+1
sum=sum+1
loop while a<4
print sum 


'يمكنك وضع اي رقم بدلا من 4