摘要: While ... Wend其实完全与 Do While ... Loop 一样的。条件成立时循环,否则跳出。示例:<script language="VBScript"><!-- Dim ans ans = InputBox("请输入谷歌的英文") While UCase(ans)<>"GOOGLE" msg = "错误!" & "请重新输入谷歌的英文" ans = InputBox(msg) Wend MsgBox("正确!")//- 阅读全文
posted @ 2012-12-20 16:10 ChuanYue 阅读(250) 评论(0) 推荐(0) 编辑
摘要: 当结果为空时,程序的循环是如何来处理呢?以下为 Do ... Loop While和 Do ... Loop Until 两种循环式下的处理。示例1:<script language="VBScript"><!-- Dim ans Do ans = InputBox("请输入少于10的数字") If ans = "" Then Exit Do Loop While ans > 10 If ans <> "" Then MsgBox("正确!") Else Ms 阅读全文
posted @ 2012-12-20 11:16 ChuanYue 阅读(188) 评论(0) 推荐(0) 编辑