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

♕过程创建过程使用过程使用预定义函数♕过程的创建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)text♘♙caption要在消息框中显示的文本。♘♙buttons要在消息框的标题栏中显示的文本。♘♙MessageBoxButtons值之一，可指定在消息框中显示哪些按钮。♕创建Function过程1.3创建Function过程Function过程执行操作并且可以向其调用程序返回值[访问限定符]Functionname[(参数列表)]As数据类型′在这里输入函数体语句返回语句EndFunction示例PublicFunctionＡrea(ByValＲAsDouble)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+1EndSub♕ByRef方式PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimmyNumberAsInteger=10Count(myNumber)MessageBox.Show(myNumber)EndSubSubCount(ByRefNumberAsInteger)Number=Number+1EndSub♕使用可选参数1.5使用可选参数♘声明可选参数♙必须指定所有可选参数的缺省值可选参数的缺省值必须是常数表达式过程的定义中，可选参数后面的每个参数也必须是可选的语法♙♙♙(Optional[ByVal|ByRef]参数名As数据类型=默认值)示例FunctionAdd(ByValvalue1AsInteger,ByValvalue2As_Integer,OptionalByValvalue3AsInteger=0)AsInteger♕代码的可复用性1.6代码的可复用性类别目的示例结构创建不需要扩展而且占用内存较少的对Size和Point象为多个模块或类提供工具函数和全局数模块温度转换据需要扩展的对象，或者是需要资源清理Forms类、类的对象Button类等创建一个模块：[Public|Friend]Module...ModuleNameEndModule♕课堂练习在模块中创建函数1.7课堂练习在模块中创建函数打开新的项目在项目中添加新的模块在模块中创建一个新的函数为函数编写代码♕过程创建过程使用过程使用预定义函数♕使用过程2使用过程♘使用Sub过程使用Function过程向过程传递数组创建SubMain♘♘♘♕使用Sub过程2.1使用Sub过程PublicSubHello(ByVAsString)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,73}PassArray(scores)♘声明参数数组SubStudentScores(ByVAsString,ByVal_'StatementsforScedureParamArrayscores()AsString)EndSub♘使用参数数组调用过程StudentScores("Anne","10","26","32","15","22","16")♕创建SubMain2.7创建SubMain♘SubMain：应用程序启动对象Application.Run：开始应用程序Application.Exit：退出应用程序♘♘♕课堂练习创建SubMain2.8课堂练习创建SubMain声明变量创建SubMain过