在VBS脚本程序中，没有可用于排序的函数。至于调用系统上的其他排序函数，没有博学的人。因此，这个问题也已经探索了很长时间。最后，我们找到了可以处理的方法。这些方法看起来有点笨拙，可以被认为是动手练习，可以在以后需要的时候应用。

-一步阅读工具/原材料计算机视窗7方法/一步思维解释；

vbs脚本程序中没有最大值和最小值等函数。自然，这些函数不能用于从数组中逐个选择最大值进行排序(即在从数组中选择最大值后，用空白替换原始位置)。

因为没有最大值函数的函数，所以用一个接一个比较的方法筛选出最大值然后排序有点复杂。不管它有多复杂，在有任何收获之前，它都会采取一些行动。

在计算机上创建一个新的空白文本文档，在文本文档中输入以下VBS脚本程序代码并保存。

Dim e1，e2，e3，e4，e5，e6，myArray(7)，str

下一步出错恢复& # 39；忽略可能的错误

随机化& # 39；随机数生成器的初始化

对于e1 = 0至7

my array(E1)= Int(Rnd()* 90+10)& # 39；生成8个介于10和100之间的随机正整数

然后

对于e2 = 0至7 & # 39；数组中的8个数字被逐个执行。

E5 = 8-E2 & # 39；每次执行的最大出现次数。

对于e3 = 0至7 & # 39；

e6 = 0 & # 39E6被初始化为0

如果my array(E3)& lt；>。""然后& # 39；如果相应数组中的值不是空的，则

对于e4 = 0至7

如果my array(E4)& lt；>。""然后

如果myArray(e3) - myArray(e4)>;= 0然后& # 39；如果它们的差值大于或等于0，则

E6 = E6+1 & # 39；E6增加1

结束条件

结束条件

如果e6 = e5，则& # 39；如果累计最大出现次数满足条件，则

退出& # 39；退出循环

结束条件

然后

如果e6 = e5，则

如果字符串= & quot"然后& # 39；如果Str的第一个字符为空，则将数组的值赋给Str

str = myArray(e3)

其他

str = str & amp"，& quot& ampmy array(E3)& # 39；否则，Str+、+数组的值将被拼接在一起。

结束条件

my array(E3)= & quot；"& # 39；对应的数组值为空

退出

结束条件

结束条件

然后

然后

MsgBox "。随机数从大到小排序:" & ampChr(10)和；str

-两步阅读3vbs脚本程序解释:

在这个程序中，没有不熟悉的程序函数，主要用于函数嵌套。第一个主要用于生成随机的8个数字，并将它们分配到数组中的相应位置。

第二个可以理解为将数组中的8个数字一个一个地排序。

第三个和第四个用于逐个比较数组中的值，然后过滤出最大值，然后将原始位置留空(以避免重复比较)。

-3步读取4重命名文本文档(例如vbs随机数数组排序)，同时将文本文档的后缀更改为“*”。vbs”。

步骤阅读5如果扩展名未显示在计算机上的文档中，请单击文件浏览器菜单栏上的工具、文件夹选项和视图，删除“隐藏已知文件类型的扩展名”前的“√”，然后单击确定。(如果后缀已经显示，则忽略此步骤)

-5步读取6双击运行VBS脚本程序，你会看到生成的随机数按降序排列。

-6步阅读7vbs脚本程序的数组排序在平时可能不是很有用，但它可以训练你的思维，或者你可以将其移植到其他程序(如VBA)或进行一些修改来发挥其功能。

-7步阅读结束笔记个人经验仅供参考。