Function makegroup(teams() As String) As String 
  '函數(shù)功能:對teams數(shù)組中的32支球隊(duì)進(jìn)行隨機(jī)分組.(注:teams數(shù)組下標(biāo)從0開始) 
  '函數(shù)的變量定義. 
  '顯示變量聲明是一個好習(xí)慣. 
  Dim tvar As Integer, returnstr As String, tmove As Integer, temp As Integer 
  '初始化隨機(jī)數(shù)產(chǎn)生器實(shí)現(xiàn)真正的隨機(jī)性. 
  Randomize (Timer) 
  For tvar = 1 To 32 '共有32支球隊(duì) 
    If (tvar - 1) Mod 4 = 0 Then 
      '將分組球隊(duì)名稱及組名存入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 
      '將數(shù)組的部分前移避免組中存在同名球隊(duì). 
      teams(temp) = teams(temp + 1) 
    Next temp 
  Next tvar 
  '返回值為分組后的結(jié)果. 
  makegroup = returnstr 
End Function