Const <<constant_name>> As <<constant_type>>=<<constant_value>>
Private Sub ConstantDemo()Const MyInteger As Integer =720Const myDate As Date =#10/21/2000#Const myDay As String ="Sunday"MsgBox ("整數(shù)值是："& MyInteger & Chr(10)&"myDate的值是："& myDate & Chr(10)&"myDay 的值是："& myDay)
3.程序
VB可使用兩種程序：
子程序
函數(shù)程序
子程序：是一系列的語句，被封裝在 Sub 和 End Sub 語句內(nèi)
可執(zhí)行某些操作，但不會(huì)返回值
可帶有參數(shù)
Sub mysub()
some statements
End Sub
或者Sub mysub(argument1,argument2)
some statements
End Sub
函數(shù)程序是一系列的語句，被封裝在 Function 和 End Function 語句內(nèi)
可執(zhí)行某些操作，并會(huì)返回值
可帶有通過程序調(diào)用來向其傳遞的參數(shù)。
如果沒有參數(shù)，必須帶有空的圓括號(hào) ()
通過向函數(shù)程序名賦值的方式，可使其返回值
Function myfunction()
some statements
myfunction=some value
End Function
或者Function myfunction(argument1,argument2)
some statements
myfunction=some value
End Function
調(diào)用程序
這個(gè)簡單的函數(shù)程序被調(diào)用來計(jì)算兩個(gè)參數(shù)的和：實(shí)例（僅適用于 IE）
Function myfunction(a,b)
myfunction=a+b
End Function document.write(myfunction(5,9))函數(shù) "myfunction" 將返回參數(shù) "a" 和參數(shù) "b" 的和。這里返回的是 14。當(dāng)您調(diào)用程序時(shí)，您可以使用 Call 語句，如下所示：Call MyProc(argument)
或者，您可以省略 Call 語句，如下所示：MyProc argument
Select Case 語句 - 假如您希望選擇多套代碼之一來執(zhí)行，可以使用這個(gè)語句
If...Then...Else
在下面的情況中，您可以使用 If...Then...Else 語句：在條件為 true 時(shí)，執(zhí)行某段代碼
選擇兩段代碼之一來執(zhí)行
如果在條件為 true 時(shí)只執(zhí)行一條語句，可以把代碼寫為一行：If i=10 Then alert("Hello")
在上面的代碼中，沒有 ..Else.. 語句。我們僅僅讓代碼在條件為 true 時(shí)（當(dāng) i=10 時(shí)）執(zhí)行一項(xiàng)操作。如果在條件為 true 時(shí)執(zhí)行不止一條語句，那么就必須在一行寫一條語句，然后使用關(guān)鍵詞 "End If" 來結(jié)束這個(gè)語句：If i=10 Then
alert("Hello")
i = i+1
End If
在上面的代碼中，同樣沒有 ..Else.. 語句。我們僅僅讓代碼在條件為 true 時(shí)執(zhí)行了多項(xiàng)操作。假如您想要在條件為 true 時(shí)執(zhí)行某條語句，并在條件不為 true 時(shí)執(zhí)行另一條語句，就必須添加關(guān)鍵詞 "Else"：實(shí)例（僅適用于 IE）
<script type="text/vbscript">
i=hour(time)
If i < 10 Then
document.write("Good morning!")
Else
document.write("Have a nice day!")
End If
</script>
If...Then...ElseIf
如果您想要選擇多套代碼之一來執(zhí)行，可以使用 If...Then...ElseIf 語句：實(shí)例（僅適用于 IE）
<script type="text/vbscript">
i=hour(time)
If i = 10 Then
document.write("Just started...!")
ElseIf i = 11 Then
document.write("Hungry!")
ElseIf i = 12 Then
document.write("Ah, lunch-time!")
ElseIf i = 16 Then
document.write("Time to go home!")
Else
document.write("Unknown")
End If
</script>
Select Case
如果您想要選擇多套代碼之一來執(zhí)行，可以使用 "Select Case" 語句：實(shí)例（僅適用于 IE）
<script type="text/vbscript">
d=weekday(date)
Select Case d
Case 1
document.write("Sleepy Sunday")
Case 2
document.write("Monday again!")
Case 3
document.write("Just Tuesday!")
Case 4
document.write("Wednesday!")
Case 5
document.write("Thursday...")
Case 6
document.write("Finally Friday!")
Case else
document.write("Super Saturday!!!!")
End Select
</script>
4.2循環(huán)語句 循環(huán)語句 循環(huán)語句用于運(yùn)行相同的代碼塊指定的次數(shù)。Looping statements are used to run the same block of code a specified number of times.
在 VB 中，我們可以使用四種循環(huán)語句：
For…Next 語句 - 運(yùn)行一段代碼指定的次數(shù)
For Each…Next 語句 - 針對(duì)集合中的每個(gè)項(xiàng)目或者數(shù)組中的每個(gè)元素來運(yùn)行某段代碼
For...Next 循環(huán)
請(qǐng)使用 For...Next 語句運(yùn)行一段代碼指定的次數(shù)。For 語句規(guī)定計(jì)數(shù)變量（i）以及它的初始值和結(jié)束值。Next 語句會(huì)以 1 作為步進(jìn)值來遞增變量（i）。實(shí)例
<html>
<body><script type="text/vbscript">
For i = 0 To 5
document.write("The number is " & i & "<br />")
Next
</script></body>
</html>
Step 關(guān)鍵詞
通過 Step 關(guān)鍵詞，您可以規(guī)定計(jì)數(shù)變量遞增或遞減的步進(jìn)值。在下面的實(shí)例中，計(jì)數(shù)變量（i）每次循環(huán)的遞增步進(jìn)值為 2。For i=2 To 10 Step 2
some code
Next
如果要遞減計(jì)數(shù)變量，您就必須使用負(fù)的 Step 值。并且必須規(guī)定小于開始值的結(jié)束值。在下面的實(shí)例中，計(jì)數(shù)變量（i）每次循環(huán)的遞減步進(jìn)值為 2。For i=10 To 2 Step -2
some code
Next
退出 For...Next
您可以通過 Exit For 關(guān)鍵詞退出 For...Next 語句。For i=1 To 10
If i=5 Then Exit For
some code
Next
For Each...Next 循環(huán)
For Each...Next 針對(duì)集合中的每個(gè)項(xiàng)目或者數(shù)組中的每個(gè)元素來重復(fù)運(yùn)行某段代碼。實(shí)例
<html>
<body><script type="text/vbscript">
Dim cars(2)
cars(0)="Volvo"
cars(1)="Saab"
cars(2)="BMW"For Each x In cars
document.write(x & "<br />")
Next
</script></body>
</html>
Do...Loop
如果你不知道重復(fù)多少次，可以使用 Do...Loop 語句。Do...Loop 語句重復(fù)執(zhí)行某段代碼直到條件是 true 或條件變成 true。重復(fù)執(zhí)行代碼直到條件是 true
您可以使用 While 關(guān)鍵字來檢查 Do... Loop 語句的條件。Do While i>10
some code
Loop
如果 i 等于 9，上述循環(huán)內(nèi)的代碼將終止執(zhí)行。Do
some code
Loop While i>10
這個(gè)循環(huán)內(nèi)的代碼將被執(zhí)行至少一次，即使 i 小于 10。重復(fù)執(zhí)行代碼直到條件變成 true
您可以使用 Until 關(guān)鍵字來檢查 Do...Loop 語句的條件。Do Until i=10
some code
Loop
如果 i 等于 10，上述循環(huán)內(nèi)的代碼將終止執(zhí)行。Do
some code
Loop Until i=10
這個(gè)循環(huán)內(nèi)的代碼將被執(zhí)行至少一次，即使 i 等于 10。退出 Do...Loop
您可以通過 Exit Do 關(guān)鍵詞退出 Do...Loop 語句。Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop
這個(gè)循環(huán)內(nèi)的代碼，只要 i 不為 10 且 i 大于 10 時(shí)都將被執(zhí)行。
