بوابة الثانوية العامة المصرية

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- حاسب آلى 3ع ترم2 (https://www.thanwya.com/vb/forumdisplay.php?f=1965)

- - سؤال مين يفكر فيه (https://www.thanwya.com/vb/showthread.php?t=687244)

نسر مصر

11-05-2016 03:35 PM

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

1 مرفق

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

زياد_عاطف

11-05-2016 04:48 PM

اقتباس:

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

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

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

نسر مصر

11-05-2016 05:13 PM

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

نسر مصر

11-05-2016 05:18 PM

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

عصام فؤاد

13-05-2016 07:38 AM

Dim sum, value As Single

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

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

نسر مصر

13-05-2016 08:40 AM

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

جميع الأوقات بتوقيت GMT +2. الساعة الآن 07:57 AM.