#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 % بس هيزيد خطوة التكرار مرة زيادة
|
العلامات المرجعية |
|
|