曲径通幽论坛

 找回密码
 立即注册
搜索
查看: 2511|回复: 0
打印 上一主题 下一主题

自定义子程序的方法

[复制链接]

716

主题

734

帖子

2946

积分

超级版主

Rank: 9Rank: 9Rank: 9

积分
2946
跳转到指定楼层
楼主
发表于 2013-4-4 11:28:40 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
自定义子程序的方法依下面的形式:
sub sub_name(参数)
子函数体
end sub
子程序和函数的区别在于:子程序是一个没有返回值的函数。

测试代码
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<[email=%@LANGUAGE=]%@LANGUAGE="VBSCRIPT[/email]" CODEPAGE="65001" %>
<%
sub CountN(n)
dim c

for i = 1 to n
  c = c + i
next
response.Write("result: " & c & "<br />")
end sub
call CountN(5)
countN 6
%>
</body>
</html>
运行结果:
result: 15
result: 21
在上面的程序中,使用了两种调用子程序的方法,一种是带 call 关键字的;一种是不带 call 的,不带 call 的。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|曲径通幽 ( 琼ICP备11001422号-1|公安备案:46900502000207 )

GMT+8, 2025-6-17 23:23 , Processed in 0.058574 second(s), 22 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表