*
我会反说话，你不要孬
举报
发布于：2024-12-04
更新于：2024-12-04
0
30
作品介绍:
Sub hwy ( ) For j = 1 To 15 a = Cells(j, 1) n = Len(a) For i = 1 To Int(n / 2) c = Mid(a, i, 1) Mid(a, i, 1) = Mid(a, n - i + 1, 1) Mid(a, n - i + 1, 1) = c Next i Cells(j, 2) = a Next j End Sub
操作说明:
输入一句话，点击后得到相反的话