طلبات الأعضاء للعام الدراسي 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

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة 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 = 10
2- قيمة المتغير K =2
3- قم بإعادة كتابة الكود السابق باستخدام جملة Do While

Dim x, M, K As Integer

Dim y As Integer = 4
x = 1
Do While x <= 5

If x <= y Then

M = M + x

Label1.Text = Label1.Text & M & vbCrLf

End If
x = x + 1

Loop

K = M / x