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 - 1） Mod 4 = 0 Then
      "将分组球队名称及组名存入returnstr变量中.
      returnstr = returnstr & vbCrLf & Chr（Asc（"A"） + （tvar  4）） & "组:"
    End If
    tmove = Int（Rnd * （33 - tvar））
    returnstr = returnstr & teams（tmove） & "."
    For temp = tmove To 30
      "将数组的部分前移避免组中存在同名球队.
      teams（temp） = teams（temp + 1）
    Next temp
  Next tvar
  "返回值为分组后的结果.
  makegroup = returnstr
End Function