VBScript/Thủ tục
< VBScript
Khai báo tên, đối số, và mã hình thành thân của thủ tục hàm Sub procedure.
Công Thức
sửa[Public [Default] | Private] Sub tên_sub [(danh_sách_đối_số)] [nhóm_lệnh] [Exit Sub] [nhóm_lệnh] End Sub
Thí Dụ
sửaDim Color, MyVar
Sub ChangeBackground (Color)
MyVar = lcase (Color)
Select Case MyVar
Case "red" document.bgColor = "red"
Case "green" document.bgColor = "green"
Case "blue" document.bgColor = "blue"
Case Else MsgBox "pick another color"
End Select
End Sub