- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第四章 过程.ppt
第四章 过程 过程 过程是程序中可以重复执行的一段代码。过程包含在一个声明语句和一个 End 语句之间 三种类型 Sub 过程(包含事件 Sub 过程) Function 过程 Property 过程 可以重用代码 声明时默认为公有类型 创建 Sub 过程 创建 Function 过程 在过程中声明参数 传递给过程的值称为参数 使用 ByVal 和 ByRef 传递参数 ByVal:被调函数不能改变变量的值 ByRef:被调函数可使用参数向调用函数返回新的值 特例:在调用代码中,即使通过引用传递,不可变参数也永远不会被修改,被调函数只能修改它的拷贝 VB .NET 默认采用 ByVal 来传递参数 语法和示例 使用可选参数 声明可选参数 必须指定所有可选参数的缺省值 可选参数的缺省值必须是常数表达式 过程的定义中,可选参数后面的每个参数也必须是可选的 语法 代码的可复用性 在模块中创建函数 第四章 过程 使用过程 使用 Sub 过程 使用 Function 过程 向过程传递数组 创建 Sub Main 使用 Sub 过程 通过引用传递参数 使用 Function 过程 调用函数 函数的调用可以放在赋值语句的右面或是表达式中 在表达式中调用函数 : 函数返回值的使用 向过程传递数组 传递数组 声明参数数组 使用参数数组调用过程 创建 Sub Main Sub Main:应用程序启动对象 Application.Run:开始应用程序 Application.Exit:退出应用程序 创建 Sub Main 过程 函数应用 1.求1到5的阶乘之和。 过程 函数应用 编写求整数累加和的过程。Test1通用过程是按值传递参数,Test2是按引用传递参数,试分析输出结果。 过程 函数应用 要求:创建两个过程,第一个过程有一个引用型参数,第二个过程将调用第一个过程并通过引用传递值。 步骤: 1.创建用户界面 (1)新建一个项目,项目名为ByRefTest,且保存在实验文件夹正气Mod04\ByRefTest文件夹。 (2)在设计视图中打开Form1。 (3)在窗体上添加一个文本框Text1和一个命令按钮控件Button1。 2.创建含有一个接受引用型参数的过程 (1)打开Form1的代码编辑器。 (2)创建过程Hello,该过程有一个名为Name的String参数,该参 数通过引用传递值,利用消息框显示调用过程传来的值,在过程内部将Name变量的值改为LiMing,再一次在消息框中显示Name的新值。代码如下: 3.调用过程并传递参数 为事件Button1_Click添加事件处理程序,在该事件处理程序中,调 用过程Hello,将TextBox1的Text属性作为参数来传递,代码如下 Debug and Deploy 编写代码 数据访问 使用 Visual Studio .NET 调试和部署 创建用户界面 定义 创建 Sub 过程 创建 Function 过程 在过程中声明参数 使用可选参数 代码的可复用性 过程的创建 Private Sub AboutHelp( ) MessageBox.Show(MyProgram V1.0, MyProgram Help) End Sub [accessibility] Sub subname[(argumentlist)] ′在此输入过程代码 End Sub 示例 Sub 过程执行操作,但是不向调用它的过程返回值 Public Function DoubleTheValue(ByVal J As Double) As _ Double . . . Return J*2 . . . End Function [accessibility] Function name[(argumentlist)] As datatype ′在这里输入函数体语句返回语句 End Function 示例 Function 过程执行操作并且可以向其调用程序返回值 ([ByVal|ByRef] argumentname As datatype) (ByVal Name As String) Function Add (ByVal value1 As Integer, ByVal value2 As _ Integer, Optional ByVal value3 As Integer = 0) As Integer (Optional [ByVal|ByRef] argumentname As datatype = defaultvalue) 示例 [Public|F
文档评论(0)