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

演示:

  
  
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 %>