외국인이 작성한 클래스, 그러한 작은 응용 프로그램은 특별한 요구가 없다면 모듈 식 일 필요는 없습니다.
ASP를 사용하여 난수를 생성하십시오.
<%
''**************************************************************************
''클래스 : 크랜덤
``CallsrandomizetoSeedTherdomNumberGenerator.
``returnRangedRandominteGersorArrays의 기능을 제공합니다
''rangedrandomintegers.
''CallingRandomizetoSeedTherandomNumberGeneratoratteTimethe
''분류는 AreasonAbleThingTodo처럼 보입니다.
privatesubclass_initialize ()
``checkthevbscriptDocumentationActificifilecifilecifilecting
''TotherandomizeFunction
무작위 화
Endsub
``종료 된 것은 아무 것도 없다
privatesubclass_terminate ()
Endsub
''***************************************************************************************************
''기능 : Rangedrandom
''매개 변수 : LowerBound, ThelowestallowablenumberToreturn
''매개 변수 : 상위 바운드, HighestallowablenumberToreturn
``반환 : Arandomintegerbetweenlowerbound 및 Upperbound,
''포함한
''***************************************************************************************************
PublicFunctionRangedrandom (LowerBound, Upperbound)
RANGEDRANDOM = CINT ((어퍼 바운드-라워 바운드)*RND+LowerBound)
최종 기능 장애
''***************************************************************************************************
''기능 : Rangedrandomarray
''매개 변수 : LowerBound, ThelowestallowablenumberToreturn
''매개 변수 : 상위 바운드, HighestallowablenumberToreturn
''매개 변수 : 배열, 제로 기반 번호는 Thearray를 지정합니다
''매개 변수 : Duplicates, trueorfalsetoindicate will duplication
''resizethemparraytoholdthenumberoferomeElements에서
''ArraysizeParameter
redimtemparray (Arraysize)
``thisiasaloopcounter, setitto0
FillElements = 0