Question

求VB简单代码 text1 text2 text3 之间转换

求

Answer 1

你这三个字符是在1个text里还是3个text？如果一个text那么简单一句就可以实现了：
Private Sub Command1_Click()
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1) & Left(Text1.Text, 1)
End Sub
如果是3个text就用下面的，看你的标题估计是3个：
Private Sub Command1_Click()
Dim T As String
T = Text2.Text
Text2.Text = Text3.Text
Text3.Text = Text1.Text
Text1.Text = T
End Sub

Answer 2

你的效果是最左边一个字符移动至最右边，对吗？
text1=right(text1,len(text1)-1)&left(text1,1)