VBS For Next循環(huán)的陷阱分享

2019-10-26 18:05:55

字體：大中小

供稿：網(wǎng)友

昨天寫《QWERTY密碼：加密與解密》的時(shí)候，為了得到26個(gè)字母的字符串，寫了這樣一個(gè) For Next 循環(huán)：
復(fù)制代碼代碼如下:

'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25)
s = s & Chr(i)
Next
WScript.Echo s

運(yùn)行后卻發(fā)現(xiàn)沒(méi)有字符串輸出，覺(jué)得很奇怪，于是簡(jiǎn)單修改了一下：
復(fù)制代碼代碼如下:

'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25)
WScript.Echo Chr(i)
s = s & Chr(i)
Next
WScript.Echo s

仍然沒(méi)有任何輸出，說(shuō)明 For Next 循環(huán)中的語(yǔ)句根本就沒(méi)有執(zhí)行，百思不得其解，于是請(qǐng)教了一下預(yù)言家晚報(bào)，他很快就發(fā)現(xiàn)了陷阱所在：
復(fù)制代碼代碼如下:

'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25) Step -1
WScript.Echo Chr(i)
s = s & Chr(i)
Next
WScript.Echo s

這次種終于有輸出了，相信聰明的你也一定發(fā)現(xiàn)了陷阱在哪里。For Next 循環(huán)的求值順序并不是按照從左到右的，表達(dá)式 (i + 25) 在 i = 65 之前就已經(jīng)求值了，而此時(shí) i 的值是默認(rèn)的0，所以原循環(huán)相當(dāng)于：
復(fù)制代碼代碼如下:

'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To 25
s = s & Chr(i)
Next
WScript.Echo s

當(dāng)然不會(huì)有輸出，最后我把程序改成了這樣：
復(fù)制代碼代碼如下:

'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = Asc("A") To Asc("Z")
s = s & Chr(i)
Next
WScript.Echo s

既直截了當(dāng)，又不會(huì)碰到 For Next 陷阱。