复制代码代码如下所示：

功能makegroup（团队）为字符串（字符串）
函数功能：团队数组中的32个团队随机分组。（注意：团队数组下标从0开始）
函数的变量定义。
显示变量声明是个好习惯。
昏暗的returnstr TVAR的整数，字符串，安放到整数，温度为
随机数生成器的初始化实现真正的随机性。
随机化（定时器）
1至32的TVAR =共32支球队
如果（参数1）mod 4 = 0
名称和团队组的名称存储在returnstr变量。
returnstr = returnstr vbcrlf CHR（ASC（）+（TVAR 4））组
最后如果
安放到= int（RND *（33 - TVAR））
returnstr = returnstr队（安放到）。
温度=安放到30
数组的部分向前移动以避免组中同名团队的存在。
团队（临时工）=团队（临时工+ 1）
下温度
下一个参数
返回值是该组的结果。
makegroup = returnstr
端功能