فئة كتبها أجنبي ، مثل هذا التطبيق الصغير ليس ضروريًا ليكون معياريًا ما لم تكن هناك احتياجات خاصة.
استخدم ASP لإنشاء رقم عشوائي.
<٪
'' ********************************************************************
الطبقة: كراندوم
'' callsrodomizetoseedTherDomnumbergenerator.
"يوفر" وظائف للعودة
'' RangedRandomintegers.
'' callingRandomizetoseedTherAndomNumberGeneratorattheTimethe
"التصنيف يبدو وكأنه areasonablethingtodo.
privatesubclass_initialize ()
'' 'checkTheVbscriptDocumentationFortheSpecificSrelating
'' totherandomizefunction
عشوائي
ينتهي
"إنهاء لا"
privatesubclass_terminate ()
ينتهي
'' ***********************************************************************************************
"الوظيفة: RangedRandom
"المعلمة: LowerBound ، thelowEntallyablenumbertoreturn
"المعلمة: أعلى ، العليا
'' عائدات: arandomintegerbetweenlowerbound و bapterbound ،
''شامل
'' ***********************************************************************************************
PublicFunctionRangedRandom (LowerBound ، أعلى)
RangedRandom = Cint ((LowerBound-Lowerbound)*Rnd+LowerBound)
الوظيفية
'' ***********************************************************************************************
"الوظيفة: RangedRandomArray
"المعلمة: LowerBound ، thelowEntallyablenumbertoreturn
"المعلمة: أعلى ، العليا
"المعلمة: صفائف ، رقم zerobased يحدد هذا التحويل من thearray
"المعلمة: التكرارات ، trueorfalsetoindicate ما إذا
'' resizetheTemparRayTohendThenumberOferomeEmsedInthe
'' ArrayizeSeparameter
redimtemparray (صفيف)
'' thisisasaloopcounter ، setitto0
تعبئة = 0