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