VBScript 程序

实例

子程序

这个子程序不会返回值。

<html>

<head>
<script type="text/vbscript">
sub mySub()
  msgbox("这是一段子程序。")
end sub
</script>
</head>

<body>
<script type="text/vbscript">
call mySub()
</script>
<p>子程序不返回结果。</p>
</body>
</html>

函数程序

假如你希望返回某个值时，可以使用函数程序。

<html>

<head>
<script type="text/vbscript">
function myFunction()
 myFunction = "蓝色"
end function
</script>
</head>

<body>
<script type="text/vbscript">
document.write("我喜欢的颜色是：" & myFunction())
</script>
<p>函数程序可返回结果。</p>
</body>

</html>

VBScript 程序

我们可使用两种程序：子程序和函数程序。

子程序：

  • 是一系列的语句，被封装在 Sub 和 End Sub 语句内。
  • 可执行某些操作，但不会返回值。
  • 可带有通过程序调用来向子程序传递参数。
  • 如果没有，必须带有空的圆括号
Sub mysub()
 some statements
End Sub

Sub mysub(argument1,argument2)
 some statements
End Sub

函数程序：

  • 是一系列的语句，被封装在 Function 和 End Function 语句内。
  • 可执行某些操作并返回值。
  • 可带有通过程序调用来向其传递参数。
  • 如果没有，必须带有空的圆括号
  • 通过向函数程序名赋值的方式，可使其返回值。
Function myfunction()
 some statements
 myfunction=some value
End Function

Function myfunction(argument1,argument2)
 some statements
 myfunction=some value
End Function

调用子程序或函数程序

可以这样调用某个函数：

name = findname()

此函数名为 "findname"，函数会返回一个值，这个值会存储于变量 "name" 中。

或者可以这样做：

msgbox "Your name is " & findname()

我们通过调用了名为 "findname" 的函数，这个函数返回的值会显示在消息框中。

可以这样调用子程序：

Call MyProc(argument)

或者，也可以省略 Call 语句：

MyProc argument