复制代码Private Sub Command1_Click()
Dim s() As String
Dim i As Integer, k As Integer
s = Split(Text1.Text, vbCrLf)
Text1 = ""
For i = 0 To UBound(s)
If InStr(s(i), "k2") > 0 Or InStr(s(i), "k3") > 0 Or InStr(s(i), "k5") > 0 Then
k = k + 1
s(i) = s(i) & " " & "//标记" & k...
dim a() as stringdim b as stringdim i as integera=Split(Text1.Text, vbCrLf) For i = 0 To UBound(s) If InStr(a(i), "k2") > 0 Or InStr(a(i), "k3") > 0 Or InStr(a(i), "k5") > 0 T...