VBNET过程.ppt

VBNET过程.ppt

《VBNET过程.ppt》由会员分享，可在线阅读，更多相关《VBNET过程.ppt（103页珍藏版）》请在冰豆网上搜索。

第4章过程,VB.NET程序设计实用教程,学员十一队大专区队计算机四组张海红,过程,过程,用函数过程实现的话费计算程序,四则运算测验程序,十进制到其它进制转换程序,汉诺塔问题,求复杂函数的值,本章项目,学员十一队大专区队计算机四组张海红,过程,过程,通用过程和函数过程的定义、建立与调用,过程的概念与分类,参数传递,变量的作用域与静态变量,过程的嵌套调用与递归调用,本章要点,学员十一队大专区队计算机四组张海红,过程,第一节过程的概念,过程是完成某一特定功能的一段程序，又称子程序。

使用过程的第一个原因是结构化程序设计的需要。

结构化程序设计思想最重要的一点就是把一个复杂问题分成很多小而独立的问题，即把一个大程序分为若干个小程序模块，每个模块完成一部分功能。

如图4-1所示。

对于每个模块，需详细定义模块的功能及其接口，一个程序员编制其中的一个或多个模块，并把模块编写成过程。

.过程的概念,学员十一队大专区队计算机四组张海红,过程,.过程的概念,摩块编写好后，可以把它们组装成应用程序，如把“二级子模块11”和“二级子模块12”组合在一起就实现了“一级子模块1”的功能，把“二级子模块21”和“二级子模块22”组合在一起就实现了“一级子模块2”的功能，把“一级子模块1”和“一级子模块2”组合在一起就实现了软件项目的功能。

组合子模块可以通过调用相应的过程来实现。

学员十一队大专区队计算机四组张海红,过程,.过程的概念,图4-1结构化程序设计模式,学员十一队大专区队计算机四组张海红,过程,.过程的概念,使用过程的第二个原因是为了解决代码的重复。

可以把经常用到的完成某种功能的程序段编写成过程，这样做有很多好处，例如：

每当需要完成这一功能时只要调用这个过程即可，而不需重复编写代码；如果需要修改这一段代码，只要在该过程里修改即可，而调用该过程的程序不必修改。

从本质上说，过程就是完成一定功能的程序段。

该程序段有一个名字，称为过程名。

并且为过程定义了严格的接口，对用户来说不需要了解过程功能的实现过程与语句，只需了解它的功能与接口。

若有其它程序要完成该过程的功能，可通过过程名调用它，过程可多次反复调用，但调用时必须符合过程的接口要求。

学员十一队大专区队计算机四组张海红,过程,.过程的概念,根据不同的方法，过程可以分成不同的种类。

如从使用的角度来看，可以把过程分成Sub过程、函数过程和属性过程；从定义时有无参数来分，可分为有参过程和无参过程；根据过程调用时是否有返回值来分，可分为有返回值的过程和无返回值的过程；根据过程的调用关系可分成主调过程和被调过程，所谓主调过程是指调用其它过程的过程，所谓被调过程是指被其它过程调用的过程。

在VB.NET中通常采用第一种分法，即把过程分为：

Sub过程、函数过程和属性过程，本章只介绍Sub过程和函数过程，Sub过程又可分成事件过程和通用过程。

学员十一队大专区队计算机四组张海红,过程,第二节四则运算测验程序Sub过程,一、任务4-1描述：

编写一个程序用来随机出十道两位数的“+”、“-”、“*”、“/”测验题，计算机显示每道题后等待用户输入答案，并能根据用户输入答案来判断正误并显示答题情况。

程序的设计界面如图4-2所示，程序的运行界面如图4-3所示。

程序运行时，计算机将生成一道四则运算题并显示出来（两个运算数分别显示在界面上的第一个和第二个文本框中），并等待用户在第三个和第四个文本框（专用于除法，输入余数）中输入答案，用户输入答案后按“确定”按钮，将把用户的答题情况显示在右侧的列表框中，并在题目后加上“”和“”以表示用户答题是否正确。

.2四则运算测验程序Sub过程,学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,图4-2程序运行界面,学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,图4-3某时刻程序运行界面,学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,本题的关键有两点：

一是出题，二是判断用户答案的正误。

（1）出题涉及到产生两个运算数和一个运算符号，这些均可用随机数来产生。

可以产生两个两位随机数作为运算数，产生一个1到4之间的随机整数作为运算符，设1为“+”，2为“-”，3为“*”，4为“/”。

把运算数直接显示在界面上，对于运算符，可通过分支语句进行测试，把相应的“+”、“-”、“*”、“”显示出来。

（2）通过SelectCaseEndSelect语句测试产生的运算符是何种运算符，对产生的两个运算数作相应运算得到标准答案。

从界面上获取用户输入的答案，把标准答案和用户输入的答案相比较，如果相等则用户回答正确，如果不等则用户回答不正确。

二、任务分析：

学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,另外，窗体刚显示出来的时候需要出一组题目的第一道题。

每次单击一次确定按钮都要出该组题目的下一道题。

单击“重新开始”按钮，将要出下一组的第一道题。

可见“出题”这个操作在程序的实现过程中需要多次使用，因此可把它定义成一个通用过程，在需要时直接调用即可。

学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,1启动VB.NET，新建一个项目，项目类型为“Windows应用程序”，项目的存放位置为“D:

VBTASKCH04”，项目名为“Task4_1”。

2把Form1窗体的Text属性值设置为“四则运算测验程序”，把它的Name属性值设置为“frmMaths”。

单击“解决方案资源管理器”中的“Form1.VB”窗体，然后在属性窗口中把它文件名属性设置为“frmMath.vb”。

然后执行【项目】【Task4_1属性】命令，在出现的“Task4_1属性页”对话框中把“启动对象”设置为“frmMath”。

3对照程序设计界面，为窗体添加控件并设置控件的属性。

控件的属性设置如表4-1所示。

三、任务实现:

.2四则运算测验程序Sub过程,表4-1任务4-1控件属性设置及其功能,学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,说明ListBox1为列表框控件，列表框控件用来显示一串列表项，供用户进行选择，在工具箱中的图标为“”。

4在代码窗口中定义常量和模块级数组，如下。

ConstNAsInteger=10DimNum1,Num2AsInteger题目中的两个数DimOpAsInteger存放运算符：

1为+，2为-，3为*，4为/DimStandardAsInteger存放标准答案：

“+”、“-”、“*”的结果和“/“的商DimStandardbAsInteger存放标准答案：

“/”运算的余数DimAnswerAsInteger存放用户答案：

“+”、“-”、“*”的结果和”/“的商DimAnswerbAsInteger存入用户答案：

”/“运算的余数DimQuestionAsString存入题目和答题情况DimiAsInteger存放当前题目数DimRightNum,WrongNumAsInteger存放正确的题数和错误的题数,学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,5在上述代码的后面，编写以下代码。

PrivateSubShowQuestion（）DimtAsInteger交换用的中间变量Num1=10+Rnd（）*90产生两个两位数Num2=10+Rnd（）*90Op=Int（1+Rnd（）*4）产生运算符TextBox3.Text=:

TextBox4.Text=用户输入答案的编辑框为空If（Op=4）Or（Op=2）Then如果是/或-运算符IfNum1Num2Then如果第一个数小t=Num1:

Num1=Num2:

Num2=t把两个数交换过来EndIfEndIfIf（Op=4）Then如果是运算符Label3.Visible=True显示余符号TextBox4.Visible=True显示用户输入余数的编辑框Else不是除法Label3.Visible=False不显示余符号TextBox4.Visible=False不显示用户输入余数的编辑框EndIfTextBox1.Text=Str（Num1）显示第一个数TextBox2.Text=Str（Num2）显示第二个数SelectCaseOp判断运算符的种数,学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,Case1加法运算Label1.Text=+显示运算符Standard=Num1+Num2得到标准答案Question=Str（Num1）+Str（Num2）+=产生题目字符串并保存在变量中Case2减法运算Label1.Text=-显示运算符Standard=Num1-Num2得到标准答案Question=Str（Num1）+“-”+Str（Num2）+“=”产生题目字符串并保存在变量中Case3乘法运算Label1.Text=*显示运算符Standard=Num1*Num2得到标准答案Question=Str（Num1）+*+Str（Num2）+=产生题目字符串并保存在变量中Case4除法运算Label1.Text=显示运算符Standard=Num1Num2得到商的标准答案Standardb=Num1ModNum2得到余数的标准答案Question=Str（Num1）+Str（Num2）+=产生题目字符串并保存在变量中,学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,说明：

（1）上述代码定义了一个名为“ShowQuestion”的通用过程，通用过程是Sub过程的一种，在VB.NET中有两种Sub过程，即事件过程和通用过程。

（2）上述通用过程的作用是：

产生两个两位随机数作为运算数并存放在变量Num1和Num2中，产生一个14之间的随机数作为运算符，存放在变量Op中；如果运算符是“”或“-”且Num1的值小于Num2的值，应把Num1和Num2的值交换；如果运算符是“”，让输入余数的文本框可见，供用户输入余数，如果运算符不是“”，则让输入余数的文本框不可见；最后使用SelectCaseEndSelect语句测试Op的值来判断对Num1和Num2进行哪一种运算，得到标准答案（存放在变量Standard和Standardb中）并产生相应的题目字符串（存放在变量Question中）。

（3）在VB.NET中，要使用通用过程，必须先定义。

通用过程可以在窗体或模块中定义。

通用过程的定义格式如下。

学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,格式：

Private|Friend|Public|Protected|ProtectedFriendSub过程名（）执行部分ExitSub执行部分EndSub功能：

建立一个由“过程名”标识的通用过程。

说明：

在Sub和EndSub之间是描述过程操作的一段程序，称为子程序体或过程体。

以关键字Private开头的通用过程是模块级的（私有的）过程，只能被本模块内的事件过程或其它过程调用。

以关键字Public选项开头的常用过程是公有的或全局的过程，在应用程序的任何模块中都可以调用它。

以Friend开头的通用过程只能在本项目或组件的范围外，被其它过程调用。

Protected与类的继承有关，在面向对象的章节中进行介绍。

学员十一队大专区队计算机四组张海红,过程,.2四则运算测验程序Sub过程,过程体由合法的VB.NET语句组成，过程体中可以含有多个“ExitSub”语句，程序执行到“ExitSub”语句时提前退出该过程，返回到主调过程中调用该过程语句的下一条语句。

“过程名”是标识符，过程名必须唯一