سؤال بخصوص النصوص العشوائية

اخي الكريم ساعطيك الحل باستخدام الدالة Rnd

قم بكتابة الكود التالي داخل الزر الذي يختار رقم السؤال وفرضأ لو ان الاسئلة من 1 -- 10

Dim MyValue, Max, Min As Integer

Randomize

Max = 10

Min = 1

MyValue = Int((Max - Min + 1) * Rnd + Min)

ان الرقم الذي سينتج رقم عشوائي بين 1 -- 10

ثم باستخدام Switch

حدد Case السؤال الذي تريد

بالتوفيق

اخي الكريم ان هذا الكود يعطي رقم جديد في كل مرة

تقوم بتشغيل البرنامج وايضا الرقم يكون محصور

بين الرقمين الذي تريد كما هو موضح بالكود

الرقم الاكبر Max والرقم الاصغر Min

وباستخدام الطريقة switch تستطيع ان تعمل خيارات وتحدد اختيارك

ولتوضيح الكود اكثر هذا هو