|
#1
|
|||
|
|||
![]()
قم بتحويل خريطة التدفق التالية الى كود مستخدماً جمله الامر Dowhile.....loop
ايجاد مجموع الاعداد حتى -1 |
#2
|
||||
|
||||
![]() اقتباس:
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 عاطف مهدى حسان - ميت موسى |
#3
|
|||
|
|||
![]()
كود حضرتك سليم 100 % بس بدل 1 فى الشرطين هتبقى -1
يوجد حل آخر بدون استخدام جملة if والامر Exit do |
#4
|
|||
|
|||
![]()
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 |
#5
|
||||
|
||||
![]() Dim sum, value As Single ممكن يكون الكود بالطريقة دي لأن قيمة value الإفتراضية بصفر Do While value <>- 1 sum = sum + value value = InputBox("Enter New Value") loop label1.text = sum |
#6
|
|||
|
|||
![]()
كود حضرتك سليم 100 % بس هيزيد خطوة التكرار مرة زيادة
|
![]() |
العلامات المرجعية |
أدوات الموضوع | |
انواع عرض الموضوع | |
|
|