+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] طريق استخدام المصفوفات (/showthread.php?tid=14823)
طريق استخدام المصفوفات - نانا - 20-02-16
السلام عليكم ممكن حل السؤال ضروري جدا جدا
كتب المقطع (الكتلة) البرمجي بلغة VB6التي تعلن عن مصفوفة ب اسم DAYS ARRAY من النوع VARIANT غير محدد الحجم ثم اسند لها ايام الاسبوع مثل"SUN" باستخدام الدالة array بعد تعيين حجم لها اضف الى المصفوفه 10 ارقام عشوائية تقع بين 1-100 و من ثم طباعة عناصر المصفةفة على النموذج
RE: طريق استخدام المصفوفات - Ahmed_Mansoor - 21-02-16
أهلا أختي الكريمه , هذا الكود ضعيه في داخل كود زر :
PHP كود :
Dim Days_Array() As Variant
Dim I As Integer
Days_Array = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
ReDim Preserve Days_Array(16) As Variant
For I = 7 To 16
Randomize
Days_Array(I) = Int((100 * Rnd) + 1)
Next
For I = 0 To 16
Print Days_Array(I)
Next