Excel表格上面使用VBA程序求解最大值、最小值时，可以引用Excel应用函数功能来求解其最值（如：最大值，Application.WorksheetFunction.Max）。在VBS脚本程序里边并没有可以求解最值的函数，没办法，那就使用嵌套循环来比较生成随机数里边的最值。工具/原料moreWindows 7计算机方法/步骤1/5分步阅读

电脑上面新建一个文本文档，在文本文档里面输入以下VBS程序代码并保存。

Dim Ra, Rm, Ri, j1,j2,j3,j4,j5, n, MyArray(1000)

On Error Resume Next 忽略运行过程中可能出现的错误

Randomize 初始化随机数生成器

Rm =

i = Int(InputBox(请输入随机数个数:,请输入随机数个数,5)) 随机数个数，默认5个

For j3 = 1 To i

MyArray(j3) = Int(Rnd() * 1000) 生成0-1000之间的随机整数

If Rm Then

Rm = Rm , MyArray(j3) 生成的随机数赋给Rm

Else

Rm = 随机数： MyArray(j3)

End If

Next

For j1 = 1 To i

n=0

For j2 = 1 to i

If MyArray(j1 )= MyArray(j2) Then 进行比较，然后选出最大值

n=n+1

If n = i Then 如果比较的次数与生成的个数相当，则

Ra=最大值： MyArray(j1) 选出最大值赋给Ra

End If

End If

Next

Next

For j4 = 1 To i

n=0

For j5 = 1 To i

If MyArray(j4) = MyArray(j5) then 进行比较，然后选出最小值

n=n+1

If n = i Then

Ri=最小值： MyArray(j4) 选出最小值赋给Ri

End If

End If

Next

Next

Msgbox Rm Chr(13) Ra Chr(13) Ri 弹出生成的随机数窗口

2/5

vbs脚本程序解读：

（1）使用vbs程序生成随机数时，应当对随机数生成器执行一次初始化，以免每次生成的随机都一样。

（2）InputBox输入框函数的语法为：InputBox(提示信息,输入框的标题,默认输入值)，前面加“Int”函数主要是对输入的数值取整。

（3）程序里面的两个“For……Next”函数嵌套使用，主要是从数组里边取出一个数之后再与整个数组进行比较，条件满足就是所求的最值。

3/5

重命名文本文档，然后把后缀名“*.txt”改成“*.vbs”。

4/5

双击已经重命名的vbs脚本程序，输入要生成随机数的个数（如：6个）。

5/5

程序运行完成，将会看到运行的结果。

注意事项

个人经验，仅供参考。

PASCALVBS脚本随机数最值