Excel表格上面使用VBA程序求解最大值、最小值时，可以引用Excel应用函数功能来求解其最值（如：最大值，Application.WorksheetFunction.Max）。在VBS脚本程序里边并没有可以求解最值的函数，没办法，那就使用嵌套循环来比较生成随机数里边的最值。
工具/原料
Windows7
计算机
方法/步骤
1、电脑上面新建缬方焱蜱一个文本文档，在文本文档里面输入以下VBS程序代码并保存。DimRa,Rm,Ri荑樊综鲶,j1,j2,j3,j4,j5,n,MyArray(1000)OnErrorResumeNext'忽略运行过程中可能出现的错误Randomize'初始化随机数生成器Rm=""i=Int(InputBox("请输入随机数个数:","请输入随机数个数",5))'随机数个数，默认5个Forj3=1ToiMyArray(j3)=Int(Rnd()*1000)'生成0-1000之间的随机整数IfRm<>""ThenRm=Rm&","&MyArray(j3)'生成的随机数赋给RmElseRm="随机数："&MyArray(j3)EndIfNextForj1=1Toin=0Forj2=1toiIfMyArray(j1)>=MyArray(j2)Then'进行比较，然后选出最大值n=n+1Ifn=iThen'如果比较的次数与生成的个数相当，则Ra="最大值："&MyArray(j1)'选出最大值赋给RaEndIfEndIfNextNextForj4=1Toin=0Forj5=1ToiIfMyArray(j4)<=MyArray(j5)then'进行比较，然后选出最小值n=n+1Ifn=iThenRi="最小值："&MyArray(j4)'选出最小值赋给RiEndIfEndIfNextNextMsgboxRm&Chr(13)&Ra&Chr(13)&Ri'弹出生成的随机数窗口
2、vbs脚本程序解读：（1）使用vbs程序生成随勺腴孥圜机数时，应当对随机数生成器执行一次初始化，以免每次生成的随机都一样。（2）InputBox输入框函数的语刮茕栓双法为：InputBox("提示信息","输入框的标题",默认输入值)，前面加“Int”函数主要是对输入的数值取整。（3）程序里面的两个“For……Next”函数嵌套使用，主要是从数组里边取出一个数之后再与整个数组进行比较，条件满足就是所求的最值。
3、重命名文本文档，然后把后缀名“*.txt”改成“*.vbs”。
4、双击已经重命名的vbs脚本程序，输入要生成随机数的个数（如：6个）。
5、程序运行完成，将会看到运行的结果。
