vb 如何文本最后一位置前，及123456变成612345

来源：百度知道 编辑：UC知道 时间：2024/05/02 19:49:57
如题
Text1.Text = Mid(Text1.Text, Len(Text1.Text), 1) & Mid(Text1.Text, 1, Len(Text1.Text) - 1)
实时错误5，无效过程调用或参数

Text1 = Right(Text1, 1) & Left(Text1, Len(Text1) - 1)
'Text1不能为空
'Right从右向左取若干个字符，Left反之
'Len返回字符个数
’例如：Right("123456",1)="6"
'Len("123456")=6
'Left(123456",6-1)="12345"
'"6" & "12345"="612345"
'即最终Text1="612345"

不可能啊，我试过了。所有参数类型都正确，MID是VB内部函数啊。
'添加一个Command1
Private Sub Command1_Click()
Dim a As String
a = "123456"
a = Mid(a, Len(a), 1) & Mid(a, 1, Len(a) - 1)
MsgBox a
End Sub

text1="123456"
a=right(text1,1) & left(text1,5)
这样a就等于612345了，试试吧。

文本 TEXT?