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