Question

VB,在text1中有四位数,如何在text2,text3,text4,text5中分别显示这个四人数？

例如：
text1中显示为1999
那么在text2中显示1、在text3中显示9、在text4中显示9、在text5中显示9
如何办？

Answer 1

Private Sub Text1_Change()
If Len(Text1.Text) <> 4 Then Exit Sub
Text2.Text = Mid(Text1.Text, 1, 1)
Text3.Text = Mid(Text1.Text, 2, 1)
Text4.Text = Mid(Text1.Text, 3, 1)
Text5.Text = Mid(Text1.Text, 4, 1)
End Sub