VB期末考试题啊，大虾帮忙！4
发布网友
发布时间：2023-10-24 03:42
共1个回答
热心网友
时间：2024-12-12 17:26
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
这样就可以了,我验证过了
