急求！！！！！！！！简易VB编程

来源：百度知道 编辑：UC知道 时间：2024/05/31 23:09:43
实现：将输入的字符串前半部分和后半部分对称交换位置；例如，原字符串“ABCDE”，对称交换后的字符串为“DECAB”。提示：首先根据字符串的长度将字符串分为前、中、后三个部分，使用字符串函数进行截取三部分字符串，并将其重新排放，最后将结果显示在新字符串文本框。写出程序清单和窗体的设置
是要实现将输入的字符串前半部分和后半部分对称交换位置；不是交换ABCDE的位置

我已经测试成功,非常正确!!随便你怎么测试,我已经给你标上了详细的注释..

两个text文本框 text1是输入的字串,text2是输出的颠倒的字串.还有一个command.
command下的代码是:

Private Sub Command1_Click()
Dim BeginStr As String, MiddleStr As String, EndStr As String
Dim L As Long, Str As String, s() As String
L = Len(Text1.Text) '检测字串的位数
If (L Mod 2) = 0 Then '如果是偶数位的字串
'如果是偶数位就将中间的字串定位2位
Str = Mid(Text1.Text, (L / 2), 2)
s = Split(Text1.Text, Str)
Text2.Text = s(1) & Str & s(0) '将数据颠倒重组
Else '如果是奇数位的字串
'如果是奇数位的字串中间的字串肯定就是1位了
Str = Mid(Text1.Text, (L + 1) / 2, 1)
s = Split(Text1.Text, Str)
Text2.Text = s(1) & Str & s(0) '将数据颠倒重组
End If
End Sub

'两个TEXT
Private Sub Form_Click()
Dim s As String, l As String, m As String, r As String
Dim ll As Long, ml As Long
s = Text1.Text
ml = Int(Len(s) / 3)
ll = (Len(s) - ml) / 2
l = Left(s, ll)
m = Mid(s, ll + 1, Le