1、思路解读：vbs脚本程序里面没有最大、最小之类的函数，自然不能使用这些函数功能逐一的从数组里面挑选出最大值进行排序（即：数组里面挑选出最值之后把原来的位置替换成空白）。既然没有最值函数功能，那就采用逐一比较的方法筛选出最值，然后再进行排序，想起来确实有点复杂。即使再复杂，也要有所行动，才会有收获。
2、电脑上面新建一个空白的文本文档，在文本文档里面输入以下VBS脚本程序代码并保存。Dim e1, e2, e3, e4, e5, e6, myArray(7), strOn Error Resume Next '忽略可能出现的错误Randomize '随机数生成器初始化For e1 = 0 To 7myArray(e1) = Int(Rnd() * 90 + 10) '生成8个10-100之间的随机正整数NextFor e2 = 0 To 7 '对数组里面的8个数进行逐一执行e5 = 8 - e2 '每次执行时最大值出现的次数For e3 = 0 To 7 ' e6 = 0 'e6初始化为0 If myArray(e3) <> "" Then '如果对应数组里面的数值不是空白，则 For e4 = 0 To 7 If myArray(e4) <> "" Then If myArray(e3) - myArray(e4) >= 0 Then '如果它们的差值大于或等于0，则 e6 = e6 + 1 'e6递增1 End If End If If e6 = e5 Then '如果累计的最大值出现的次数满足条件，则 Exit For '退出For循环 End If Next If e6 = e5 Then If str = "" Then '如果Str第一个字符为空白，则把数组的值赋给Str str = myArray(e3) Else str = str & "," & myArray(e3) '否则就使用Str + ,+ 数组的值拼接起来 End If myArray(e3) = "" '对应的数组值置空白 Exit For End If End IfNextNextMsgBox "随机数由大到小排序：" & Chr(10) & str
4、重命名文本文档（如：vbs随机数数组排序），同时把文本文档的后缀名改成“*.vbs”。
6、双击运行VBS脚本程序，将会看到生成的随机数按照大到小的顺序排序。
