频道直达 - 专题 - 新闻 - 技巧 - 组网 - 开发 - 安全 - web编程 - 图像 - 操作系统 - 数据库 - 教育 - 旅游 - 健康 - 时尚 - 驱动 - 软件 - 游戏 - 多媒体 - ERP - 讨论组

3.6.1 Sub子程序

来源:机械工业出版社 作者:郑阿奇 出处:巧巧读书 2007-04-08 进入讨论组

1. Sub子程序定义

语法:

[Private|Public] Sub 子程序名(参数表)

语句块

[Exit Sub | Return]

语句块

End Sub

其中:

*Sub,End Sub是子程序的开始和结束标志。


参数表是调用该子程序时需进行传递的参数说明,有关参数格式和传递请见3.6.4节。

*子程序名遵循标识符命名规则。

*Private|Public说明了子程序的访问控制类型,默认为Public。

*Exit Sub/Return允许中途强制退出子程序。

例如,以下Add子程序求出两个参数a和b之和并输出:

Sub Add(ByVal a As Integer, ByVal b As Integer)

Dim c As Integer

c = a+b

Response.Write("c=" & c)

En Sub

2. 调用Sub子程序

调用Sub子程序有两种格式,使用Call或直接通过子程序名进行调用。

语法:

[Call] 子程序名[(参数表)]

其中,参数表为实在参数表,参数个数和数据类型必须与形式参数表相一致。关键字Call可以省略。例如,可使用以下任一种格式对Add子程序进行调用:

Call Add(10,20)

Add(10,20)

注意,当Sub子程序没有参数时,子程序名之后的一对括号必须省略。

【例3.7】 改写例3.1,将显示当前时间的操作设计为子程序Display,再使用“Call Display”语句对其进行调用。

源代码如下(Ex3-7.aspx):

<%@ Page Language="vb"%>

<Script Language="VB" Runat="Server">

Sub Display

Dim CurrTime

CurrTime = Now

Response.Write( "现在时间是:<Br>" ) 

Response.Write( CurrTime )

End Sub

</Script>

<Html><Body BgColor="beige"><Br><Br>

<Center><Font Color="Red" Size=7 Face="隶书">

<%  Call Display  %>

</Font></Center>

</Body></Html>
保留:: http://www.qqread.com/aspdotnet/z307752.html进入讨论组讨论。
收藏此文】【 】【打印】【关闭
较早的文章:3.6 过程

较新的文章:3.6.2 参数传递
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
巧巧读书宗旨
相关专题
讨论组问题推荐
站内各频道最新更新文档
站内最新制作专题
热门关键字导读
Photoshop教 程照片处理 照片制作 PS快捷键 抠图
计 算 机 故 障XP系统修复
艺 术 与 设 计设计 流媒体 设计欣赏 边框
计 算 机 安 全ARP
站内频道文章精选
巧巧电脑频道编辑信箱  告诉我们您想看的专题或文章