关于vb.net取十的倍数的信息

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

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

成都创新互联-专业网站定制、快速模板网站建设、高性价比江源网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式江源网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖江源地区。费用合理售后完善，10余年实体公司更值得信赖。

Label1.Text = ""

Label2.Text = ""

Dim a As String = TextBox1.Text

Dim b As String = TextBox2.Text

For x = 1 To a.Length

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

If txt Like "#" Then

Label1.Text = Label1.Text txt

End If

For x = 1 To b.Length

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

If txt Like "#" Then

Label2.Text = Label2.Text txt

End If

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

Dim k() As Integer = New Integer() {1, 2, 3, 4, 5, 6}

Dim p1 As Integer

Random r = new Random();

int p1 = k(r.Next(5)) '随机出现0~5之间的数。

没有“十进制整数型表示范围”的说法，是整型或长整型类型的表示范围，每种数值类型都有常数，如Integer的最大值和最小值：Integer.MaxValue ,Integer.MinValue 。鼠标停留在这个语句上时会显示它的数值的。integer是32位的，大概有个20亿的正负值吧。

1、作验证，可用正则表达式、vb.net的自带函数（相对简单）

2、可采用排序方式

3、循环加限制条件

4 write

你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.

完整的程序如下(改动的地方见注释)

Dim bbb As String

bbb = TextBox1.Text

Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格

MsgBox(My_str)

分享标题：关于vb.net取十的倍数的信息
URL网址：http://azwzsj.com/article/dodioio.html