منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ممكن حل السؤال ضروري جدا جدا

كتب المقطع (الكتلة) البرمجي بلغة VB6التي تعلن عن مصفوفة ب اسم DAYS ARRAY من النوع VARIANT غير محدد الحجم ثم اسند لها ايام الاسبوع مثل"SUN" باستخدام الدالة array بعد تعيين حجم لها اضف الى المصفوفه 10 ارقام عشوائية تقع بين 1-100 و من ثم طباعة عناصر المصفةفة على النموذج

أهلا أختي الكريمه , هذا الكود ضعيه في داخل كود زر :

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نانا

Ahmed_Mansoor