vb中，取字符串中1到9的数字该如何写代码

vb代码，怎么在一串字符串中提取数字？~

Private Sub Command1_Click()Dim s As String, k As Integer, c() As StringDim p As String, i As Integers = Text1.Textk = 1For i = 1 To Len(s) If Mid(s, i, 1) >= "0" And Mid(s, i, 1) = "0" And Mid(s, i + 1, 1) 1 ThenIf p "" ThenReDim Preserve c(k)c(k) = pk = k + 1p = ""End IfEnd IfNext iReDim Preserve c(k)c(k) = pFor i = 1 To kList1.AddItem (c(i))Next iEnd SubPrivate Sub Form_Load()Text1.Text = "abc123d4fr567yh89l09df4m67dkj21"End Sub

Private Sub Command1_Click() '在text1中输入字符串，单击按钮command1提取，并在窗体中打印结果 Dim a(), f As Boolean For i = 1 To Len(Text1.Text) If IsNumeric(Mid(Text1.Text, i, 1)) Then If f = False Then f = True ReDim a(0) Else ReDim Preserve a(UBound(a) + 1) End If a(UBound(a)) = Mid(Text1.Text, i, 1) For j = i + 1 To Len(Text1.Text) If IsNumeric(Mid(Text1.Text, j, 1)) Then a(UBound(a)) = a(UBound(a)) & Mid(Text1.Text, j, 1) i = i + 1 Else Exit For End If Next j End If Next i If f = True Then Print "提取的数字依次为：" For i = 0 To UBound(a) Print a(i) Next i End IfEnd Sub

一个text 和command
Private Sub Command1_Click()
Dim i As String
Dim x As Integer
Dim y As String
i = CStr(Text1.Text)
If Len(i) = 0 Then
Print "错误！不能为空！"
Else
x = Len(i)
Do While x
If (Mid(i, x, 1)) > 0 And (Mid(i, x, 1)) <= 9 Then
y = Mid(i, x, 1) & y
x = x - 1
Else
x = x - 1
End If

Loop
Print y
End If

End Sub

---

vb中，取字符串中1到9的数字该如何写代码视频