[احبائى في الله]

س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 = .................