ASP中如何實現(xiàn)隨機分組程序

2024-05-04 11:05:29

字體：大中小

供稿：網(wǎng)友

隨機分組程序比較常用于比賽中需要隨機對參賽人員，那么我們在ASP中如何實現(xiàn)隨機分組程序呢？下面我們就帶著這個疑問去看看相關(guān)內(nèi)容吧，希望對你有一定的幫助。?

復(fù)制代碼代碼如下:

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