第程序结构控制学习教案

会计学1第第 程序结构控制程序结构控制(kngzh)第一页，共169页。2第1页/共168页第二页，共169页。3语句1语句2.语句n图3-1 顺序结构流程图第2页/共168页第三页，共169页。4第3页/共168页第四页，共169页。5第4页/共168页第五页，共169页。6第5页/共168页第六页，共169页。7第6页/共168页第七页，共169页。8第7页/共168页第八页，共169页。9图3-4 从字符串“12x”到类型“Double”转换无效的异常提示第8页/共168页第九页，共169页。10第9页/共168页第十页，共169页。11图3-5 程序流程控制1.0.exe运行出现错误提示信息第10页/共168页第十一页，共169页。12第11页/共168页第十二页，共169页。13第12页/共168页第十三页，共169页。14语句块中的语句，然后执行End If后的语句；如果Expression的值为False，则跳过语句块直接执行End If后的语句。其执行流程如图3-6所示。第13页/共168页第十四页，共169页。15语句块图3-6 单分支结构流程图ExpressionTrueFalse第14页/共168页第十五页，共169页。16第15页/共168页第十六页，共169页。17第16页/共168页第十七页，共169页。18第17页/共168页第十八页，共169页。19n objOper2 = CDbl(txtInput2.Text) 把输入的字符串内容转换(zhunhun)为Double数值类型第18页/共168页第十九页，共169页。20第19页/共168页第二十页，共169页。21n运行“程序流程控制2.0”程序，在文本框中如果输入12x和34，单击“计算”按钮后，程序不出现异常信息，而是弹出如图3-7所示对话框。第20页/共168页第二十一页，共169页。22第21页/共168页第二十二页，共169页。23第22页/共168页第二十三页，共169页。24图3-8 双分支结构流程图ExpressionFalseTrue语句块1语句块2第23页/共168页第二十四页，共169页。25BorderStyle”Fix3D”。n 在Panel控制中添加2个RadioButton控件，Text分别改为“+”、“-”，Name分别改为“rdbPlus”、“rdbSub”，其中“+”单选框的Checked改为“True”。第24页/共168页第二十五页，共169页。26第25页/共168页第二十六页，共169页。27即类frmProgStruct内的过程可以引用strSelOperator。第26页/共168页第二十七页，共169页。28第27页/共168页第二十八页，共169页。29第28页/共168页第二十九页，共169页。30第29页/共168页第三十页，共169页。31第30页/共168页第三十一页，共169页。32n语句块n+1nEnd If第31页/共168页第三十二页，共169页。33第32页/共168页第三十三页，共169页。34图3-10 多分支结构流程图FalseTrue语句块2Expression1语句块1Expression2ExpressionnTrueFalseTrueFalse语句块n语句块n+1第33页/共168页第三十四页，共169页。35第34页/共168页第三十五页，共169页。36nEnd Sub第35页/共168页第三十六页，共169页。37第36页/共168页第三十七页，共169页。38第37页/共168页第三十八页，共169页。39第38页/共168页第三十九页，共169页。40第39页/共168页第四十页，共169页。41第40页/共168页第四十一页，共169页。42n(strSelOperator = ) Then”中表达式所包含的确切逻辑含义，必须要和前面的所有判断包含的表达式的逻辑含义结合起来进行理解。第41页/共168页第四十二页，共169页。43第42页/共168页第四十三页，共169页。44第43页/共168页第四十四页，共169页。45第44页/共168页第四十五页，共169页。46第45页/共168页第四十六页，共169页。47第46页/共168页第四十七页，共169页。48第47页/共168页第四十八页，共169页。49第48页/共168页第四十九页，共169页。50n语句块n+1nEnd Selectn即Case ValueK1，ValueK2，ValueKm中的多个值（多个值之间用逗号分隔(fng)）对应于同一语句块K。第49页/共168页第五十页，共169页。51strMemberType, 学生类型)n Case 教师，干部n MessageBox.Show(您选择(xunz)的工作人员是： & strMemberType, 工作人员类型)n Case Else n MessageBox.Show(您输入的 & strMemberType & 是无效类型!, 错误)n End Select第50页/共168页第五十一页，共169页。52Expression 匹配值的限制。如Case Is 1000第96页/共168页第九十七页，共169页。98n End IfnEnd Sub第97页/共168页第九十八页，共169页。99第98页/共168页第九十九页，共169页。100abcd第1次比较t1t2t3第2次比较第3次比较图3-19 求4个数中的最大数的过程分解第99页/共168页第一百页，共169页。101第100页/共168页第一百零一页，共169页。102t1t2t3图3-20 使用Max（x,y）依次求4个数中最大数的过程Max( Max( Max( a , b ) ,c ) , d )第101页/共168页第一百零二页，共169页。103第102页/共168页第一百零三页，共169页。104第103页/共168页第一百零四页，共169页。105第104页/共168页第一百零五页，共169页。106第105页/共168页第一百零六页，共169页。107第106页/共168页第一百零七页，共169页。108nEnd Sub第107页/共168页第一百零八页，共169页。109第108页/共168页第一百零九页，共169页。110n不能在过程内部再定义过程。第109页/共168页第一百一十页，共169页。111n Function（参数列表）第110页/共168页第一百一十一页，共169页。112第111页/共168页第一百一十二页，共169页。113n 添加(tin ji)一个TextBox控件，Name为txtOutput， Multiline为True，ScrollBars为Vertical。第112页/共168页第一百一十三页，共169页。114n End Sub第113页/共168页第一百一十四页，共169页。115n第114页/共168页第一百一十五页，共169页。116n d = 11第115页/共168页第一百一十六页，共169页。117n ShowText(最大数为： & CStr(maxnum)nEnd Sub第116页/共168页第一百一十七页，共169页。118第117页/共168页第一百一十八页，共169页。119形参值的改变可以影响实参的值。第118页/共168页第一百一十九页，共169页。120Sub B （ByRef x As Integer）End SubSub A （） Dim y As IntegerB(y)End Sub图3-23 引用调用示意图引用y的存储空间x的存储空间第119页/共168页第一百二十页，共169页。121第120页/共168页第一百二十一页，共169页。122第121页/共168页第一百二十二页，共169页。123第122页/共168页第一百二十三页，共169页。124第123页/共168页第一百二十四页，共169页。125n d = 11第124页/共168页第一百二十五页，共169页。126n ShowText(最大数为： & CStr(a)nnEnd Sub第125页/共168页第一百二十六页，共169页。127nValName和Type的说明同引用调用(dioyng)。n在传值调用(dioyng)过程中，实参可以是变量，也可以是常数或表达式。实参和形参占用不同的存储空间。因此,形参值的改变不会影响实参的值。第126页/共168页第一百二十七页，共169页。128Sub B （ByRef x As Integer）End SubSub A （） Dim y As IntegerB(y)End Sub图3-25 传值调用示意图传值y的存储空间第127页/共168页第一百二十八页，共169页。129第128页/共168页第一百二十九页，共169页。130第129页/共168页第一百三十页，共169页。131Max(y:=a, x:=b)Function Max(ByVal x As Integer, Byval y As Integer)End Function第130页/共168页第一百三十一页，共169页。132第131页/共168页第一百三十二页，共169页。133指定类型和默认值。n具有选择性形参后面的形参，都必须(bx)具有选择性。第132页/共168页第一百三十三页，共169页。134第133页/共168页第一百三十四页，共169页。135第134页/共168页第一百三十五页，共169页。136在第5章进行详细讨论。第135页/共168页第一百三十六页，共169页。137n不要在参数数组 As 子句后带默认值。参数数组的默认值自动为在 As 子句中指定的数据类型的一维空数组。第136页/共168页第一百三十七页，共169页。138n元素类型与参数数组的元素类型相同的数组。第137页/共168页第一百三十八页，共169页。139第138页/共168页第一百三十九页，共169页。140第139页/共168页第一百四十页，共169页。141参数数组示例(shl)第140页/共168页第一百四十一页，共169页。142第141页/共168页第一百四十二页，共169页。143第142页/共168页第一百四十三页，共169页。144第143页/共168页第一百四十四页，共169页。145第144页/共168页第一百四十五页，共169页。146第145页/共168页第一百四十六页，共169页。147第146页/共168页第一百四十七页，共169页。148第147页/共168页第一百四十八页，共169页。149n区分重载函数错误第148页/共168页第一百四十九页，共169页。150第149页/共168页第一百五十页，共169页。151第150页/共168页第一百五十一页，共169页。152n End IfnEnd Function第151页/共168页第一百五十二页，共169页。153第152页/共168页第一百五十三页，共169页。154Fac（3） = 6Fac (3)= 3 * Fac（2）= 3 * 2Fac (2)= 2 * Fac（1）= 2 * 1Fac(1) =1 * Fac（0）=1 * 1Fac(0) =1说明：实线为调用过程，虚 线 为 返 回 过 程 。为调用、返回的步骤编号。图3-31 递归调用过程示意图第153页/共168页第一百五十四页，共169页。155递归调用实现的程序，都可以转换成非递归调用实现.第154页/共168页第一百五十五页，共169页。156第155页/共168页第一百五十六页，共169页。157n fn_2 = 1n fn = fn_1 确保fn也有初始值，以防n2的情况第156页/共168页第一百五十七页，共169页。158第157页/共168页第一百五十八页，共169页。159第158页/共168页第一百五十九页，共169页。160n例如，在类的内部声明的变量，无论什么类型，类中的过程可以(ky)访问：第159页/共168页第一百六十页，共169页。161第160页/共168页第一百六十一页，共169页。162图3-33 在类的外面不能访问类中的Private或Dim声明的变量第161页/共168页第一百六十二页，共169页。163第162页/共168页第一百六十三页，共169页。164n intCount += 1 n End Sub第163页/共168页第一百六十四页，共169页。165nCStr(objA.intC)第164页/共168页第一百六十五页，共169页。166第165页/共168页第一百六十六页，共169页。167第166页/共168页第一百六十七页，共169页。168第167页/共168页第一百六十八页，共169页。169感谢您的观看感谢您的观看(gunkn)！第168页/共168页第一百六十九页，共169页。