حاجة مهمة

[noorehan]

Dim x , sum as Integer
X = 1
Sum = 0
Do While X < 5
Sum = sum + x
X = x + 1
Loop
Average = Sum / x

قيـــمة x = ......
قيمة Average = .......

[محمد عبد الحكم]

المشاركة الأصلية كتبت بواسطة noorehan

Dim x , sum as Integer
X = 1
Sum = 0
Do While X < 5
Sum = sum + x
X = x + 1
Loop
Average = Sum / x
قيمة x تساوي 5
قيمة Average = 2..

.................................................. ..
بالتوفيق