Private Sub Command2_ Click()
Dim sp As String, s As String
Dim a(1 To 1000) As Integer
Dim b(1 To 100) As Integer
Dim c(1 To 100) As Integer
Dim i As Integer, j As Integer
Dim n As Integer, f1 As Integer
Dim f2 As Integer, h1 As Integer
Dim k As Integer, x As Integer
'对数组a赋初值为0,代码略
s = Text1.Text: j = 1: k=1: x=0
For i=1 To Len(s)
If Mid(s,i,1)="w" Then a(i)=1
Next i
For i=1Ton
If a(i)=1 Then f1=f1+1 Else f2=f2+1
H1=h1+a(i)
If heck(f1, f2, 11) Then
b(j)=f1:b(j+1)=f2:j=j+2
f1 =0:f2= C
End If
If check(h1, h2,21) Then
c(k) = h1:c(k+1)=h2:k=k+2
h1=0:x=i
End If
Next i
'输出各局比分代码略
End Sub
Function check (ByVal dl As Integer, ByVal d2 As Integer, fz As Integer) As Boolean
check = False
If Then check = True
End Function