asp 12345每天显示一个数,每轮递减1、2、3、4、5这五个数每天显示依次一个数然后下一轮依次递减显示第一个数2、3、4、5、13、4、5、1、24、5、1、2、35、1、2、3、41、2、3、4、5……这样的循环
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/18 19:10:51
asp 12345每天显示一个数,每轮递减1、2、3、4、5这五个数每天显示依次一个数然后下一轮依次递减显示第一个数2、3、4、5、13、4、5、1、24、5、1、2、35、1、2、3、41、2、3、4、5……这样的循环
asp 12345每天显示一个数,每轮递减
1、2、3、4、5这五个数每天显示依次一个数
然后下一轮依次递减显示第一个数
2、3、4、5、1
3、4、5、1、2
4、5、1、2、3
5、1、2、3、4
1、2、3、4、5
……
这样的循环代码应该怎么写?请高手帮忙,谢谢
可不可以把代码写全了?我做了一下,没有成功呀
asp 12345每天显示一个数,每轮递减1、2、3、4、5这五个数每天显示依次一个数然后下一轮依次递减显示第一个数2、3、4、5、13、4、5、1、24、5、1、2、35、1、2、3、41、2、3、4、5……这样的循环
第一步:s=replace(s,"12345","¥")
第二步:s=replace(s,"¥6","123456")
第三步:s=replace(s,"¥","")
意思就是,先把12345替换成¥(或别的不常用字符串),这样的话,12345变成了¥而12345678变成了¥678;然后把¥6替换成123456,这样的话,¥678变回成了12345678,而¥没变;最后再把¥换没.
如果你的s里有¥这个字符,你可以先将¥替换成$,回头再将$替换回¥就不影响¥的使用了.
如果要推广,只需要加入一个循环
for i=0 to 5
reS=""
for j=i to i+4
reS=reS & j
next
'这样就生成了一个要替换的5个连续数字组成的字符串,然后再套用上面的办法,不过要注意的是,reS=56789时有一点小差异
s=replace(s,reS,"¥")
if i<>5 then
s=replace(s,"¥"&(i+5),reS&(i+1))
else
s=replace(s,(i-1)&"¥",(i-1)&reS)
end if
s=replace(s,"¥","")
next
以此类推,大概原理就是这样,就不细说了.