Question

vb程序填空

求大神来啊

Option Explicit
Option Base 1
'筛选按钮代码
Private Sub Command1_Click()
Dim s As String, k As Integer, c() As String
Dim p As String, i As Integer
s= Text1
k= 1
For i = 1 To Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9"Then
'**********FILL**********
______________________________

ElseIf Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <="9" And i <> 1 Then
If p <> "" Then
'**********FILL**********
______________________________

c(k) = p
'**********FILL**********
______________________________

p = ""
End If
End If
Next i

ReDim Preserve c(k)
c(k) = p
For i = 1 To k
'**********FILL**********
______________________________

Next i
End Sub

Private Sub Command2_Click()
Text1.Text = ""
List1.Clear

End Sub

Private Sub Command3_Click()
End
End Sub

Answer 1

'筛选按钮代码
Private Sub Command1_Click()
Dim s As String, k As Integer, c() As String
Dim p As String, i As Integer
s= Text1
k= 1
For i = 1 To Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9"Then
'**********FILL**********
____p=p+mid(s,i,1)__________________________

ElseIf Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <="9" And i <> 1 Then
If p <> "" Then
'**********FILL**********
______p=p+mid(s,i,1)________________________

c(k) = p
'**********FILL**********
_______k=k+1_______________________

p = ""
End If
End If
Next i

ReDim Preserve c(k)
c(k) = p
For i = 1 To k
'**********FILL**********
_____text1=text1+chr(13)+c(k)_________________________

Next i
End Sub