اقتباس:
المشاركة الأصلية كتبت بواسطة 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