无为清净楼资源网 Design By www.qnjia.com
复制代码 代码如下:
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
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
标签:
asp中实现随机分组程序的代码
无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com
暂无评论...
更新日志
2024年09月20日
2024年09月20日
- 黑神话悟空上品鼠弩手精魄获取方法一览|上品鼠弩手精魄收集攻略
- 中国音乐地图听见世界非物质文化遗产《非遗HQCD》wav
- 中国民乐合奏作品集《华夏之音HQ》头版限量编号[WAV+CUE]
- [电影原声带]黎允文《天将雄师》[FLAC+CUE]
- 曝NS继任机型已进入量产阶段:已花了30亿日元
- 不是Switch2?曝《马里奥惊奇》NS捆绑包即将公开
- 暖心任天堂!网友Switch维修返还时贴纸被完好保留
- 《国语老歌 经典对唱情歌 2CD》[WAV/分轨][1.1GB]
- 《刀郎 翻唱精选华语专辑 披着羊皮的狼 》[WAV+CUE][430MB]
- 《真的田震 中国乐坛红极一时的歌者 精品集》[WAV+CUE][300MB]
- 群星.1995-新滚石九大天王之情歌大全【滚石】【WAV+CUE】
- 群星.1993-滚石九大天王十二出好戏·纵夏欢唱【滚石】【WAV+CUE】
- 群星.1993-滚石九大天王十二出好戏·贺岁齐唱【滚石】【WAV+CUE】
- 黑神话悟空上品虫校尉精魄获取方法一览|上品虫校尉精魄收集攻略
- 《指环王:夏尔的传说》推迟至2025年初发行