ชั้นเรียนที่เขียนโดยชาวต่างชาติแอปพลิเคชันขนาดเล็กดังกล่าวไม่จำเป็นต้องเป็นแบบแยกส่วนเว้นแต่จะมีความต้องการพิเศษ
ใช้ ASP เพื่อสร้างหมายเลขสุ่ม
-
-
'' คลาส: crandom
'' CallsrandomizeToseedtherdomnumberGenerator
'' ให้ฟังก์ชั่นสำหรับ returnRangedRandomIntegersorarraySof
'' Rangedrandomintegers
'' CallingRandomizetoseedtherandomNumberGeneratoratTheTimethe
'' จำแนกดูเหมือน AreasonablethingTodo
Privatesubclass_initialize ()
'' CheckTheVbScriptDocumentationForTheSpecificSrelating
'' totherandomizefunction
สุ่ม
enddub
'' ถูกยกเลิกไม่ได้เป็นอะไรเลย
Privatesubclass_terminate ()
enddub
-
'' ฟังก์ชั่น: rangedrandom
พารามิเตอร์ '': ล่าง
'' พารามิเตอร์: Upperbound, HallowableNumberToreturn ที่สูงที่สุด
'' returns: Arandomintegerbetweenlowerbound และ Upperbound
'' รวม
-
PublicFunctionRangedRandom (ล่าง, บน)
rangedRandom = cint ((บนต่ำ-ต่ำ)*rnd+ล่าง)
endfunction
-
'' ฟังก์ชั่น: rangedrandomarray
พารามิเตอร์ '': ล่าง
'' พารามิเตอร์: Upperbound, HallowableNumberToreturn ที่สูงที่สุด
พารามิเตอร์ '': arraysize หมายเลข zerobased ที่ระบุรายการของ thearray
พารามิเตอร์ '': ซ้ำกัน, truitorfalsetoindicate onduplicate
'' resizetheTemparraytoholdthenumberoferomeelements Passedinthe
'' Arraysizeparameter
Redimtemparray (จัดเรียง)
'' thisisasaloopcounter, setitto0
FullElements = 0