[أبو نوره]

مرحبا اخى تناسيم

فقط اشاره لو استخدمت for i =1 to sum=0
فهنا sum=0 ستكون نتيجتها boolean يعنى اذا كانت sum تساوى 0 فستكون true واذا كانت غير ذلك ستكون false
اي كانك بتقول for i =1 to true او for i =1 to false اذا فهذه الطريقه غير صحيحه

الطريقه مثل ما ذكر اخى محمد باستخدام do .... while
مثل

PHP كود :

Dim sum = 5
Do
    sum -= 1
    MsgBox(sum)
Loop While sum > 0 


او

PHP كود :

Dim sum = 5
Do
    sum -= 1
    MsgBox(sum)
Loop Until sum <= 0 


او

PHP كود :

Dim sum = 5
Do
    sum -= 1
    If sum <= 0 Then Exit Do
    MsgBox(sum)
Loop 


لاحظ اخى الافضل استخدام (اصغر او يساوى =>) لتلافي احتمال ان لا تكون القيمه صفر تماما فتقع في حلقه لانهائيه فيعلق عليك البرنامج ولا يخرج منها