Visual-Basic-程序设计课程过程的创建.pptx

过程创建过程使用过程使用预定义函数过程的创建1过程的创建定义创建Sub过程创建Function过程在过程中声明参数使用可选参数代码的可复用性过程1.1过程过程是程序中可以重复执行的一段代码。过程包含在一个声明语句和一个End语句之间三种类型Sub过程（包含事件Sub过程）Function过程Property过程可以重用代码声明时默认为公有类型创建Sub过程1.2创建Sub过程Sub过程执行操作，但是不向调用它的过程返回值访问限定符Sub过程名(参数列表)在此输入过程代码EndSub示例PrivateSubAboutHelp()MessageBox.Show(“我的第一个应用程序个应用程序V1.0,我的第一Help)EndSub例如：MessageBox.Show用法:MessageBox.Show(text,caption,buttons)textcaption要在消息框中显示的文本。buttons要在消息框的标题栏中显示的文本。MessageBoxButtons值之一，可指定在消息框中显示哪些按钮。创建Function过程1.3创建Function过程Function过程执行操作并且可以向其调用程序返回值访问限定符Functionname(参数列表)As数据类型在这里输入函数体语句返回语句EndFunction示例PublicFunctionrea(ByValAsDouble)AsDouble.Return*.或rea*EndFunction.在过程中声明参数1.4在过程中声明参数传递给过程的值称为参数使用ByVal和ByRef传递参数ByVal：被调函数不能改变变量的值ByRef：被调函数可使用参数向调用函数返回新的值VB.NET默认采用ByVal来传递参数语法和示例(ByVal|ByRef参数名Asdatatype)(ByValNameAsString)例如：ByVal方式PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimmyNumberAsInteger=10Count(myNumber)MessageBox.Show(myNumber)EndSubSubCount(ByValNumberAsInteger)Number=Number+1EndSubByRef方式PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimmyNumberAsInteger=10Count(myNumber)MessageBox.Show(myNumber)EndSubSubCount(ByRefNumberAsInteger)Number=Number+1EndSub使用可选参数1.5使用可选参数声明可选参数必须指定所有可选参数的缺省值可选参数的缺省值必须是常数表达式过程的定义中，可选参数后面的每个参数也必须是可选的语法(OptionalByVal|ByRef参数名As数据类型=默认值)示例FunctionAdd(ByValvalue1AsInteger,ByValvalue2As_Integer,OptionalByValvalue3AsInteger=0)AsInteger代码的可复用性1.6代码的可复用性类别目的示例结构创建不需要扩展而且占用内存较少的对Size和Point象为多个模块或类提供工具函数和全局数模块温度转换据需要扩展的对象，或者是需要资源清理Forms类、类的对象Button类等创建一个模块：Public|FriendModule.ModuleNameEndModule课堂练习在模块中创建函数1.7课堂练习在模块中创建函数打开新的项目在项目中添加新的模块在模块中创建一个新的函数为函数编写代码过程创建过程使用过程使用预定义函数使用过程2使用过程使用Sub过程使用Function过程向过程传递数组创建SubMain使用Sub过程2.1使用Sub过程PublicSubHello(ByValnameAsString)MessageBox.Show(Hello&name)EndSubSubTest()Hello(“北京!)EndSub课堂练习通过引用传递参数2.2课堂练习通过引用传递参数打开新的项目创建用户界面创建含有一个引用型参数的过程调用过程并传递参数使用Function过程2.3使用Function过程调用函数函数的调用可以放在赋值语句的右面或是表达式中DimcelsiusTemperatureAsSinglecelsiusTemperature=FtoC(80)在表达式中调用函数：IfFtoC(userValue)0Then.EndIf版本差异2.4版本差异传给过程的参数必须放在圆括号中OptionStrict设置课堂练习函数返回值的使用2.5课堂练习函数返回值的使用创建用户界面为应用程序编写代码向过程传递数组2.6向过程传递数组传递数组SubPassArray(ByValtestScoresAsInteger()EndSub.Dimscores()AsInteger=80,92,73PassArray(scores)声明参数数组SubStudentScores(ByValnameAsString,ByVal_StatementsforSubprocedureParamArrayscores()AsString)EndSub使用参数数组调用过程StudentScores(Anne,10,26,32,15,22,16)创建SubMain2.7创建SubMainSubMain：应用程序启动对象Application.Run：开始应用程序Application.Exit：退出应用程序课堂练习创建SubMain2.8课堂练习创建SubMain声明变量创建SubMain过程为Selection窗体编写代码编写代码退出应用程序测试应用程序小结学习完本章后，能够区分Sub过程和Function过程创建与调用Sub过程和Function过程为模块编写过程，以实现代码重用分别通过值和引用来传递参数实验1创建和使用过程练习1在模块中创建函数练习2使用主窗体