سؤال مين يفكر فيه

[نسر مصر]

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

[زياد_عاطف]

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

قم بتحويل خريطة التدفق التالية الى كود مستخدماً جمله الامر 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

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

[نسر مصر]

كود حضرتك سليم 100 % بس بدل 1 فى الشرطين هتبقى -1
يوجد حل آخر بدون استخدام جملة if والامر Exit do

[نسر مصر]

Dim sum, value As Single

value = InputBox("Enter New Value")00
Do While value <>- 1
sum = sum + value
value = InputBox("Enter New Value"00
loop
label1.text = sum

[عصام فؤاد]

Dim sum, value As Single

Do While value <>- 1
sum = sum + value
value = InputBox("Enter New Value")
loop
label1.text = sum

ممكن يكون الكود بالطريقة دي لأن قيمة value الإفتراضية بصفر

[نسر مصر]

كود حضرتك سليم 100 % بس هيزيد خطوة التكرار مرة زيادة