题目:
输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“ABCDE”变换成“EDCBA”。请把程序补充完整。
Private Sub Command1_Click
Dim a$,i%,c$,d$
a=InputBox$(“输入仟意字符串”)
n=Lea(A)
For i=1 to______
c=Mid(a,i,1)
Mid(a,i,1)=______
______=c
Next i
Print a
End Sub
答案:
参考答案:n\B;Mid(a,n-i+A,A);Mid(a,n-i+A,A)
解析: 本题考查字符串函数的应用。过程的功能是实现字符串的逆序,基本思路是字符串的第一个字符和最后一个字符交换,第二个字符和倒数第二个字符交换…这样交换了字符串长度的一半,即可实现字符串逆序。这里利用字符串函数Mid(a,i,1)和Mid(a,n-i+1,1)可以分别取出字符串中的前而的字符和其相对应要交换的后面的字符。