1、电脑上面新建一个文本文档，在文本文档里面输入以下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 IfNextFor 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 NextNextFor 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 NextNextMsgbox Rm & Chr(13) & Ra & Chr(13) & Ri '弹出生成的随机数窗口
2、vbs脚本程序解读：（1）使用vbs程序生成随机数时，应当对随机数生成器执行一次初始化，以免每次生成的随机都一样。（2）InputBox输入框函数的语刮茕栓双法为：InputBox("提示信息","输入框的标题",默认输入值)，前面加“Int”函数主要是对输入的数值取整。（3）程序里面的两个“For……Next”函数嵌套使用，主要是从数组里边取出一个数之后再与整个数组进行比较，条件满足就是所求的最值。
3、重命名文本文档，然后把后缀名“*.txt”改成“*.vbs”。
4、双击已经重命名的vbs脚本程序，输入要生成随机数的个数（如：6个）。
5、程序运行完成，将会看到运行的结果。
