Private Sub Command1_Click() s = "ABBACDDCAB" For i = 6 To 2 Step -2 'i 从 6 循环到 2 递减2 也就是I值依次等于 6 4 2 x = Mid(s, i, i) 'i值不同 取值就不同 mid("字符串","从第x位开始截取字符","截取Y个字符串") y = Left(s, i) '截取字符串S从左边开始i个字符 z = Right(s, i) '从右边开始算I个字符 z = x & y & z '连接3个变量字符串 Next i 'z变量每次循环都被重置为right(s,i) 所以只需要看最后一次循环的结果 'x = Mid(s, 2, 2) 等于 BB 'y=left(s...
|
