عرض مشاركة واحدة
  #8  
قديم 08-05-2013, 12:44 PM
asdzazax asdzazax غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Nov 2012
المشاركات: 90
معدل تقييم المستوى: 13
asdzazax is on a distinguished road
افتراضي

تتبع الاوامر التالية ثم أجب :
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