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

在一个外国人的视角中，关于一个微不足道的课堂小应用，其模块化设计的需求往往并不是必要的，除非存在一些特殊的需求。今天，让我们看看如何使用ASP来生成一个随机数。

在编程的世界里，随机数是一种非常有用的工具，它们的应用范围广泛，从模拟真实世界现象到游戏开发都有涉及。现在，我们可以借助ASP来实现这一功能。

我们需要了解ASP（Active Server Pages）是一种服务器端脚本环境，它允许开发者创建动态网页。在这样的环境下生成随机数，可以轻松地将其嵌入到网页中，为用户提供实时的、个性化的体验。

对于这个小应用来说，我们不需要进行复杂的模块化设计。我们可以直接在ASP代码中嵌入生成随机数的逻辑。这个过程相对简单，只需要使用ASP内置的随机数生成函数即可。这些函数可以轻松地生成指定范围内的随机整数或浮点数。

以下是使用ASP生成随机数的示例代码：

```asp

<%

Randomize '初始化随机数生成器

Dim randomNumber '声明变量用于存储随机数

randomNumber = Rnd 100 '生成一个介于0到99之间的随机数

Response.Write("生成的随机数是：" & randomNumber) '将随机数输出到网页上

%>

```

上述代码中，我们首先使用`Randomize`函数来初始化随机数生成器。然后，我们声明一个变量`randomNumber`来存储生成的随机数。接着，使用`Rnd`函数生成一个介于0到99之间的随机数（这里假设我们想要一个介于0到100之间的数）。使用`Response.Write`将生成的随机数输出到网页上。

CLASS: cRandom

此独特类专为随机数字而生。它将种子化随机数生成器并提供功能以返回指定范围内的随机整数或整数数组。在类创建时即进行种子化随机数生成器的操作，显得非常合理。

Class_Initialize子程序

程序开始时，对VBScript中的Randomize函数的具体应用进行检查。通过Randomize函数进行种子化操作。

Class_Terminate子程序

对于此类而言，Terminate无需执行任何操作。

FUNCTION: RangedRandom

此功能接受两个参数：lowerBound和upperBound，返回这两个值之间的一个随机整数（包括这两个边界值）。其实现原理是通过计算上限与下限之间的差值，再将其与Rnd相乘并加上下限，最终转化为整数返回。

FUNCTION: RangedRandomArray

除了基本的上下限参数外，此功能还接受两个参数：数组大小（从0开始的数字，表示数组的大小）以及一个布尔值来确定是否允许重复值。功能开始时，创建一个临时数组以存储传入的数组大小参数中的元素数量。通过循环调用RangedRandom函数生成随机值，并根据是否需要重复值进行处理。如果不需要重复值，则检查新生成的随机值是否已存在于数组中，若存在则跳出循环。最后返回填充好的数组。