乒乓球等级分计算程序11b.doc

下载文档

13
0
约9.25千字
约 7页
2016-12-14 发布于重庆
举报
版权申诉
保障服务

乒乓球等级分计算程序11b.doc

1、本文档共7页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

Dim iPlayerNum As Integer 选手数量 Dim iGameNum As Integer 已进行比赛次数 Dim iGameChang As Integer 已经进行的比赛的场数 Dim iFenShuCha 比赛双方加减分 Dim djf(5000, 2) As Integer 等级分，最多处理五千名选手，第一列为前一次比赛的等级分，供计算分差用，第二列为统计本次比赛等级分用 Dim i, j, k, m, n, found As Integer Dim result As String Public Sub tongjixuanshougeshu() 统计选手个数For i = 2 To 32767 Step 1If (Sheets(1).Cells.Item(i, 2) = ) ThenGoTo over11ElseSheets(1).Cells.Item(i, 1) = i - 1 序号End IfNext i over11: iPlayerNum = i - 2 选手个数Sheets(1).Cells.Item(i, 1) = 合计 + CStr(iPlayerNum) 显示选手个数 End Sub Public Sub xuanshoumingchongfuxingjiancha() 选手重复性检查result = For i = 2 To iPlayerNum Step 1 从第二行开始For j = i + 1 To iPlayerNum + 1 Step 1If (Sheets(1).Cells.Item(j, 2) = Sheets(1).Cells.Item(i, 2)) Thenresult = result + 第 + CStr(i - 1) + 和第 + CStr(j - 1) + 重复，End IfNext jNext iIf (result ) ThenMsgBox (result)Open c:\选手名重复.txt For Output As #1Write #1, resultClose #1CommandButton3.Enabled = FalseEnd If 检查选手名有没有重复的，并提示,有重复，则不能进行下一步 End Sub Public Sub tishitianxiechushifen() 提示用户填写选手初始等级分For i = 1 To iPlayerNum Step 1If (Sheets(1).Cells.Item(i + 1, 8) = ) ThenMsgBox (请填写选手的初始等级分！！！)CommandButton3.Enabled = FalseGoTo over11End IfNext i over11: i = i End Sub Public Sub tongjibisaichangshu() 统计比赛场数，是全部比赛场数统计比赛场数For i = 2 To 32767 Step 1If (Sheets(2).Cells.Item(i, 2) = ) ThenGoTo over12ElseSheets(2).Cells.Item(i, 1) = i - 1 序号End IfNext i over12: iGameChang = i - 2 比赛场数Sheets(2).Cells.Item(i, 1) = 合计 + CStr(iGameChang) + 场比赛提示比赛场数 End Sub Public Sub jianchayouwuxinxuanshou() 检查有无新选手，有，则result不为空result = For i = 1 To iGameChang Step 1 比赛场数found = 0For j = 1 To iPlayerNum Step 1 选手数量If (Sheets(2).Cells.Item(i + 1, 2) = Sheets(1).Cells.Item(j + 1, 2)) Thenfound = 1End IfNext jIf (found = 0) Thenresult = result + 第 + CStr(i) + 场胜方选手 + _CStr(Sheets(2).Cells.Item(i + 1, 2)) + 不在名单中。End Iffound = 0For j = 1 To iPlayerNum Step 1 选手数量If (Sheets(2).Cells.Item(i + 1, 3) = Sheets(1).Cells.Item(j + 1, 2)) Thenfound = 1End IfNext jIf (found = 0) Thenresult = r