|
أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل |
|
أدوات الموضوع | ابحث في الموضوع | انواع عرض الموضوع |
|
#1
|
|||
|
|||
![]()
Dim N, K, C As Integer
C = 10 For N = 1 To 10 Step 6 K = K + N Next If N <= C Then C = C + 2 End If ( MsgBox("C =" & C & " " & "K=" & K & " " & "N=" & N تكون قيمة N بعد انتهاء التكرار 13 قيمة C = 10 لان الشرط خطأ لانه لن ينفذ مايلي next الا اذا اصبحت قيمة N = 13 عند اختبار الشرط نجد ان If N <= C Then الشرط خطأ قيمة K = 8 |
العلامات المرجعية |
أدوات الموضوع | ابحث في الموضوع |
انواع عرض الموضوع | |
|
|