VB程序设计第8章-设计和使用子过程
第8讲 过程
返回目录
8.2 Sub过程
Private Sub Command1_Click() '单击“输出” 定义数组和变量 For I = 1 To 5 用随机函数生成表中数据 Next I Print_Line '调用画线过程 Print Tab(10); "数学"; Tab(20); "物理"; Tab(30); "化学" Print_Line '调用画线过程 For I = 1 To 5 打印表中数据，并统计各科总分 Next I Print_Line '调用画线过程 Print Tab(10); Math(0); Tab(20); Phy(0); Tab(30); Chem(0) Print_Line '调用画线过程 End Sub
Private Sub Command1_Click() Dim X%, Y% X = InputBox("请输入数据") Sub Add(A, B) Dim C% C = A + B: Print C
Y = InputBox("请输入数据")
Call Add(X, Y) '调用求和通用过程 Subst X, Y '调用求差通用过程
调用语句改为： Print_Line 实参
调用过程时，实参将值 交给形参，由形参带入 子过程中执行。
或 Call Print_Line(实参)
例如，Print_Line 30 或 Call Print_Line(30)
返回目录
8.2 Sub过程
[例8.2] 用不同的方式分别调用带有形式参数的求 和通用过程Add和求差通用过程Subst
Sub Exchange1(ByVal X%, ByVal Y%) T = X: X = Y: Y = T Print "X="; X, "Y="; Y End Sub
VB程序设计 第八章
Call n(Val(Text1.Text))
Public Sub n(a As Integer) Dim i As Integer Dim f As Double f=1 For i = 1 To a f=f*i Next bel1.Caption = Str(a) & "!的阶乘的值为：" & Str(f)
End Sub
2020/2/7
8.1 过程的定义与调用
8.1.1 Sub过程的定义与调用
2、子过程调用 ⑴Call 过程名[(实参列表)]；如：call text(12,”abc”) ⑵过程名[实参列表]；如：test 12,”abc”
例[8-2]给出矩形的长和宽，求矩形的面积。 解题思路：定义一个过程area，计算矩形的面积。
定义过程的方式： ⑴手工方式：在过程、事件代码窗口中，编写事件程序： sub 过程名([参数列表]) … End Sub ⑵系统方式 ① 进入模块代码窗口：系统菜单”工程“－>”添加” －>“新建”，则
新建一 个模块，在标准模块中填写子过程代码；
② 系统菜单”工具“－>”添加过程“，确定子过程的名称以及类型后， 即回
2020/2/7
8.1 过程的定义与调用
8.1.2 Function过程的定义与调用
函数过程(Function)与子过程一样，可将一组完成特定功能的程序代码组织 起来，作为一个相对独立的过程使用；但子过程没有值的返回，函数过程有值 的返回。
1、函数过程的定义 [Static] [Public] [Private] Function 函数过程名[(参数列表)][As 类型]
8.2 函数和过程的参数传递
8.2.3 数组及对象作为过程的参数
VB程序设计教程.ppt
所有控件都有一个这样的属性：只需引用该控件对象名而无需使用
属性名就可以设置该属性的值，称此属性为控件的默认属性值。如Text
（文本框）控件的默认属性为Text属性、Label（标签）控件的默认属性
为Caption属性。
Text1.Text=“Visual Basic ” 等价于 Text1=“Visual Basic ”
第一节 Visual Basic简介
一、 Visual Basic的发展
BASIC是20世纪60年代由美国达特茅斯大 学的两位教授共同设计的计算机程序设计 语言，是国际上广泛使用的一种计算机高 级语言。
Basic语言简单易学、人机交互容易、程序 调试简便，目前仍是计算机程序设计初学 者入门学习的主要语言之一。
窗体的构成
2.3 基本控件
一、窗体的属性 对象表现出来的特征是由对象的各种属性决定的。对窗体
的属性进行设置可以在界面设计时通过属性窗口设置窗体 的各种属性值，也可以在运行时由代码段给窗体的属性赋 值来实现。 决定窗体特性的属性在属性窗口内可以查看和设置。
2.3 基本控件
下面介绍几个常用的属性： (1)Name属性
Visual Basic 6.0中文版包括3种版本 Visual Basic学习版(Learning) Visual Basic专业版(Professional) Visual Basic企业版(Enterprise)
一、Visual Basic的安装 二、Visual Basic的运行
第三节 Visual Basic的集成开发环境
2.1 控件概述
2.1.2 使用标准 ActiveX 控件
VB 包含部分 ActiveX 控件，即标准 ActiveX 控件），
VB子过程应用的程序设计
课程名称VB 程序设计指导教师张晓梅成绩实验名称：子过程应用的程序设计实验目的1）掌握子过程的定义以及调用方法。
2）掌握在过程调用中形参个数、类型的确定方法；掌握数组作为参数传递的方法。
3）熟悉传值和传地址的方法以及区别。
实验环境Visual Studio 2008实验内容1）数组元素排序选择排序。
在文本框中输入要排序的数据个数n，点击“排序”按钮，在“排序前”下面的标签中显示随机生成的n个数，数字随机生成且范围为1~100。
同时利用选择法进行排序，对数据按升序输出，在“排序后”下面的标签中显示升序排好的n个数。
运行界面如图1所示。
图1选择排序控件的主要属性：（要求列出所有控件）Label1-5:T extTexttBox1: MultiLine（True），Readonly（True，ScrollBar（Vertical）Button1:T ext程序代码：Public Class Form1Sub xzpx(ByVal a() As Integer)Dim imin%, t%For i = LBound(a) To UBound(a)imin = iFor j = i + 1 To UBound(a)If a(j) < a(imin) Then imin = j姓名ＸＸＸＸ班级0000000学号00实验日期课程名称VB 程序设计指导教师张晓梅成绩t = a(i) : a(i) = a(imin) : a(imin) = tNext iEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n As Integer, b() As IntegerLabel3.Text = "" : Label5.Text = "" : n = TextBox1.TextReDim b(0 To n - 1)For i = 0 To n - 1b(i) = Int(Rnd() * 100 + 1)Label3.Text = Label3.Text & b(i)If i < n - 1 Then Label3.Text = Label3.Text & ","Next iCall xzpx(b)For i = 0 To n - 1Label5.Text = Label5.Text & b(i)If i < n - 1 Then Label5.Text = Label5.Text & ","Next iEnd SubEnd Class2）打印图形印图形。
《VB程序设计》课程标准
课程标准课程名称：Visual Basic程序设计学时学分：160（2）专业层次：微机制订日期：2012年9月归口单位：计算机工程系制订人：Visual Basic程序设计是一个理论和实际紧密相连的技术，上机实验是教学中的必要环节。
现提出一套可行的“Visual Basic程序设计”课程的课程标准。
1 课程概述●课程研究的对象和研究内容随着计算机的普及和以Internet为代表的信息高速公路的迅速发展，计算机应用已深入到社会的各行各业，这不仅要求当今的大学生要掌握好本专业知识，同时还要有用计算机技术为本专业服务的能力。
因此熟练掌握一种计算机应用软件开发工具是对大学生的基本要求，这将直接影响到计算机在其他专业领域中的应用。
本课程所讲授的Visual Basic即是一种易学实用、适用面广的面向对象的软件开发平台。
VB程序设计课程可以使学生掌握软件设计的基础知识和基本方法，培养学生具有利用软件开发环境解决实际问题的能力，为进一步学习其它计算机知识及今后使用或开发应用程序奠定基础。
●课程在整个课程体系中的地位“Visual Basic程序设计”属于计算机基础教育课程的三个层次“文化、技术、应用”中的第二层次，是微机高职专业学生必修的计算机技术基础课程。
它的先修课是《信息技术基础》。
2. 课程目标（1）使学生理解程序设计的基本概念，建立起程序设计的基本思路，提高学生的理论知识水平。
主要包括了算法的概念、程序设计中的基本技巧和一些常用算法；能够阅读、理解源程序和设计解题流程的能力；了解结构化程序设计和面向对象程序设计的思想，能编制出风格良好的程序；最后达到使用Visual Basic 建立一个小型的应用系统的目的。
（2）使学生掌握基本的程序设计的技术和方法，培养学生的实际动手能力。
这些技术和方法包括算法的设计，程序的实现，能够使用Visual Basic建立一个小型的应用系统。
（3）使学生了解程序设计在本专业的应用、发展及其趋势，培养学生的科研素质。
VB教程 第8章
8.2.5 程序运行时向窗体添加控件
窗体是Windows应用程序的基本控件,Windows应用程序 应用程序的基本控件, 窗体是 应用程序的基本控件 应用程序 的运行本质上就是窗体的显示.窗体上可以添加各种控件. 的运行本质上就是窗体的显示.窗体上可以添加各种控件. 窗体上的控件通常都是在程序设计时,通过工具箱添加的. 窗体上的控件通常都是在程序设计时,通过工具箱添加的. 但也可以在窗体运行时添加控件. 但也可以在窗体运行时添加控件. 在窗体运行时添加控件,其实是创建一个新的对象, 在窗体运行时添加控件,其实是创建一个新的对象,在窗体 指定位置显示,并将其添加到窗体中.指定位置使用Point 指定位置显示,并将其添加到窗体中.指定位置使用 对象数组,向窗体添加对象调用Controls属性的 属性的Add方法. 方法. 对象数组,向窗体添加对象调用 属性的 方法
编写事件代码: 编写事件代码: ' 窗体Load事件代码 窗体 事件代码 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Me.BackColor = Color.Blue End Sub ' 窗体 窗体Click事件代码 事件代码 Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.Click Me.BackColor = Color.Red End Sub ' 窗体 窗体DoubleClick事件代码 事件代码 Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Me.DoubleClick Me.BackColor = Color.Yellow End Sub
vb第8章
幻灯片1第8章过程本章要点:• Function过程• Sub过程•过程的嵌套•参数的传递•代码模块•变量的作用域与生存期幻灯片2过程的引入: 使同类的操作不重复(操作方法相同、参数不同) 过程: 完成一段独立功能，可供其他过程使用(调用)。
过程又称为子程序调用过程: 调用其他过程的过程幻灯片3过程分类:内部函数自定义函数Function过程*内部过程(方法)事件过程自定义过程Sub过程幻灯片48.1 Function过程8.1.1 Function过程的定义1. Function过程的格式[Public|Private][Static] Function <函数过程名>([<形参表>]) [As <类型>][<语句组>][<函数过程名> = <表达式>][Exit Function][<语句组>][<函数过程名> = <表达式>]End Function幻灯片52. 说明(1) Public: 缺省值。
使用Public时表示所有模块的所有其他过程都可以调用该Function过程。
(2) Private: 使用Private时表示只有本模块中的其他过程才可以调用该Function过程。
(3) Static: 使用Static时表示将过程中的所有局部变量说明为静态变量。
(4) <函数过程名>: Function过程的名称，遵循变量的命名规则。
(5) <形参表>: 表示在调用时要传递给Function过程的参数变量列表。
多个变量之间用逗号隔开。
幻灯片6<形参表>格式:[ByVal|ByRef]<变量名>[( )] [As <类型>]ByVal: 表示该参数按值传递。
ByRef: 缺省值。
表示该参数按地址传递。
<变量名>: 遵循变量命名规则的任何变量名或数组名。
VB第8章 过程
教案讲稿第八章过程[旧课复习]：复习内容：1.常用控件的使用，个人信息2.计时器Interval属性,Timer事件复习目的：加强控件和计时器的使用复习时长：大约5分钟[新课导入]：导入方式：通过调用函数引入函数的概念导入目的：增强学生的学习主动性导入时长：大约5分钟[新课讲授]：重点：掌握函数过程的概念，掌握sub过程的概念难点：变量的作用域和生产周期方法：运用多媒体辅助教学，采用案例教学和任务驱动等教学法。
8.1 过程概述VB应用程序是由各种过程组成的，但在为一个实际问题编写代码的过程中，会遇到一些比较复杂的问题，而利用简单的内部函数过程和事件过程往往不能解决此类问题。
此时根据应用的复杂程度，往往需要将应用程序按功能或目的划分为若干个模块，而根据具体情况又可将各个模块继续划分为子模块，直到一个适当的难度为止，即将问题自上而下逐步细化，分层管理。
将模块划分为子模块主要有如下优点：（1）便于调试和维护。
将一个复杂的问题分解为若干个子问题，降低每一个子问题的复杂程度，使每一个子问题的功能相当稳定，便于程序的调试和维护。
（2）提高了代码的利用率。
当多个事件过程都需要使用一段相同的程序代码时，可将这段代码独立出来，作为一个独立的过程。
它可以单独建立，也可以被其他事件过程调用，成为一个可重复使用的独立的过程，提高代码的使用率。
一个VB工程包括工程文件（.Vbp）、窗体文件（.Frm）、窗体的二进制数据文件（.Frx）、标准模块（.Bas）、类模块（.Cls）、资源文件（.Res）、ActiveX 控件文件（.Ocx）、用户控件（.Ctl）和属性页模块（.Pag）、其他ActiveX 控件文件、设计器可插入对象等部件和引用。
VB大致的应用程序模块结构如图8-1 所示图8-1VB应用程序模块结构8.2 函数过程8.2.1函数过程的定义Function函数过程的定义与Sub子过程的定义类似，但不同的是Function 函数过程的定义语句中需要有返回函数值的语句。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
内。
第
8.2 子过程
八 章
8.2.4 应用举例
过
【1(例) 8'事.1】件编过写程求，矩当形按面钮积1被的单子击过时程执，行通过调用此子过程来求
程
运窗ww行体!=,程上h1!序不，同分按别钮单'的按击面钮大积宽小。度不可同由的属两性个获按得钮，，单窗位体为显示相应按
钮编h的写=面1：积新，建如工图程8'，按-2建钮所立高示二度。个可大由小属不性同获的得按，钮单，位依为次双击这二 个1w按;, h钮，输入代码如下。'调用子过程，实参把宽和高传递给
上面的过程不带参数，当调用该过程时，打印输出“”。
第
8.2 子过程
八
章
8.2.2 定义子过程
过
程
定义子过程有两种方法：
（1）利用代码窗口直接定义
在代码窗口把插入点放在所有过程之外，按照子过程的形式，
直接输入即可。ቤተ መጻሕፍቲ ባይዱ
（2）使用“添加过程”对话框进行定义
第
8.2 子过程
八
章
8.2.2 定义子过程
过 程
第
8.2 子过程的定义与调用
八
章
过
程 子过程是用特定格式组织起来的一组代码，通常用
来完成一个特定的功能，可以被其它过程作为一个
整体来调用。
第
8.2 8.2 子过程的定义与调用
八
章
8.2.1 子过程的形式
过
实例说明：
程
上列[为例((在事子子[形（（干变或（（（],形s[无如面为"],件过过式个3形：量1245"=参子[[[[)）））））局语语参：子“过程程说变式变名x]列过[“[[[部句句过过s语(]+上程的的明量量1[形表]程]=子变序序程程y[句表的，的过形：，名参)x类名过量 列 列]。的序意示为过程式格子1+列型[程或]](名列[义中可y程 名 如 式过形类表]”名常称，]，在途选名 可 下 如参程型)是]”数为调变项8退列由 以 ： 下与类符的.要定，5用量，出表事对 是 ：似]节程遵，义其该名即子件象 一)于]中序守变]有过2此过名 个过变介段标量三[程项程和 任程量类绍，识名个可可。事 意相声型。在符2整以有件 合类明]此[的，型类实可似名 法，编命…的型现无连 的，是写名…形符求。接 标但用语规参]两没而 识又，“句则x数有成符有…，、，。之参。。所…”y实、和数区分现s。的别隔，相过：开语应程的句功称若序能。
参、
'退出子过程，并返回到调用语句之后的
语句继续执行
第
8.2 子过程
八 章
8.2.4 应用举例
【例8.2】编写求N!的子过程，通过调用此子过程来计算5 ! + 8 ! – 6 ! 。
过
编写：新建工程，双击窗体，在的事件列表中选择项，输入代码如下。
程
(, )
'求N!的子过程，被事件过程调用时执行
输入完成后，运行程序。单击窗体，会显示5 ! + 8 ! – 6 ! 的
第
8.1 过程概述
八
章
过
过程是用来执行一个特定任务的一段程序代码。
程
中有两类过程：
（1）由系统提供的内部函数过程和事件过程。
事件过程是构成应用程序的主体。在前面的学习中，我们已经接触
到很多事件过程，如窗体和按钮的事件过程，文本框的事件过程等。
（2）用户根据自己的需要定义、供事件过程多次调用的自定义过程。
Public Sub sum() End Sub 可以在子过程的代码框架中输入语句，以完成相应功能。
第
8.2 子过程
八 章
8.2.3 子过程的调用
过 程
（2）直接使用过程名：
8格举.2式例.3：：子过a,过程b,名程c[的实调参列用表]
要调用执方行式一的个说子明过：程，必须先调用该子过程。
每（一1一次）对调“应用实。子参列过表程”都中会的执实行参和必须之与间形的参语保句持。个子数过相程同，以位开置始与，类以型
（6）单击“确定”按钮，完成对子过程的定义。此时，代 码窗口中会自动出现子过程的代码框架。
步骤如下：
（1）切换到代码窗口。 （2）选择“工具”菜单下的“添加过程”命令，弹出“添加 过程”对话框，见图8-1。 （3）在“名称”框中输入过程名。例如图8-1中显示输入的 过程名为“”。
（4）在“类型”组中选取“子程序”。 （过例以程5如下），单代在或击码“选图：范取8-围1“所”私示组有对中的话选框”取的定““义公确一定有个”的局按”部钮定过后义程，一在。个代公码共窗口级中的会全出局现
计pi 算== 11结N果，如图8'用-3循所环示求。出N!，形参N的值由调用语句中的相应实参获
程序设计
第8章 设计和使用子过程 主编：沈祥玖 高等教育出版社
第8章 设计和使用子过程
学习目标：
（1）掌握定义、调用子过程和函数的方法。 （2）理解参数传递中传值和传址的不同含义。了解数组参数 的传递。 （3）知道过程与变量的作用域。 （4）了解键盘和鼠标的各种事件。 （5）能够灵活运用本章所学知识进行程序设计。
内存单元，对形参的操作等同于对实参操作。传值时实参和形参使
（用不1）同使内用存单语元句，：对形参的操作不会对实参产生影响。8.4节中有详
格述。式： 过程名[(实参列表)]
（5）若直接使用过程名调用过程，则过程名后不能加括号，参数直
举接跟例在：过(程a,名b之, c后) 。
（6）用 语句调用过程时，过程名后必须加括号，参数放在括号之
结（2束）。实当参程可以序是遇常到量时、，变将量退、表出达子式过。程，并返回到调用语句之
后（（34的））语参调句数用继与子过过续程程执名时行之，。间会用把空实格参隔的开值，传参递数给与形参参数，之称间为用参逗数号传分递隔，。有
子传址过和程传的值调两用种有方两式种。默方认式为：传址方式，此时实参和形参共用一个
形参
(!, !)
'求矩形面积的子过程，被事件过程调用时执
行2() 事件过程，当按钮1被单击时执行
w! !, h!
w== *2 来h2计=; 2算面积
''将 将要 要作 作'形为 为参实 实通参 参过的 的实wh参通通获过过得属属某性性按获获钮得得的高宽宽度度和高，用
w"面, h积为：";
'调用时实参w、h把宽和高传递给形
在程序设计过程中，可以将一些常用的功能编写成自定义过程，供
多个不同的事件过程多次调用；从而减少重复编写代码的工作量，
实现代码重用，使程序简练、便于调试和维护。
自定义过程又分为以下几类：
以“”保留字开始的子过程。
以“”保留字开始的函数过程。
以“”保留字开始的属性过程。
以“”保留字开始的事件过程。
本章主要介绍比较常用的子过程和函数过程。