乒乓球等级分计算程序源代码.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) 显