vb.net 2010 如何把文本框中的数字提取出来

源代码如下：（代码写在按钮点击事件里）

        Label1Text = ""

        Label2Text = ""

        Dim a As String = TextBox1Text

        Dim b As String = TextBox2Text

        For x = 1 To aLength

            Dim txt As String = Mid(a, x, 1)

            If txt Like "#" Then

                Label1Text = Label1Text & txt

            End If

        Next

        For x = 1 To bLength

            Dim txt As String = Mid(b, x, 1)

            If txt Like "#" Then

                Label2Text = Label2Text & txt

            End If

        Next

此方法用的是mid 将一个字符串拆分成单个字符，然后用like运算符进行对比是否为数字，关于这两个函数的用法如果不懂的可以自己搜索下，此外还有别的方法，这里就不多说了

呵呵，VB是允许这样的。没有加定义限制就可以那样用。别把人想那么差。

你的意思不太明确啊。有两种解释啊。

1：文本框只输入数字然后引用。

dim x as integer '你可以把x引用到本窗体内的任意处

private sub command1_click()

x=val(text1)

end sub

2：文本框中可能还有别的字符，如"ada"之类的，提取出文本中的数字

一楼的即可

这个几乎不可能，比如1259，该如何判断？是1259？还是1259，？要么129？

一般的做法是不同数据之间用空格隔开，然后按空格切割到数组里面去，再检查是否有连续的数组再调整。