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