乒乓球等级分计算规程源代码.docVIP

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 1 If (Sheets(1).Cells.Item(i, 2) = ) Then GoTo over11 Else Sheets(1).Cells.Item(i, 1) = i - 1 序号 End If Next 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 1 If (Sheets(1).Cells.Item(j, 2) = Sheets(1).Cells.Item(i, 2)) Then result = result + 第 + CStr(i - 1) + 和第 + CStr(j - 1) + 重复， End If Next j Next i If (result ) Then MsgBox (result) Open c:\选手名重复.txt For Output As #1 Write #1, result Close #1 CommandButton3.Enabled = False End If 检查选手名有没有重复的，并提示,有重复，则不能进行下一步 End Sub Public Sub tishitianxiechushifen() 提示用户填写选手初始等级分 For i = 1 To iPlayerNum Step 1 If (Sheets(1).Cells.Item(i + 1, 8) = ) Then MsgBox (请填写选手的初始等级分！！！) CommandButton3.Enabled = False GoTo over11 End If Next i over11: i = i End Sub Public Sub tongjibisaichangshu() 统计比赛场数，是全部比赛场数 统计比赛场数 For i = 2 To 32767 Step 1 If (Sheets(2).Cells.Item(i, 2) = ) Then GoTo over12 Else Sheets(2).Cells.Item(i, 1) = i - 1 序号 End If Next 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 = 0 For j = 1 To iPlayerNum Step 1