VB期末考试题啊,大虾帮忙!
text1上面有一串信息0022040506070199EE现在要把上面的信息分离出来在text1text2text3text4text5中分别显示text1显示00te...
text1上面有一串信息 00 22 0405060701 99 EE
现在要把上面的信息分离出来在text1 text2 text3 text4 text5 中分别显示
text1显示00 text2显示22 text3显示45671 text4显示99 text5显示EE
其中00 0405060701 99都是可变的,比如text1上面显示
01 22 05040302 66 EE
text1则显示01 text2显示22 text3显示5432 text4显示66 text5显示55
不想挂科,请高手帮忙
text1和text4只有2个数字 text3则是可变的都是07050404 这样的数字 要分离出来成7544显示在text3上
上面写错了 是text1上面一串信息
分离在 text2 - text6
strArr = Split(text1.text)
text1.text = strArr[0]
text2.text = strArr[1]
text3.text = Replace(strArr[2],"0","")
text4.text = strArr[3]
text5.text = strArr[4]
怎么老提示语法错误啊!!! 展开
现在要把上面的信息分离出来在text1 text2 text3 text4 text5 中分别显示
text1显示00 text2显示22 text3显示45671 text4显示99 text5显示EE
其中00 0405060701 99都是可变的,比如text1上面显示
01 22 05040302 66 EE
text1则显示01 text2显示22 text3显示5432 text4显示66 text5显示55
不想挂科,请高手帮忙
text1和text4只有2个数字 text3则是可变的都是07050404 这样的数字 要分离出来成7544显示在text3上
上面写错了 是text1上面一串信息
分离在 text2 - text6
strArr = Split(text1.text)
text1.text = strArr[0]
text2.text = strArr[1]
text3.text = Replace(strArr[2],"0","")
text4.text = strArr[3]
text5.text = strArr[4]
怎么老提示语法错误啊!!! 展开
1个回答
展开全部
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
这样就可以了,我验证过了
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
这样就可以了,我验证过了
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询