asp中实现随机分组程序的代码
人气:0想了解asp中实现随机分组程序的代码的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点: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
加载全部内容