للخبراء فقط ........ امتحان الكترونى

السلام عليكم

اخي الكريم توجد الدوال التالية

Randomize

و

RND

فمثلا لكي يكون لدينا رقم عشوائياً نستخدم هذه الدوال كالتالي

تستخدم Randomize في بداية البرنامج لتهيئة ربط الرقم العشوائي مع التايمر

ولكن سوف يقوم الروتين بتكرار الأسئلة عند تشغيل البرنامج في كل مره.. ليس بنفس الترتيب ...

ويتم أستدعاء الدالة GetRndNumber إذا كان عدد الأسئلة 50 سؤالاً كالتالي

x=GetRndNumber(50)

حيث x ستكون المتغير الذي يرمز الى رقم السؤال ... الرقم التسلسلي للسؤال.

Private Function GetRndNumber(optional byval pMaxNumber as integer=100) as integer
GetRndNumber=rnd*pMaxNumber+1
end function