中科新闻网跟特斯拉标志很像的车:谁能用VB编写一个字符窜程序使其交换位置,如"renner"变成"nerren"!!!
来源：百度文库 编辑：中科新闻网 时间：2024/05/13 02:10:27
谁能用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"