7,785
社区成员




Option Explicit
Dim sData As String
Private Sub Command1_Click()
Cls
Dim A() As String
Dim B() As String
Dim i As Long, j As Long
Dim s As String
Dim bFound As Boolean
A = Split(sData, "," & vbCrLf)
For i = 0 To UBound(A) - 2
B = Split(A(i), "+")
For j = 0 To UBound(B)
s = Trim(B(j))
If InStr(1, A(i + 1), s) > 0 Then
If InStr(1, A(i + 2), s) > 0 Then
bFound = True
Exit For
End If
End If
Next
If bFound Then
ForeColor = 255
Print A(i); Space(10); s
Print A(i + 1)
Print A(i + 2)
ForeColor = 0
i = i + 2
bFound = False
Else
Print A(i)
End If
Thenext:
Next
If Not bFound Then
For j = i To UBound(A)
Print A(j)
Next
End If
End Sub
Private Sub Form_Load()
sData = "07+09+11+14+17+19+25,"
sData = sData & vbCrLf & "05+10+14+18+19+21+28,"
sData = sData & vbCrLf & "02+06+07+10+12+14+26,"
sData = sData & vbCrLf & "01+04+11+15+24+25+27,"
sData = sData & vbCrLf & "04+12+14+25+26+29+30,"
sData = sData & vbCrLf & "01+08+09+14+19+24+26,"
sData = sData & vbCrLf & "01+02+03+05+08+13+26,"
sData = sData & vbCrLf & "01+06+10+18+21+26+30,"
sData = sData & vbCrLf & "04+15+17+18+22+24+29,"
sData = sData & vbCrLf & "09+12+15+22+25+27+29,"
sData = sData & vbCrLf & "02+06+10+17+18+27+28,"
sData = sData & vbCrLf & "01+09+13+18+19+22+26,"
sData = sData & vbCrLf & "01+05+06+11+12+26+30,"
sData = sData & vbCrLf & "04+05+07+12+20+21+29,"
sData = sData & vbCrLf & "04+05+08+17+24+25+26,"
sData = sData & vbCrLf & "02+08+11+14+16+25+30,"
sData = sData & vbCrLf & "09+10+14+18+23+25+26,"
sData = sData & vbCrLf & "06+13+16+19+20+22+25,"
sData = sData & vbCrLf & "07+12+13+22+23+27+28,"
sData = sData & vbCrLf & "01+05+06+09+24+28+30,"
sData = sData & vbCrLf & "02+04+07+09+13+20+22,"
sData = sData & vbCrLf & "01+11+20+21+24+25+29,"
sData = sData & vbCrLf & "01+10+13+20+27+28+29,"
sData = sData & vbCrLf & "09+12+13+18+19+24+26,"
sData = sData & vbCrLf & "01+02+14+17+18+19+29,"
sData = sData & vbCrLf & "02+04+06+16+18+27+30,"
sData = sData & vbCrLf & "08+11+15+18+26+27+28,"
sData = sData & vbCrLf & "05+09+14+18+22+25+27,"
sData = sData & vbCrLf & "01+03+07+14+18+26+30,"
sData = sData & vbCrLf & "04+12+13+17+19+29+30,"
End Sub