[زياد_عاطف]

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

قم بتحويل خريطة التدفق التالية الى كود مستخدماً جمله الامر Dowhile.....loop
ايجاد مجموع الاعداد حتى -1

Dim sum, value As Single
Do While value <> 1
value = InputBox("Enter New Value")000
If value = 1 Then Exit Do
sum = sum + value
Loop
label1.text = sum

عاطف مهدى حسان - ميت موسى