理学VBFIL13.pptx
《理学VBFIL13.pptx》由会员分享,可在线阅读,更多相关《理学VBFIL13.pptx(61页珍藏版)》请在咨信网上搜索。
1、V i s u a l B A S I C 程程序序设设计计1第第9 9章章过过 程程本章要点本章要点:FunctionFunction过程过程 SubSub过程过程 过程的嵌套过程的嵌套 参数的传递参数的传递 代码模块代码模块 变量的作用域与生存期变量的作用域与生存期第第九九章章 过过 程程2过程的引入过程的引入:使同类的操作不重复使同类的操作不重复 (操作方法相同、参数不同操作方法相同、参数不同)过程过程:完成一段独立功能,可供其他过程使用完成一段独立功能,可供其他过程使用(调用调用)。过程又称为子程序过程又称为子程序调用过程调用过程:调用其他过程的过程调用其他过程的过程调用过程调用过程:
2、调用调用Sprg1调用调用Sprg1调用调用Sprg2子过程子过程:Sprg1子过程子过程:Sprg2第第九九章章 过过 程程3过程分类过程分类:Sub过程过程Function过程过程*内部过程内部过程(方法方法)事件过程事件过程 自定义过程自定义过程 内部函数内部函数 自定义函数自定义函数第第九九章章 过过 程程49.1 9.1 FunctionFunction过程过程9.1.1 Function过程的定义过程的定义1.Function过程的格式过程的格式 Public|PrivateStatic Function ()As =Exit Function =End Function第第九九章
3、章 过过 程程52.说明说明(1)Public:缺省值。使用缺省值。使用Public时表示所有模块的所时表示所有模块的所 有其他过程都可以调用该有其他过程都可以调用该Function过程。过程。(2)Private:使用使用Private时表示只有本模块中的其他时表示只有本模块中的其他 过程才可以调用该过程才可以调用该Function过程。过程。(3)Static:使用使用Static时表示将过程中的所有局部变时表示将过程中的所有局部变 量说明为静态变量。量说明为静态变量。(4):Function过程的名称,遵循变量过程的名称,遵循变量 的命名规则。的命名规则。(5):表表示示在在调调用用时时
4、要要传传递递给给Function过过程程的参数变量列表。多个变量之间用逗号隔开。的参数变量列表。多个变量之间用逗号隔开。第第九九章章 过过 程程6 格式格式:ByVal|ByRef ()As ByVal:表示该参数按值传递。表示该参数按值传递。ByRef:缺省值。表示该参数按地址传递。缺省值。表示该参数按地址传递。:遵遵 循循 变变 量量 命命 名名 规规 则则 的的 任任 何何 变变 量量 名名 或数组名。或数组名。():当参数为数组时使用。当参数为数组时使用。(7)Exit Function语句语句:从从Function过程中退出。过程中退出。(8)Function过程通过赋值语句过程通过
5、赋值语句 =将函数的返回值赋给将函数的返回值赋给 。(9)Function过程的定义不能嵌套。过程的定义不能嵌套。第第九九章章 过过 程程7Function过程的建立过程的建立:直接在代码窗口中输入。直接在代码窗口中输入。在代码窗口在代码窗口:工具工具 添加过程。添加过程。【例【例9-1】编写一个计算】编写一个计算n!的的Function过程。过程。Function Fact(N As Integer)As Long Dim I As Integer,F As Long F=1 F用于保存阶乘值用于保存阶乘值 For I=1 To N F=F*I Next I Fact=F 给函数过程名赋值给
6、函数过程名赋值 End Function第第九九章章 过过 程程8 9.1.2 Function过程的调用过程的调用 直接在表达式中调用。直接在表达式中调用。格式格式:():常量、变量或表达式,各参数之间用常量、变量或表达式,各参数之间用逗号分隔。如果是数组,在数组名之逗号分隔。如果是数组,在数组名之后必须跟一对空括号。后必须跟一对空括号。第第九九章章 过过 程程9【例【例9-3】从键盘上任意输入一个整数,然后调用例】从键盘上任意输入一个整数,然后调用例9-1编写的函数过程计算其阶乘数。编写的函数过程计算其阶乘数。第第九九章章 过过 程程10 自定义求阶乘的函数过程自定义求阶乘的函数过程Fac
7、tFunctin Fact(N As Integer)As Long Dim I As Integer,F As Long F=1 For I=1 To N F=F*I Next I Fact=F 给函数过程名赋值给函数过程名赋值End Function 在按钮的在按钮的Click事件过程中调用函数过程事件过程中调用函数过程Private Sub Command1_Click()Dim X As Integer X=Val(Text1.Text)Label2.Caption=Trim(Str(X)&的阶乘数为的阶乘数为:Label3.Caption=Trim(Str(Fact(X)End Su
8、b第第九九章章 过过 程程119.1.3 Function过程举例过程举例【例【例9-4】利用】利用Function过程计算阶乘,求组合数。过程计算阶乘,求组合数。设计界面如下图所示。运行时,在文本框设计界面如下图所示。运行时,在文本框Text1和和Text2中输入中输入n和和m值,或通过文本框旁的滚动条调值,或通过文本框旁的滚动条调整整n和和m的值,单击的值,单击“=”按钮计算组合数,结果显按钮计算组合数,结果显示于文本框示于文本框Text3中。中。Text2VScroll1OLE1控件控件VScroll2Text1Text3Command1第第九九章章 过过 程程12主要属性设置如下主要属
9、性设置如下:控件名称控件名称属性名属性名属性值属性值OLE1BackStyle0-TransparentBorderStyle0-NoneSizeMode2-AutoSizeVscroll1Max0Min0Value0Vscroll2Max0Min50Value0第第九九章章 过过 程程13 定义求阶乘的函数定义求阶乘的函数FactFunction Fact(N As Integer)As Double Dim F As Double,i As Integer F=1 For i=1 To N F=F*i Next i Fact=FEnd Function第第九九章章 过过 程程14 调整滚动
10、条调整滚动条VScroll1的值的值(m)时,在文本框中显时,在文本框中显 示该值,并清除已有的计算结果示该值,并清除已有的计算结果Private Sub VScroll1_Change()Text1.Text=VScroll1.Value Text3.Text=End Sub 调整滚动条调整滚动条VScroll2的值的值(n)时时,在文本框中显示该值,在文本框中显示该值,并清除已有的计算结果并清除已有的计算结果Private Sub VScroll2_Change()Text2.Text=VScroll2.Value 限制限制n的最小值为的最小值为m的值的值 VScroll1.Min=VSc
11、roll2.Value Text3.Text=End Sub第第九九章章 过过 程程15“=”按钮的按钮的Click事件过程事件过程Private Sub Command1_Click()Dim m As Integer,n As Integer,c As Double m=Val(Text2.Text):n=Val(Text1.Text)调用调用Fact函数求各阶乘值函数求各阶乘值 c=Fact(m)/(Fact(n)*(Fact(m-n)Text3.Text=Trim(Str(c)End Sub第第九九章章 过过 程程16 定义求最大公约数的函数过程定义求最大公约数的函数过程hcfFunc
12、tion hcf(m As Integer,n As Integer)As Integer Dim r As Integer r=m Mod n Do While r 0 m=n n=r r=m Mod n Loop hcf=nEnd Function【例【例9-5】编写】编写Function过程求最大公约数,并通过过程求最大公约数,并通过命令按钮的单击事件过程调用该函数过程。命令按钮的单击事件过程调用该函数过程。第第九九章章 过过 程程17 在在Command1的单击事件过程中调用自定义函数的单击事件过程中调用自定义函数Private Sub Command1_Click()Dim m As
13、 Integer,n As Integer m=Val(Text1.Text):n=Val(Text2.Text)Label3.Caption=Str(hcf(m,n)End Sub 在在Text1获得焦点时选中其中的文本获得焦点时选中其中的文本Private Sub Text1_GotFocus()Text1.SelStart=0 Text1.SelLength=Len(Text1.Text)End Sub第第九九章章 过过 程程18 在在Text2获得焦点时选中其中的文本获得焦点时选中其中的文本Private Sub Text2_GotFocus()Text2.SelStart=0 Tex
14、t2.SelLength=Len(Text2.Text)End Sub第第九九章章 过过 程程199.2 9.2 SubSub过程过程9.2.1 Sub过程的定义过程的定义1.Sub过程的格式过程的格式 Private|PublicStatic Sub ()Exit Sub End Sub2.说明说明(1)Exit Sub用于退出用于退出Sub过程。过程。(2)不具有值的意义,在不具有值的意义,在Sub过程中不能过程中不能给给 赋值,也不能给赋值,也不能给 定义类型。定义类型。第第九九章章 过过 程程20(3)Sub过程通过过程通过 中的参数返回值。中的参数返回值。(4)Sub过程的建立方法与
15、过程的建立方法与Function过程的建立方法过程的建立方法相同。相同。【例【例9-7】编写计算】编写计算n!的的Sub过程。过程。分析分析:参数表中应有一个参数参数表中应有一个参数n,还应有另一个参还应有另一个参数数F用来返回阶乘值。用来返回阶乘值。Sub Fact(N As Integer,F As Long)Dim I As Integer F=1 For I=1 To N F=F*I Next I End Sub第第九九章章 过过 程程21【例例9-8】编写】编写Sub过程,打印以下图形。过程,打印以下图形。分析分析:打印以上图形,不需要返回值,因此无需引打印以上图形,不需要返回值,因
16、此无需引入参数。入参数。*Sub a()For i=1 To 6 Print Tab(7-i);For j=1 To 2*i-1 Print*;Next j Print Next iEnd Sub第第九九章章 过过 程程22【例例9-9】编写】编写Sub过程,求三个数中的最大数和最过程,求三个数中的最大数和最小数。小数。分析分析:首先要设置三个参数,如首先要设置三个参数,如x、y、z,用于接用于接收三个原始数据,另外引入两个参数收三个原始数据,另外引入两个参数max和和min,用于返回最大和最小数。用于返回最大和最小数。Sub s(x,y,z,max,min)max=x min=x If y
17、max Then max=y If y max Then max=z If z min Then min=z End Sub第第九九章章 过过 程程239.2.2 Sub过程的调用过程的调用 格式一格式一:Call()格式二格式二:说明说明:(1):要调用的要调用的Sub过程名;过程名;(2):可以是常量、变量或表达式,各参数可以是常量、变量或表达式,各参数之间用逗号分隔。如果是数组参数,则要在数组之间用逗号分隔。如果是数组参数,则要在数组名之后跟一对空括号。名之后跟一对空括号。(3)用用Call语句调用一个语句调用一个Sub过程时,如果过程本身过程时,如果过程本身没有参数,则省略没有参数,则
18、省略 和括号。和括号。(4)格式二省略了格式二省略了Call关键字,同时关键字,同时 两边也两边也不能带括号。不能带括号。第第九九章章 过过 程程24【例【例9-10】将例】将例9-3改成用改成用Sub过程实现求过程实现求n!。!。Option Explicit Sub Fact(N As Integer,F As Long)Dim I As Integer F=1 For I=1 To N F=F*I Next I End Sub第第九九章章 过过 程程25Private Sub Command1_Click()Dim x As Integer,Ff As Long x=Val(Text1.
19、Text)Label2.Caption=Trim(Str(x)&的阶乘数为的阶乘数为:调用调用Fact过程求过程求x阶乘,阶乘值存于实参阶乘,阶乘值存于实参Ff中中 Call Fact(x,Ff)Label3.Caption=Trim(Str(Ff)End Sub第第九九章章 过过 程程269.2.3 Sub过程举例过程举例【例【例9-11】编写一个】编写一个Sub过程,计算过程,计算N个数的和,即个数的和,即1+2+N,并通过命令按钮的单击事件调用该过并通过命令按钮的单击事件调用该过程计算程计算S=1+(1+2)+(1+2+3)+(1+2+K)。分析分析:编写一个编写一个Sub过程计算过程计
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 理学 VBFIL13
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【a199****6536】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【a199****6536】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。