摘　要：

摘　要：將計算機技術應用到體育運動會的管理當中，研制出體育運動會計算機管理系統(tǒng)，顯著提高運動會的現(xiàn)代化管理水平。本文主要闡述在具體實現(xiàn)過程中使用到的一些關鍵技術。

關鍵詞：

關鍵詞：體育運動會　計算機管理系統(tǒng)　智能分組分道

      2010年，沈陽藥科大學體育部提出加強體育運動會現(xiàn)代化管理技術的需求，與我校計算機中心聯(lián)合共同研制了體育運動會計算機管理系統(tǒng)，該系統(tǒng)投入使用后，顯著提升運動會管理者的工作效率，與傳統(tǒng)人工實現(xiàn)相比，在準確性、及時性、智能化和高效率等方面占有絕對優(yōu)勢；系統(tǒng)還受到沈陽市某事業(yè)單位的關注和使用。在研發(fā)和完善系統(tǒng)的過程中，運動員注冊、分組分道、成績錄入、數(shù)據(jù)導出和打印報告單/成績單等的功能設計部分都涉及不同的關鍵技術。

　　1　關鍵技術

　　1.1　智能分組分道

　　所謂智能分組分道技術，是指由計算機按一定規(guī)則對某項目的報名數(shù)據(jù)進行分組分道，模擬人工實現(xiàn)的過程效率高、速度快、準確無誤。技術算法實現(xiàn)如下：

　�。�1）將某項目報名數(shù)據(jù)所有運動員號碼讀取到動態(tài)數(shù)組c中，并進行排序。

　　Set g = Grid1

　　ReDim c(1 To g.rows - 1)

　　For i = 1 To g.rows - 1

　　   c(i) = g.Cell(i, 3).Text

　　Next i

　　排序代碼省略。

　　（2）定義二維動態(tài)數(shù)組s，其中第一維大小為小組數(shù)，第二維大小為道數(shù)。

　　ReDim s(1 To lblXZS.Caption, 1 To lblDS.Caption)

　�。�3）開始分組。這一步是將前面排好序的運動員號碼以道次為優(yōu)先，為每小組分配一個隊員，這樣保證了同一參賽單位的隊員盡量不出現(xiàn)在一個小組當中，如圖1所示。

　　For j = 1 To lblDS.Caption

　　   For i = 1 To lblXZS.Caption 

　　      If (j - 1) * lblXZS.Caption + i > UBound(c) Then Exit For

　　      s(i, j) = c((j - 1) * lblXZS.Caption + i)

　　   Next i

　　   If i <= lblXZS.Caption Then Exit For

　　Next j

　　其中，(j - 1) * lblXZS.Caption + i > UBound(c)判斷是否分配完畢。

　�。�4）重新隨機分道。針對此問題，我們在設計中采用類似約瑟夫環(huán)問題解決：對某小組i分道時，統(tǒng)計該組運動員數(shù)量ecount，隨機生成一個位置j，并將該位置的號碼s(i,j)移動到s(i,ecount)位置去，其j位置之后直到ecount位置的號碼前移，，該組運動員數(shù)量ecount減1；重復此操作ecount-1遍，VB中的For循環(huán)終值一旦確定不會再改變。

　　For i = 1 To lblXZS.Caption

　　   ecount = 0

　　   For j = 1 To lblDS.Caption

　　      If s(i, j) <> "" Then ecount = ecount + 1

　　   Next j

　　   For k = 1 To ecount - 1

　　       j = Int(Rnd * ecount + 1)

　　       t = s(i, j)

　　       For M = j + 1 To ecount

　　          s(i, M - 1) = s(i, M)

　　       Next M

　　       s(i, M - 1) = t

　　       ecount = ecount - 1

　　   Next k

　　Next i

　　1.2　生成秩序冊

　　賽前數(shù)據(jù)準備結束之后，生成秩序冊是賽前最后的工作，也是傳統(tǒng)手工工作中最為繁瑣的過程。通過體育運動會計算機管理系統(tǒng)自動將數(shù)據(jù)庫中的數(shù)據(jù)按一定規(guī)則編排保存到Word文檔中是非常重要的，在實現(xiàn)過程中關鍵的技術在于動態(tài)創(chuàng)建Word文檔并添加內容。

　　1.2.1　創(chuàng)建Word文檔

　　Dim wdApp As Word.Application, wdDoc As Word.Document

　　Set wdApp = CreateObject("word.application")

　　Set wdDoc = wdApp.Documents.Add

　　1.2.2　向文檔中追加段落及內容

　　wdApp.Selection.TypeText Text:="生成秩序冊"

　　wdApp.Selection.TypeParagraph

　　1.2.3　保存文檔

　　wdDoc.SaveAs strDesktop & "生成秩序冊.doc"

　　wdApp.Quit：Set wdDoc = Nothing：Set wdApp = Nothing

　　秩序冊生成過程中，小組、道數(shù)的標題和運動員名單等問題，在這里暫時不做詳細討論。

　　2　結語

　　本文針對沈陽藥科大學體育運動會計算機管理系統(tǒng)中在智能分組分道關鍵技術中所采用的方法做了詳細的討論，并對秩序冊的生成技術進行了簡單的介紹，希望能夠對進行此類設計工作的程序設計人員提供幫助。