Utasítások, vezérlési szerkezetek
Értékadás, üres utasítás
Az értékadás bal oldalán balérték, jobb oldalán jobbérték szerepelhet.
Dim Gyumolcs = "Alma"
Dim x = 42
Szekvencia
Utasítások sorozata. Egymás alá írhatjuk az utasításokat.
Elágazás
If
Szokásos if szerkezetek:
If...Then...Else
If i=10 Then
msgbox "Hello"
Else
msgbox "Szia"
End If
If...Then...Elseif...
If i=0 Then
msgbox "Jó reggelt!"
Elseif i=1 Then
msgbox "Jó napot!"
Else
msgbox "Jó estét! "
End If
Select Case
Jelen példánkban a d egy kifejezés lehet. Csak egyszer, a select elején fog kiértékelődni. Ha egyik érték sem felel meg neki, akkor megadhatunk egy default ágat (case else).
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
Ciklus
Többféle ciklus is létezik VBScript-ben:
- Do...Loop – hátul tesztelő, nem ismert lépésszámú ciklus
- While...Wend – elől tesztelő, nem ismert lépésszámú ciklus
- For...Next - elől tesztelő, ismert lépésszámú ciklus
- For Each...Next
Sub ChkFirstWhile()
Dim counter, myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "The loop made " & counter & " repetitions."
End Sub
és egy másik példa
Sub ChkLastWhile()
Dim counter, myNum
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox "The loop made " & counter & " repetitions."
End Sub