在VB中，可以使用正则表达式或者循环遍历字符串的每个字符来提取字符串中的数字。以下是两种常见的方法。
方法一：使用正则表达式提取数字
Imports System.Text.RegularExpressions
Dim inputString As String = "Hello123World456"
Dim numbers As MatchCollection = Regex.Matches(inputString, "\d+")
For Each number As Match In numbers
Console.WriteLine(number.Value)
Next
这段代码使用了正则表达式\d+来匹配一个或多个数字。MatchCollection对象将包含所有匹配的数字。然后可以使用For Each循环遍历MatchCollection并输出每个数字。
方法二：使用循环遍历提取数字
Dim inputString As String = "Hello123World456"
Dim numberBuilder As New StringBuilder()
For Each c As Char In inputString
If Char.IsDigit(c) Then
numberBuilder.Append(c)
End If
Next
Dim numbers As String = numberBuilder.ToString()
Console.WriteLine(numbers)
在这个方法中，我们循环遍历了输入字符串的每个字符。如果字符是数字，我们将其追加到一个StringBuilder对象中。最后，我们将StringBuilder对象转换为字符串，并输出结果。
无论是使用正则表达式还是循环遍历，都可以提取字符串中的数字。选择哪种方法取决于你的具体需求和个人喜好。
