VBS For Next循環(huán)的陷阱分享
更新時間：2013年01月14日 00:06:55 作者：
在《VBS For Next循環(huán)的一些細節(jié)》中說到了 For Next 循環(huán)的控制變量僅僅在循環(huán)開始前求值一次，但是其中存在一處陷阱
昨天寫《QWERTY密碼：加密與解密》的時候，為了得到26個字母的字符串，寫了這樣一個 For Next 循環(huán)：
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25)
s = s & Chr(i)
Next
WScript.Echo s
運行后卻發(fā)現(xiàn)沒有字符串輸出，覺得很奇怪，于是簡單修改了一下：
'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
仍然沒有任何輸出，說明 For Next 循環(huán)中的語句根本就沒有執(zhí)行，百思不得其解，于是請教了一下預(yù)言家晚報，他很快就發(fā)現(xiàn)了陷阱所在：
'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)的求值順序并不是按照從左到右的，表達式 (i + 25) 在 i = 65 之前就已經(jīng)求值了，而此時 i 的值是默認的0，所以原循環(huán)相當(dāng)于：
'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)然不會有輸出，最后我把程序改成了這樣：
'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)，又不會碰到 For Next 陷阱。
復(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
運行后卻發(fā)現(xià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
仍然沒有任何輸出，說明 For Next 循環(huán)中的語句根本就沒有執(zhí)行，百思不得其解，于是請教了一下預(yù)言家晚報，他很快就發(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)的求值順序并不是按照從左到右的，表達式 (i + 25) 在 i = 65 之前就已經(jīng)求值了，而此時 i 的值是默認的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)然不會有輸出，最后我把程序改成了這樣：
復(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)，又不會碰到 For Next 陷阱。
您可能感興趣的文章:
相關(guān)文章
VBS教程：語句-While...Wend 語句...2006-11-11
VBS教程：屬性-DriveLetter 屬性...2006-11-11
VBS教程：屬性-SubFolders 屬性...2006-11-11
2008-01-01
用VBScript批量安裝網(wǎng)絡(luò)打印機和設(shè)置默認打印機
假如你有幾十臺機器，幾臺打印機，共享網(wǎng)絡(luò)上有網(wǎng)絡(luò)打印機的安裝驅(qū)動，可是每臺電腦都點擊幾次驅(qū)動十分麻煩，本人做了個VBS，這樣就方便多了，拿來和大家分享，不足之處請見諒！2009-03-03
VBS調(diào)用WMI遍歷搜索硬盤文件并計數(shù)的方法
這篇文章主要介紹了VBS調(diào)用WMI遍歷搜索硬盤文件并計數(shù)的方法,需要的朋友可以參考下2016-10-10
VBS教程：函數(shù)-FormatPercent 函數(shù)
VBS教程：函數(shù)-FormatPercent 函數(shù)...2006-11-11
NYboy.vbs病毒源代碼公布，我來模擬熊貓燒香...2007-03-03
這篇文章主要介紹了通過VBS 提取狗狗影視中的ED2K連接，需要的朋友可以參考下2013-07-07
查看或修改Windows系列系統(tǒng)的序列號的vbs
查看或修改Windows系列系統(tǒng)的序列號（包括：2000,xp,2003），支持命令行2008-06-06