visual basic net程序设计教程p06.pptVIP

  1. 1、本文档共56页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
visual basic net程序设计教程p06

第六章 过 程 Visual Basic.NET应用程序是由过程组成的。在设计应用程序时,除了定义常量和变量外,全部工作就是编写过程。 在Visual Basic.NET中,通过过程分为两类,即子程序过程和函数过程,前者叫做Sub过程,后者叫做Function过程。 6.1 Sub过程 6.1.1 建立Sub过程 ⒈ 定义Sub过程 通用Sub过程的结构与前面多次见过的事件过程的结构类似。一般格式如下: [Private][Public]Sub过程名[(参数表列)] 语句块 [Exit Sub] [语句块] [Return] End Sub 在Sub和End Sub之间是描述过程操作的语句块,称为“过程体”或“子程序体”。 Sub过程不能嵌套。也就是说,在Sub过程内,不能定义Sub过程或Function过程;不能用GoTo语句进入或退出一个Sub过程,只能通过调用执行Sub过程,而且可以嵌套调用。 过程可以有参数,也可以不带任何参数。没有参数的过程为无参过程。 对于无参过程,调用时只写过程名(包括括号)即可。 ⒉ 建立Sub过程 通用过程不属于任何一个事件过程,因此不能用事件过程定义。通用过程可以在窗体、模块、类或结构中建立。如果在窗体中建立通用过程,则可双击窗体进入代码窗口,在“类名”框中选择窗体名称,例如“Form1”,在“方法名称”框中选择“(Declarations)”,然后直接在窗口内键入过程名字,并按回车键。例如,键入“Sub Tryout( )”,按回车键后,窗口内显示: Sub Tryout ( ) End Sub 此时即可在两行之间键入过程代码。 6.1.2 调用Sub过程 Sub过程的调用有两种方式,一种是把过程的名字放在一个Call语句中,一种是把过程名作为一个语句来使用。 ⒈ 用Call语句调用Sub过程 格式:Call过程名[(实际参数)] 用Call语句调用一个过程时,如果过程本身没有参数,则“实际参数”可以省略,但括号不能省略;如果过程本身带有参数,则应给出相应的实际参数,并把参数放在括号中。 ⒉ 把过程名作为一个语句来使用 在调用Sub过程时,如果省略关键字Call,就成为调用Sub过程的第二种方式。与第一种方式相比,它只有一点不同,即去掉了关键字Call,例如: Tryout(a,b) 【例6-1】 编写一个计算矩形面积的Sub过程,然后调用该过程计算矩形面积。 Sub Recarea(ByVal Rlen As Single, ByVal Rwid As Single) Dim Area As Single Area = Rlen * Rwid Debug.WriteLine(Total Area is Str(Area)) End Sub Private Sub Form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A, B As Single A = InputBox(What is the length?) A = Val(A) B = InputBox(What is the width?) B = Val(B) Recarea(A, B) End Sub Sub Recarea(ByVal Rlen As Single, ByVal Rwid As Single, ByRef Area As Single) Area = Rlen * Rwid End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim A, B, C As Single A = InputBox(What is the length?) A = Val(A) B

文档评论(0)

celkhn5460 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档