VB小小小问题

举例：在Text5中输入“天”，然后按回车，Text1中就会出现“天”，

Text5中文字自动清空，Text1中文字保留。

继续在Text5中输入“上”，然后按回车，Text2中就会出现“上”，

Text5中文字自动清空，Text2中文字保留。

继续在Text5中输入“人”，然后按回车，Text3中就会出现“人”，

Text5中文字自动清空，Text3中文字保留。

继续在Text5中输入“间”，然后按回车，Text4中就会出现“间”。

要如何实现呢？？

请一步一步教我

最好加我QQ416368631

教会了就送瑞星两年序列号一个

已经加了,一会写给你

Dim a As Integer

Private Sub Form_Load() a = 1 End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If a = 1 Then Text1.Text = Text5.Text End If If a = 2 Then Text2.Text = Text5.Text End If If a = 3 Then Text3.Text = Text5.Text End If If a = 4 Then Text4.Text = Text5.Text End If a = a + 1 Text5.Text = "" End If End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息