VBScript 程序

实例

子程序

这个子程序不会返回值。 

  1. <html>
  3. <head>
  4. <script type="text/vbscript">
  5. sub mySub()
  6.   msgbox("这是一段子程序。")
  7. end sub
  8. </script>
  9. </head>
  11. <body>
  12. <script type="text/vbscript">
  13. call mySub()
  14. </script>
  15. <p>子程序不返回结果。</p>
  16. </body>
  17. </html>

函数程序

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

  1. <html>
  3. <head>
  4. <script type="text/vbscript">
  5. function myFunction()
  6.  myFunction = "蓝色"
  7. end function
  8. </script>
  9. </head>
  11. <body>
  12. <script type="text/vbscript">
  13. document.write("我喜欢的颜色是：" & myFunction())
  14. </script>
  15. <p>函数程序可返回结果。</p>
  16. </body>
  18. </html>

VBScript 程序

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

子程序：

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

函数程序：

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

调用子程序或函数程序

可以这样调用某个函数：

  1. name = findname()

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

或者可以这样做：

  1. msgbox "Your name is " & findname()

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

可以这样调用子程序：

  1. Call MyProc(argument)

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

  1. MyProc argument