[ماجدة عمرو]

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 =