تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريق استخدام المصفوفات
#1
السلام عليكم ممكن حل السؤال ضروري جدا جدا 
 كتب المقطع (الكتلة) البرمجي بلغة VB6التي تعلن عن مصفوفة ب اسم DAYS ARRAY من النوع VARIANT غير محدد الحجم ثم اسند لها ايام الاسبوع مثل"SUN" باستخدام الدالة array بعد تعيين حجم لها اضف الى المصفوفه 10 ارقام عشوائية تقع بين 1-100 و من ثم طباعة عناصر المصفةفة على النموذج
الرد
تم الشكر بواسطة:
#2
أهلا أختي الكريمه , هذا الكود ضعيه في داخل كود زر :

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 7 To 16
    Randomize
    Days_Array
(I) = Int((100 Rnd) + 1)
Next

For 0 To 16
    
Print Days_Array(I)
Next 
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مثال لنقل طالب منقطع عن طريق CheckBox مصمم هاوي 5 90 17-01-18, 10:18 PM
آخر رد: Amir_alzubidy
  [vb6.0] تحريك السكرول بار الخاص بالداتاقريد عن طريق عجلة الماوس larbihamri 2 77 27-12-17, 11:25 PM
آخر رد: eiocm
Lightbulb هل يوجد كود لإرسال رسائل SMS للجوال عن طريق النت أو مودم شريحة جوال ياسر عبد الكريم 4 139 09-10-17, 07:32 PM
آخر رد: ياسر عبد الكريم
  استخدام DoEvents dr.mostashar 1 130 08-07-17, 10:56 PM
آخر رد: 5271
  كيفية اتصال قاعدة البيانات بالانترنت عن طريق google drive HaniLeo 18 728 08-07-17, 12:31 PM
آخر رد: Ahmed_Mansoor
Question [سؤال] كيفية استخدام أداة WebBrowser ahmed101 5 2,313 17-06-17, 08:04 AM
آخر رد: [email protected]
  مشكلة في حفظ البيانات عن طريق الليست بوكس مصمم هاوي 3 326 28-04-17, 05:23 AM
آخر رد: Ahmed_Mansoor
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 9 648 25-01-17, 11:01 AM
آخر رد: abudawoodd
  [vb6.0] ربط الفجوال بيسيك بالاكسل عن طريق اداة الادو ADODC larbihamri 8 749 15-01-17, 03:07 PM
آخر رد: larbihamri
  عرض المصفوفات اسلام الكبابى 6 481 07-01-17, 04:41 PM
آخر رد: اسلام الكبابى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم