使用VBS生成随机数并求出最值
在Excel表格中，我们可以使用VBA程序来求解最大值和最小值，通过引用Excel应用函数功能（如：最大值，）来实现。然而，在VBS脚本程序中却没有专门用于求解最值的函数。所以，我们只能使用嵌套循环来比较生成的随机数，以求得其中的最大值和最小值。
VBS程序代码
首先，我们需要新建一个文本文档，并在其中输入以下VBS程序代码：
```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 ","
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
End If
If n i Then
Ra"最大值：" MyArray(j1) '选出最大值赋给Ra
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
End If
If n i Then
Ri"最小值：" MyArray(j4) '选出最小值赋给Ri
End If
Next
Next
Msgbox Rm Chr(13) Ra Chr(13) Ri '弹出生成的随机数窗口
```
解读VBS脚本程序
1. 使用VBS程序生成随机数时，应当对随机数生成器进行初始化，以避免每次生成的随机数都相同。
2. InputBox输入框函数的语法为：InputBox("提示信息", "输入框的标题", 默认输入值)，前面加上“Int”函数是为了将输入的数值取整。
3. 程序中的两个嵌套的""循环函数主要是从数组中取出一个数与整个数组进行比较，满足条件即为所求的最值。
运行程序
1. 将文本文档的后缀名由“*.txt”改为“*.vbs”。
2. 双击已经重命名的VBS脚本程序，并输入要生成随机数的个数（例如：6个）。
3. 程序运行完成后，将会看到运行结果弹出窗口，其中包括生成的随机数、最大值和最小值。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
