VisualBasic 程序设计 vb7教程

《VisualBasic 程序设计 vb7教程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第七章过程全国计算机等级考试Vb应用程序是由过程组成的，在VB设计应用程序时，除了定义常量和变量外，全部工作就是编写过程。VB中的过程可以看作是编写程序的功能模块。从本质上说，使用过程是在扩充VB的功能以适应某种需要。第九章过程第九章过程例如:按钮的单击事件过程第九章过程例如:Data=1Fori=1Toxdata=data*iNextiPrintdata提取第九章过程例如:Subjc(xasinteger)data=1Fori=1Toxdata=data*iNextiPrintdataendSub形成过程通用过程有时候，多个不同的事件过程可能需要使用一段相同的程序代码，

2、因此可以把这一段代码独立出来，作为一个过程，这样的过程叫做“通用过程”，它可以单独建立，供事件过程或其他通用过程调用。第九章过程通用过程:PrivateSubForm_Click()DimhAsInteger,aAsInteger,sAsIntegerh=Val(InputBox("请输入三角形的高"))a=Val(InputBox("请输入三角形的底"))s=1/2*a*hPrintsEndSub下面是一个求解三角形面积的程序，请将专门求解三角形面积的语句分离出来。PrivateSubForm_Click()DimhAsInteger,aAsInteger,sAsInt

3、egerh=Val(InputBox("请输入三角形的高"))a=Val(InputBox("请输入三角形的底"))s=1/2*a*hPrintsEndSub下面是一个求解三角形面积的程序，请将专门求解三角形面积的语句分离出来。PrivateSubForm_Click()DimmAsInteger,nAsIntegerm=InputBox("请输入m的值")n=InputBox("请输入n的值")Ifm0r=mModnm=nn=rWendPrintmEndSub下面是一个求解最大公约数的程序，请将专门求解最大公约数的语句分

4、离出来。PrivateSubForm_Click()DimmAsInteger,nAsIntegerm=InputBox("请输入m的值")n=InputBox("请输入n的值")Ifm0r=mModnm=nn=rWendPrintmEndSub下面是一个求解最大公约数的程序，请将专门求解最大公约数的语句分离出来。第九章过程例如:Subjc(xasinteger)data=1Fori=1Toxdata=data*iNextiPrintdataendSub形成过程通用过程第九章过程例如:Subjc(xasinteger)da

5、ta=1Fori=1Toxdata=data*iNextiPrintdataendSub调用在VB中，通用过程分为两类，即子程序过程和函数过程，前者叫做Sub过程，后者叫做Fuction过程。此外，VB也允许用Gosub…Return语句来实现子程序调用，但它不能作为VB的过程。在这一章中，将介绍如何在VB应用程序中使用通用过程。第九章过程通用过程的分类:一、建立Sub过程（两种方法）第一种方法，操作步骤如下：第九章过程1、执行“工程”菜单中的“添加模块”命令，打开“添加模块”对话框。在该对话框中选择“新建”选项卡，然后双击“模块”图标，打开模块代码窗口。2、执行“工具”

6、菜单中的“添加过程”命令，打开“添加过程”对话框，如图所示填写过程名第九章过程在“类型”栏内选择要建立的过程的类型，如果建立子程序过程，则应选择“子程序”；如果要建立函数过程，则应选择“函数”。第九章过程在“范围”栏内选择过程的适用范围，可以选择“公有的”或“私有的”。如果选择“公有的”，则所建立的过程可用于本工程内的所有窗体模块；如果选择“私有的”，则所建立的过程只能用于本标准模块。第九章过程单击“确定”按钮，回到模块代码窗口，如图所示。第九章过程此时，可以在Sub和EndSub之间键入程序代码第二种方法：执行“工程”菜单中的“添加模块”命令，打开模块代码窗口，然后键入

7、过程的名字。即可在Sub和EndSub之间键入程序代码。第九章过程注意：在模块代码窗口中，通用过程出现在“对象”框的“通用”项目下，其名字可以在“过程”框中找到。如果在窗体模块中建立通用过程，则可双击窗体进入代码窗口，在“对象”框中选择“通用”，在“过程”框中选择“声明”，直接在窗口内键入“SubTryout()”,然后按回车键，窗口内显示：SubTryout()Endsub即可键入代码。第九章过程PrivateSubForm_Click()DimhAsInteger,aAsInteger,sAsIntegerh=Val(In