你把替换所有非数字为空字符串,改为替换所有非数字为空格,就可以把每组数字分开了.
10年积累的成都网站制作、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有清原免费网站建设让你可以放心的选择与我们合作。
完整的程序如下(改动的地方见注释)
Dim bbb As String
bbb = TextBox1.Text
Dim My_str As String = Regex.Replace(bbb, "[^0-9]", " ") '这里把替换所有非数字为空字符串,改为替换所有非数字为空格
MsgBox(My_str)
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之间的数。
Dim a As Integer = Int(cmd.ExecuteScalar)
这句话，如果执行正确——当然，没看到你的数据库连接定义语句，不就已经取到值了吗？
你可以直接对 A 进行判断啊？不明白你的意思哦。
Dim a
a = Split(TextBox1.Text, vbCrLf)
TextBox2.Text = a(0) a(1) a(2)
在VB中运用模运算(mod)进行求余数。
对于整型数a，b来说，取模运算或者求余运算的方法都是：
1、求 整数商： c = a/b；
2、计算模或者余数： r = a - c*b。
求模运算和求余运算在第一步不同: 取余运算在取c的值时，向0 方向舍入；而取模运算在计算c的值时，向负无穷方向舍入。所谓向0方向舍入，就是以小数点为界限，直接将小数部分去掉。如（Int）-1.324=-1（亦叫截断法）；
而向负无穷方向舍入，就是最终结果比真实值更小。如（Int）-1.324=-2；（int此处是强制转换数据类型）注意c是指商。
扩展资料
通常情况下取模运算(mod)和求余(rem)运算被混为一谈，因为在大多数的编程语言里，都用’%’符号表示取模或者求余运算。在这里要提醒大家要十分注意当前环境下’%’运算符的具体意义，因为在有负数存在的情况下，两者的结果是不一样的。
求模运算和求余运算在第一步不同: 取模求余运算在取c的值时，向0 方向舍入(fix()函数)；注：fix()函数是MATLAB中的一种取整函数、截断函数，直接截取数字的整数部分。而求余取模运算在计算c的值时，向无穷小方向舍入(floor()函数)。
注：floor()函数为向下取整的函数。
源代码如下：（代码写在按钮点击事件里）
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
Next
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
Next
此方法用的是mid 将一个字符串拆分成单个字符，然后用like运算符进行对比是否为数字，关于这两个函数的用法如果不懂的可以自己搜索下，此外还有别的方法，这里就不多说了
