国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS For Next循環的陷阱分享

2020-07-26 11:49:08
字體:
來源:轉載
供稿:網友
昨天寫《QWERTY密碼:加密與解密》的時候,為了得到26個字母的字符串,寫了這樣一個 For Next 循環:
復制代碼 代碼如下:

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

運行后卻發現沒有字符串輸出,覺得很奇怪,于是簡單修改了一下:
復制代碼 代碼如下:

'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 循環中的語句根本就沒有執行,百思不得其解,于是請教了一下預言家晚報,他很快就發現了陷阱所在:
復制代碼 代碼如下:

'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

這次種終于有輸出了,相信聰明的你也一定發現了陷阱在哪里。For Next 循環的求值順序并不是按照從左到右的,表達式 (i + 25) 在 i = 65 之前就已經求值了,而此時 i 的值是默認的0,所以原循環相當于:
復制代碼 代碼如下:

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

當然不會有輸出,最后我把程序改成了這樣:
復制代碼 代碼如下:

'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

既直截了當,又不會碰到 For Next 陷阱。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 会泽县| 文山县| 长海县| 马山县| 佳木斯市| 浦江县| 满洲里市| 观塘区| 六枝特区| 滦平县| 沐川县| 甘德县| 桐城市| 哈巴河县| 桦川县| 乐东| 仲巴县| 申扎县| 富阳市| 洪洞县| 岗巴县| 福州市| 邵东县| 万盛区| 茶陵县| 无锡市| 昔阳县| 永丰县| 涟源市| 清徐县| 聊城市| 自治县| 镇康县| 黄冈市| 徐闻县| 绥化市| 南陵县| 襄樊市| 资阳市| 龙江县| 万宁市|