س5 : تتبع الاوامر التالية ثم أجب :

Dim x, M, K As Integer
Dim y As Integer = 4
For x = 1 To 5
If x <= y Then
M = M + x
Label1.Text = Label1.Text & M & vbCrLf
End If
Next
K = M / x
1- قيمة المتغير M = ................

2- قيمة المتغير K = .................

دى نتائج الدوران و قاعدة if

x=0
m=0
k=0
y=4
---------------
x=1
m=1
k=0
y=4

---------------
x=2
m=3
k=0
y=4
---------------
x=3
m=6
k=0
y=4
---------------
x=4
m=10
k=0
y=4
---------------
x=5
m=10
k=0
y=4
---------------
x=6
m=10
k=0
y=4
---------------

يبقا m = 10
و ال k = 10 /6 =2/5

الحل صحيح
بس هو أعلن عن المتغير K, M من النوع Integer يبقى 10\6 =1 نأخذ الناتج الصحيح ونهمل الكسر علشانInteger صحيح فقط

تمام كدا هيطلع الناتج عنده بكسور بس اللى هيظهرلنا العدد الصحيح بس عشان من النوع integer

تمام كلامك صح لان النائج هيطلعله فى الذاكرة بكسور عادى بس اللى هيظهرلنا الرقم الصحيح بس عشان من النوع integer