ASP中一个用VBScript写的随机数类

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

演示:

62

74

16

1

85

8

32

86

53

80

60

2

30

8

33

49

17

82

21

71

16

9

95

39

55

33

92

25

14

37

65

75

82

93

27

21

46

6

12

52

94

50

29

76

28

55

21

100

71

2

77

72

63

30

6

67

57

35

56

48

49

84

53

44

29

68

62

63

55

80

22

59

33

49

5

69

47

91

46

66

26

79

37

53

10

21

61

63

56

73

49

83

60

85

65

9

98

58

13

99

36

56

57

41

20

9

11

67

6

84

<%

'**************************************************************************

' CLASS: cRandom

'Calls randomize to seed the random number generator.

'Provides functions for returning ranged random integers or arrays of

'ranged random integers.

'**************************************************************************

class cRandom

' Calling randomize to seed the random number generator at the time the

' class is created seemed like a reasonable thing to do.

private sub Class_Initialize()

' Check the VBScript documentation for the specifics relating

' to the Randomize function

Randomize

end sub

' Terminate doesn't need to do anything for this class

private sub Class_Terminate()

end sub

'**********************************************************************

' FUNCTION:RangedRandom

' PARAMETER:lowerBound, the lowest allowable number to return

' PARAMETER:upperBound, the highest allowable number to return

' RETURNS:A random integer between lowerBound and UpperBound,

'inclusive

'**********************************************************************

public function RangedRandom( lowerBound, upperBound )

RangedRandom = CInt((upperBound - lowerBound) * Rnd + lowerBound)

end function

'**********************************************************************

' FUNCTION: RangedRandomArray

' PARAMETER: lowerBound, the lowest allowable number to return

' PARAMETER: upperBound, the highest allowable number to return

' PARAMETER: arraySize, zero based number specifying the size of the array

' PARAMETER: duplicates, true or false to indicate whether duplicate

' random values are allowed in the array

' RETURNS: A single dimension array sized to match the arraySize

' parameter, containing random integers between lowerBound and

' upperBound, inclusive

'**********************************************************************

public function RangedRandomArray(lowerBound, upperBound, arraySize, duplicates)

dim tempArray()

dim filledElements, tempValue, badValue, i

' resize the tempArray to hold the number of elements passed in the

' arraySize parameter

redim tempArray(arraySize)

' This is a loop counter, set it to 0

filledElements = 0

' loop until filledElements is equal to the arraySize + 1

do until filledElements = arraySize + 1

' Call the RangedRandom function with the lowerBound and upperBoundparameters

tempValue = RangedRandom( lowerBound, upperBound )

' Handle the case where we don't want duplicate values

if duplicates = false then

badValue = false

for i = 0 to UBound(tempArray)

' check if the new random value already exists in the array

' if it does set the badValue flag to true and break out of the loop

if tempValue = tempArray(i) then

badValue = true

exit for

end if

next

if badValue = false then

tempArray(filledElements) = tempValue

filledElements = filledElements + 1

end if

else

' Handle the case where duplicate values in the array are acceptable

tempArray(filledElements) = tempValue

filledElements = filledElements + 1

end if

loop

' return the array

RangedRandomArray = tempArray

end function

end class

%>

<%

' All the code that follows is example code showing the use of the

' cRandom class.

dim objRandom

dim flip

dim randomArray

dim rowsToTest

dim i, j

' create an instance of our class

set objRandom = new cRandom

' set the number of iterations that we want to test

rowsToTest = 10

' "toggle" to determine whether or not we set the bgcolor of the table row

flip = true

' Start the table

Response.Write "<table border=0 cellpadding=1 cellspacing=1>"

for j = 0 to rowsToTest

' We'll alternate the bgcolor of the table rows based on the

' value of the flip variable

if flip then

Response.Write "<tr bgcolor=LightGrey>"

else

Response.Write "<tr>"

end if

' Call the RangedRandomArray function for testing purposes

randomArray = objRandom.RangedRandomArray( 1, 100, 9, false )

' Output the contents of the array

for i = 0 to UBound(randomArray)

Response.Write "<td align=right width=30><font face=Verdana size=1>" & randomArray(i) & "</font></td>"

next

Response.Write "</tr>"

' Toggle the flip boolean variable

flip = not flip

next

' Close the table

Response.Write "</table>"

' Destroy the instance of our object

set objRandom = nothing

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航