امـــــــــتـــــــــــــــحــــــــــــــــانــــ ـــــات شـــــهــــريـــة ومتنوعة

[سلمىاحمد]

ممكن اجابة عن السؤال التالى
Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
حدد قيمة كل متغير بعد تنفيذ الكود Code التالى

[زياد_عاطف]

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

ممكن اجابة عن السؤال التالى
Dim N, K, C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End IF
حدد قيمة كل متغير بعد تنفيذ الكود Code التالى

===========================================
_ MsgBox("n = " & N & vbCrLf & "k = " & K & vbCrLf & "c= " & C)g

N = 11
K =7
C = 11
===========================================