Dim N As Integer
For N = 1 To 4
N =N+1
ListBox1.Items.Add (N
Next N
ممكن حد يفهمني الكود دا
Dim X As Integer
X=2
Do Until X =3
X=X*2
ListBox1.Items.Add(Math.Sqrt (X
X=3
Loop
Privat Sub Button1_Click
()
Dim num As Integer
num=5
TextBox1.Text=CStr
num) ^2
End Sub
تم تعديل هذه المشاركة بواسطة m-m-_- في 16 مارس 2011 في 18:28
اللهم صلي وسلم على سيدنا محمد وعلى آل محمد
السلام عليكم
الكود الاول : غبارة عن جملة دوران تقوم بالدوران لعدد 4 وقي كل دورة تقوم بتخزين القيمة في متغير وعرضه في القائمة
وستظهر النتائج كتالي
1
2
3
4
الكود الثاني : ايضا جملة دوران وهنا كلمة Until ـعني التوقف عن الدوران عند تحقق شرط معين
وهنا في الكود المكتوب تم تعيين متغير X ووضع فيه قيمة عددية وهي 2 مع مراعات الشرط التوقف وهو 3
وهذا يعني انه سوف يدور دورة واحدة فقط ثم يقوم بتخزين القيمة وعرضها في القائمة
النتيجة كتالي :
2
بالتوفيق
بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…