​x
 
<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>
​