asp中实现随机分组程序的代码

代码如下:Function makegroup(teams() As String) As String    ‘函数功能:对teams数组中的32支球队进行随机分组.(注:teams数组下标从0开始)    ‘函数的变量定义.    ‘显示变量声明是一个好习惯.    Dim tvar As Integer, returnstr As String, tmove As Integer, temp As Integer    ‘初始化随机数产生器实现真正的随机性.    Randomize (Timer)    For tvar = 1 To 32 ‘共有32支球队      If (tvar