老九门同人之若缘:谁能用VB编写一个字符窜程序使其交换位置,如"renner"变成"nerren"!!!
来源:百度文库 编辑:高考问答 时间:2024/05/15 11:07:32
谁能用VB编写一个字符窜程序使其交换位置,如"renner"变成"nerren"!!!
运算一定要快!!
运算一定要快!!
function abc(byval s as string)as string
SL=len(s)
abc=left(s,SL\2) & right(s,SL-SL\2)
end function
a=abc("renner")
结果 a="nerren"
这样函数的适应性比楼上的强
function abc(a,b)
abc=right(a,b,len(a)-b+1)&left(a,1,b-1)
end function
简单,
a="renner"
a=abc(a,4)
结果a="nerren"