انت تسأل وجميع الاساتذة تجيب

[ماجدة عمرو]

Dim n, k, c As Integer

c = 6
For n = 1 To 6 Step 3
k = k + n
Next
If n > c Then

c = c + 1
End If

قيمة المتغير c =
ناتج N>c هو
قيمة المتغير k =

[ابو محمد 2]

المشاركة الأصلية كتبت بواسطة ماجدة عمرو

Dim n, k, c As Integer

c = 6
For n = 1 To 6 Step 3
k = k + n
Next
If n > c Then
c = c + 1
End If

قيمة المتغير c =
ناتج N>c هو

قيمة المتغير k =

وقيم المتغير n
( 1 ، 4 ، 7 )
وقيم k
( 1 ، 4 ) = ( 1+4 ) = 5
- ناتج N>c هو true لتحقق الشرط
وبالتالي
c = c + 1
6+1 = 7

اذن قيمة المتغير c = 7