|
|

|

|
Presidential Debate Bingo by PlånetSocks.com
|

|

|
<%
' begin random function
randomize
' random numbers is the varible that will contain a numeric value
' between one and nine
'random_number=int(rnd*9)+1
' write the random number out to the browser
'response.write random_number
%>
<%
' Determines how many unique random numbers to be produced
tot_unique=24
' Determines the highest value for any unique random number
top_number=150
dim random_number, counter, check, unique_numbers
' When passing a varible for an array use redim
redim random_number(tot_unique)
' begin random function
randomize
' Begin a for next loop from one to the max number of unique numbers
For counter = 1 to tot_unique
' select a number between 1 and the top number value
random_number(counter) = Int(Rnd * top_number)+1
' For next loop to compare the values stored in the array to
' the new random value being assigned
for check=1 to counter-1
if random_number(check)= random_number(counter) then
' If the current value is equal to a previous value
' subject
counter=counter-1
end if
next ' Repeat loop to check values
next ' Repeat loop to assign values to the array
%>
|

|

|

|

|

|
| |
|
1

|
2

|
3

|
4

|
5

|
| |
|
6

|
7

|
8

|
9

|
10

|
| |
|
11

|
12

|
13

|
14

|
15

|
| |
|
16

|
17

|
18

|
19

|
20

|
| |
|
21

|
22

|
23

|
24

|
25

|
| |
|
26

|
27

|
28

|
29

|
30

|
| |
|
31

|
32

|
33

|
34

|
35

|
| |
|
36

|
37

|
38

|
39

|
40

|
| |
|
41

|
42

|
43

|
44

|
45

|
| |
|
46

|
47

|
48

|
49

|
50

|
| |
|
51

|
52

|
53

|
54

|
55

|
| |
|
56

|
57

|
58

|
59

|
60

|
| |
|
61

|
62

|
63

|
64

|
65

|
| |
|
66

|
67

|
68

|
69

|
70

|
| |
|
71

|
72

|
73

|
74

|
75

|
| |
|
76

|
77

|
78

|
79

|
80

|
| |
|
81

|
82

|
83

|
84

|
85

|
| |
|
86

|
87

|
88

|
89

|
90

|
| |
|
91

|
92

|
93

|
94

|
95

|
| |
|
96

|
97

|
98

|
99

|
100

|
| |
|
101

|
102

|
103

|
104

|
105

|
| |
|
106

|
107

|
108

|
109

|
110

|
| |
|
111

|
112

|
113

|
114

|
115

|
| |
|
116

|
117

|
118

|
119

|
120

|
| |
|
121

|
122

|
123

|
124

|
125

|
| |
|
126

|
127

|
128

|
129

|
130

|
| |
|
131

|
132

|
133

|
134

|
135

|
| |
|
136

|
137

|
138

|
139

|
140

|
| |
|
141

|
142

|
143

|
144

|
145

|
| |
|
146

|
147

|
148

|
149

|
150

|
| |
|
Free Square

|
|
|
|
|
©1999-2004 PlånetSocks
|

|

|

|

|
|

|