场景: 1.每次搞活动都需要分组,比如20个人分3个组,如何才能更公平的分组,想到的只能是随机分组程序. 2.时间关系并没有实现男女平衡的分组,有时间的哥们可以自己实现. 文件1:分组程序.vbs,记得保存为ansi编码. ' 随机分组 author: Sai ' 新建一个ansi编码的txt文件,内容是每个姓名占用一行. Sub DeleteArray(arr,i) If UBound(arr) > 0 Then max_j = UBound(arr) - 1 For j = i To max…