Question

text1中有一个字符串"fds657",要把这几个字母逐个显示出来, 然后在赋值给text2,请问怎么写啊

比如
text1.text=asd123
把这几个字母逐个显示出来 label1.caption=a label2.caption=s label3.caption=d label4.caption=1 label5.caption=2 label6.caption=3
然后在赋值给text2
text2.text=asd123
注意text2.text不要直接等于text1.text

Answer 1

可以将字母逐个存入数组。
主要用到数组和循环。
很简单

Answer 2

Text1.Text = "asd123"
Label1.Caption = Left(Text1.Text, 1)
Label2.Caption = Mid(Text1.Text, 2, 1)
Label3.Caption = Mid(Text1.Text, 3, 1)
Label4.Caption = Mid(Text1.Text, 4, 1)
Label5.Caption = Mid(Text1.Text, 5, 1)
Label6.Caption = Right(Text1.Text, 1)
Text2.Text = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption &Label5.Caption

Answer 3

Dim STR As String
STR = Text1.Text
Label1.Caption = Left("asd123", 1)
Label2.Caption = Left("asd123", 2)
Label3.Caption = Left("asd123", 3)
Label4.Caption = Left("asd123", 4)
Label5.Caption = Left("asd123", 5)
Label6.Caption = Left("asd123", 6)
Text2.Text = STR
已经试运行过

Answer 4

取左边n个字符是left("abcd",n)
右边就是right("abcd",n)
从第p个开始取n个字符 就是mid("abcd"p,n)
基本就是这样啦