【文章內(nèi)容簡(jiǎn)介】 ext ? % ? m可為負(fù)值，當(dāng) m為負(fù)值時(shí)，表示循環(huán)量依次遞減。 ? 在循環(huán)體內(nèi)，可使用 Exit For語(yǔ)句強(qiáng)行退出。 ? 程序清單 ? html ? head ? titleFor...Next循環(huán)示例 /title ? /head ? body ? % ? 39。定義循環(huán)變量 ? Dim i ? 39。定義用來(lái)表示當(dāng)前年、月、日的變量 ? Dim CurYear,CurMonth,CurDay ? ? 39。求取當(dāng)前年、月、日 ? CurYear=Year(Date) ? CurMonth=Month(Date) ? CurDay=Day(Date) ? % ? form method=post action= ? p請(qǐng)選擇查詢?nèi)掌冢? ? select name=Year size=1 ? % ? For i = 1998 To 2022 ? % ? option % If i = CurYear Then selected %% = i %/option ? % ? Next ? % ? /select ? 年 ? select name=Month size=1 ? % ? For i = 1 To 12 ? % ? option % If i = CurMonth Then selected %% = i %/option ? % ? Next ? % ? /select ? 月 ? select name=Day size=1 ? % ? For i = 1 To 31 ? % ? option % If i = CurDay Then selected %% = i %/option ? % ? Next ? % ? /select ? 日 ? p ? input type=submit value=提交 name=btnSubmit ? input type=reset value=重置 name=btnReset ? /form ? /body ? /html ? 程序清單 ? html ? head ? title /title ? /head ? body ? % ? 你所選擇的日期為：amp。request(year)amp。年 amp。 _ ? request(month)amp。月 amp。request(day)amp。日 ? % ? /body ? /html ? （ 3） 使用 For Each...Next循環(huán) ? For Each...Next循環(huán)與 For...Next循環(huán)類似。For Each...Next不是將語(yǔ)句運(yùn)行指定的次數(shù)，而是對(duì)于數(shù)組中的每個(gè)元素或?qū)ο蠹现械拿恳豁?xiàng)重復(fù)一組語(yǔ)句。這在不知道集合中元素的數(shù)目時(shí)非常有用。 ? VBScript過(guò)程 ? （ 1） Sub過(guò)程 ? Sub過(guò)程其實(shí)就是包含在 Sub和 End Sub語(yǔ)句之間的一組 VBScript語(yǔ)句，它只負(fù)責(zé)完成某些操作，但不返回任何值。 Sub過(guò)程可以使用參數(shù)（可以為常量、變量或某一表達(dá)式）。如果 Sub過(guò)程不需要參數(shù)，仍需包含空括號(hào) ()。 ? Sub過(guò)程在客戶端腳本編程中使用較多，一般用來(lái)實(shí)現(xiàn)客戶端的動(dòng)態(tài)顯示。下面我們列舉一個(gè)小的例子來(lái)演示 Sub過(guò)程的用法。該過(guò)程由用戶單擊一個(gè)按鈕觸發(fā)，提示用戶輸入一個(gè)合法的日期格式，然后判斷該日期是星期幾，最后反饋給用戶。 ? 程序清單 ? html ? head ? titleSub過(guò)程演示 /title ? SCript language=VBScript ? Sub DayOfWeek() ? dim day1 ? dim temp ? day1 = InputBox(請(qǐng)輸入一個(gè)合法的日期，格式為 yy—mmdd,1) ? If Not IsDate(day1) Then ? MsgBox 您輸入的日期不合法，請(qǐng)重新輸入 ? Else ? temp = WeekDay(Cdate(day1)) ? Select Case temp ? Case 1 ? Tempstr=星期天 ? Case 2 ? TempStr=星期一 ? Case 3 ? TempStr=星期二 ? Case 4 ? TempStr=星期三 ? Case 5 ? TempStr=星期四 ? Case 6 ? TempStr=星期五 ? Case 7 ? TempStr=星期六 ? End Select ? MsgBox 您輸入的日期是 amp。Tempstr ? End If ? End Sub ? /script ? body ? input type=button onclick=DayOfWeek() value=日期判斷小程序 /input ? /body ? /html ? （ 2） Function過(guò)程 ? Function過(guò)程其實(shí)就是函數(shù)，是包含在Function和 End Function語(yǔ)句之間的一組VBScript語(yǔ)句。 Function過(guò)程與 Sub過(guò)程類似，但是 Function過(guò)程可以返回值。 Function過(guò)程可以使用參數(shù)（常數(shù)、變量或某一表達(dá)式）。如果 Function過(guò)程無(wú)任何參數(shù)，則Function語(yǔ)句必須包含空括號(hào) ()。 Function過(guò)程通過(guò)函數(shù)名返回一個(gè)值，這個(gè)值是在過(guò)程的語(yǔ)句中賦給函數(shù)名的。返回值的數(shù)據(jù)類型總是 Variant。 ? 程序清單 ? html ? head ? titleFunction過(guò)程實(shí)例 /title ? % ? Function DoubleNumber(number) ? DoubleNumber=number*2 ? End Function ? % ? /head ? body ? % ? Dim num1,num2 ? Num1 = 123 ? Num2 = DoubleNumber(Num1) ? Num1amp。”的兩倍是 ” amp。Num2 ? % ? /body ? /html VBScript常用函數(shù) ? 轉(zhuǎn)換函數(shù) ? （ 1） CBool函數(shù) ? CBool(Expression)返回已轉(zhuǎn)換為 Boolean子類型的 Variant，Expression是任意有效的表達(dá)式。如果 Expression是零，則返回 False；否則返回 True。如果 Expression不能解釋為數(shù)值，將發(fā)生運(yùn)行時(shí)錯(cuò)誤。 ? （ 2） CByte函數(shù) ? CByte(Expression)返回已被轉(zhuǎn)換為 Byte子類型的 Variant，Expression參數(shù)是任意有效的表達(dá)式。如果 Expression在Byte子類型可接受的范圍之外，則發(fā)生錯(cuò)誤。 ? 通常，可以使用子類型轉(zhuǎn)換函數(shù)書(shū)寫(xiě)代碼，以顯示某些操作的結(jié)果應(yīng)被表示為特定的數(shù)據(jù)類型，而不是默認(rèn)類型。例如，在出現(xiàn)貨幣、單精度、雙精度或整數(shù)運(yùn)算的情況下，使用 CByte強(qiáng)制執(zhí)行字節(jié)運(yùn)算。 ? （ 3） CCur函數(shù) ? CCur(Expression)返回已被轉(zhuǎn)換為 Currency子類型的Variant， Expression 參數(shù)是任意有效的表達(dá)式。通常，可以使用子類型數(shù)據(jù)轉(zhuǎn)換函數(shù)書(shū)寫(xiě)代碼，以顯示某些操作的結(jié)果應(yīng)當(dāng)被表達(dá)為特定的數(shù)據(jù)類型，而非默認(rèn)的數(shù)據(jù)類型。例如在整數(shù)運(yùn)算的情況下，使用 CCur函數(shù)強(qiáng)制進(jìn)行貨幣計(jì)算。 ? （ 4） CDate函數(shù) ? CDate(Date)返回已被轉(zhuǎn)換為 Date子類型的 Variant，Date參數(shù)是任意有效的日期表達(dá)式。 ? CDate識(shí)別日期文字和時(shí)間文字，以及一些在可接受的日期范圍內(nèi)的數(shù)字。在將數(shù)字轉(zhuǎn)換為日期時(shí)，數(shù)字的整數(shù)部分被轉(zhuǎn)換為日期，分?jǐn)?shù)部分被轉(zhuǎn)換為從午夜開(kāi)始計(jì)算的時(shí)間。 ? CDate根據(jù)系統(tǒng)的區(qū)域設(shè)置識(shí)別日期格式。如果數(shù)據(jù)的格式不能被日期設(shè)置識(shí)別，則不能判斷年、月、日的正確順序。另外，如果長(zhǎng)日期格式包含表示星期幾的字符串，則不能被識(shí)別。 ? （ 5） CDbl函數(shù) ? CDbl(Expression)返回已被轉(zhuǎn)換為 Double子類型的 Variant， Expression參數(shù)是任意有效的表達(dá)式。 ? 通常可以使用子類型數(shù)據(jù)轉(zhuǎn)換函數(shù)書(shū)寫(xiě)代碼，以顯示某些操作的結(jié)果應(yīng)當(dāng)被表達(dá)為特定的數(shù)據(jù)類型，而非默認(rèn)的數(shù)據(jù)類型。例如在出現(xiàn)貨幣或整數(shù)運(yùn)算的情況下，使用 CDbl或 CSng函數(shù)強(qiáng)制進(jìn)行雙精度或單精度算術(shù)運(yùn)算。 ? （ 6） CInt函數(shù) ? CInt(Expression)返回已被轉(zhuǎn)換為 Integer子類型的Variant， Expression參數(shù)是任意有效的表達(dá)式。如果 Expression在 Integer子類型可接受的范圍之外，則發(fā)生錯(cuò)誤。 ? 通?？梢允褂米宇愋娃D(zhuǎn)換函數(shù)書(shū)寫(xiě)代碼，以顯示某些操作的結(jié)果應(yīng)被表示為特定的數(shù)據(jù)類型，而不是默認(rèn)類型。例如，在出現(xiàn)貨幣、單精度或雙精度運(yùn)算的情況下，使用 CInt或 CLng強(qiáng)制執(zhí)行整數(shù)運(yùn)算。 ? 注意，當(dāng)分?jǐn)?shù)部分恰好為 ， CInt函數(shù)通常將其四舍五入為最接近的偶數(shù)。例如， 被四舍五入為 0，而 2。 ? （ 7） CLng函數(shù) ? CLng(Expression)返回已被轉(zhuǎn)換為 Long子類型的Variant， Expression參數(shù)是任意有效