UC知道VB编程问题，答好了加分~~~
来源：百度知道 编辑：UC知道 时间：2024/06/29 23:35:40
将输入的字符串前半部分和后半部分对称交换位置;例如，原字符串“ABCDE”，对称交换后的字符串为“DECAB”。提示：首先根据字符的长度串分为前、中、后三个部分，使用字符串函数进行截取三部分字符串，并将其重新排放，最后将结果显示在新字符文本框中。要完整代码~~~
控件:两个text,1个command
代码:
Private Sub Command1_Click()
Dim zf, a1, a2, a3 As String
zf = Text1.Text
a1 = Left(zf, 2)
a2 = Right(zf, 2)
a3 = Mid(zf, 3, 1)
Text2.Text = a2 & a3 & a1
End Sub
Private Sub Form_Load()
Command1.Caption = "重新排序"
Text1.Text = "ABCDE"
Text2.Text = ""
End Sub
dim str,str1 as string
str="abcde"
str1 = right(str,2) & mid(str,3,1) & left(str,2)