国产探花免费观看_亚洲丰满少妇自慰呻吟_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 陷阱。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 仁寿县| 金堂县| 盐津县| 紫阳县| 武胜县| 邳州市| 崇文区| 淮滨县| 舟山市| 洮南市| 柳州市| 黎川县| 栖霞市| 沧州市| 晋宁县| 巴林左旗| 台东市| 临湘市| 武汉市| 灵石县| 社旗县| 玉林市| 保亭| 合江县| 都安| 南靖县| 利辛县| 安岳县| 宽甸| 元阳县| 墨脱县| 凤冈县| 武汉市| 青神县| 黄山市| 麦盖提县| 海盐县| 衡南县| 陆良县| 临澧县| 江山市|