Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strArr() As String
strArr = Split(TextBox1.Text)
TextBox2.Text = strArr(0)
TextBox3.Text = strArr(1)
TextBox4.Text = Replace(strArr(2), "0", "")
TextBox5.Text = strArr(3)
TextBox6.Text = strArr(4)
End Sub
End Class
这样就可以了,我验证过了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024