asp中實現(xiàn)隨機分組程序的代碼
更新時間：2007年03月06日 00:00:00 作者：
復(fù)制代碼 代碼如下:
Function makegroup(teams() As String) As String
'函數(shù)功能:對teams數(shù)組中的32支球隊進行隨機分組.(注:teams數(shù)組下標從0開始)
'函數(shù)的變量定義.
'顯示變量聲明是一個好習(xí)慣.
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
相關(guān)文章
用ASP做搜索很容易，但要實現(xiàn)智能搜索這類就比較累一點，其實任何程序都差不多，主要還是看數(shù)據(jù)庫的處理能力，一般小網(wǎng)站ASP經(jīng)常跟ACCESS數(shù)據(jù)庫搭配2009-03-03
asp 實現(xiàn)顯示所有的服務(wù)器變量值的函數(shù)
asp 實現(xiàn)顯示所有的服務(wù)器變量值的函數(shù)...2007-08-08
SQL查詢語句通配符與ACCESS模糊查詢like的解決方法
我今天在寫個頁面的時候，也很郁悶，表中明明有記錄，但在ASP里就是搜索不到，原來是因為access與SQL的查詢語句通配符問題不同所引起的。2011-02-02
今天遇到這種問題，單純的使用replace函數(shù)不行，他會改變原有的字符串的大小寫,在網(wǎng)上找到相關(guān)的代碼，自己備份下2013-04-04
電影系統(tǒng)經(jīng)常用ASP偽參數(shù)，可以防范通過id采集數(shù)據(jù)。2008-01-01
前段時間想用google suggest在網(wǎng)上找了很多都不盡人意,于是自己花了些時間寫了一個,跟google suggest 基本一樣,后面的約多少結(jié)果非本程序范圍哦。2010-03-03
循環(huán)語句的作用就是重復(fù)執(zhí)行程序代碼，循環(huán)可分為三類：一類在條件變?yōu)椤凹佟敝爸貜?fù)執(zhí)行語句，一類在條件變?yōu)椤罢妗敝爸貜?fù)執(zhí)行語句，另一類按照指定的次數(shù)重復(fù)執(zhí)行語句，需要的朋友可以參考下2015-09-09
驗證碼識別技術(shù)...2007-02-02
ASP+FSO生成的網(wǎng)頁文件默認編碼格式以及轉(zhuǎn)換成UTF-8編碼方法
有一個客人的網(wǎng)站想做一個俄文版，前臺后臺，我統(tǒng)一用utf-8編碼，但通過數(shù)據(jù)庫生成的靜態(tài)俄文信息是亂碼。如果用GB2312顯示，通過數(shù)據(jù)庫生成的靜態(tài)俄文信息正確顯示， 但模板文件俄文是亂碼。2009-11-11
google sitemap.asp...2006-11-11