طلبات الأعضاء للعام الدراسي 2012-2013

[asdzazax]

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

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 = .................
3- قم بإعادة كتابة الكود السابق باستخدام جملة Do While