Dim datal, data2 As String Dim lenl, len2 As Integer
Dim i, j, k, max, t As Integer
Dima(1To100)AsInteger,b(1 To 100) As Integer,c(1To 100) As Integer
datal = Text1.Text: data2 = Text2. Text
len1 = Len(datal ):len2 = Len(data2)
i=1
a(i) = Val( Mid( datal , len1 - i + 1,1))
Next i
max =max+1
c(max)=1
End If
'trim()的作用是去除字符串中的空格符
group(i) = 0
group(k) = group(k) + 1
If group(k) = 1 Then
record((k - 1) * 3 + 1) = i
ElseIf group(k) <= 3 Then
record((k - 1) * 3 + w) = i
Else
If result (i) > result(record((k - 1) * 3 + 3)) Then
w = find(3, k)
record((k - 1) * 3 + w) = i
End If
End If
List1.AddItem player(record(i)) & "选手成绩:" & result(record(i))
For j = 1 To 3
t = (i - 1) * 6
List2.AddItem player(record(t + j)) & "VS" &player(record(t + 7 - j))
Next j
Do While m > 1
If
record ((k - 1) * 3 + m )= record((k - 1) * 3 + m - 1)
m = m - 1
Else
Exit Do
End If
Loop
find = m
A.0 1 i+1 | B.1 5 i | C.0 2 (i+1) | D.1 3 i-1 |
A.0 2 2 | B.1 1 (i+1) | C.0 2 i | D.1 3 i-1 |
A.colour.bmp |
B.red.bmp |
C.white.bmp |
D.一样大 |