第3章 程序结构控制

《第3章 程序结构控制》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第三章VisualBasic2005程序设计概述本章主要内容：程序顺序结构。使用If…Then构建分支结构程序。使用SelectCase构建多分支结构程序。使用For…Next构建循环结构程序。使用Do…Loop构建循环结构程序。使用Panel容器控件。使用RadioButton控件。过程的定义与使用。变量的生存期与作用域。本章主要内容2第三章程序结构控制程序的结构通过上一章的讨论可知，算法是用来描述如何对数据进行处理的，为了能够实现一个算法，就必需能够控制程序的流程。在VisualBasic2005面向对象的程序设计中，控制程序的流程包括有：

2、顺序结构、选择分支结构、循环结构，以及过程的定义和使用。3第三章程序结构控制1.顺序结构最简单的程序流程结构是顺序结构，即各语句按照先后出现的次序执行，其执行流程如图3-1所示。语句1语句2……语句n图3-1顺序结构流程图4第三章程序结构控制1.顺序结构提示：当给变量赋值时，如定义变量x的数据类型为单精度实型：DimxAsSingle，可以使用以下三种方法给变量赋值：①直接给变量赋值，如：x=3.14②通过文本框给变量赋值，如前面的例子如：x=ctype(textbox1.text,single)③通过InputBox(）输入框函数给变量赋值：

3、如下边的例子：x=CType(InputBox(“请输入变量x的值：”,“提示"),Single)TextBox1.Text=ctype(x,string)注意：该涵数的返回值为字符型数据。5第三章程序结构控制1.顺序结构例3.1通过文本框输入两个数，将它们的值赋给通用型变量，并进行相加处理后，最后通过文本框输出结果。窗体界面如下：6第三章程序结构控制1.顺序结构程序如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButt

4、on1.ClickDimstrAsStringDimobj1,obj2AsObjectobj1=TextBox1.Text'由于文本框为文本型数据，故obj1存为文本型数据obj2=TextBox2.Textstr=obj1+obj2'由于str定义为字符型，故obj1+obj2按字符运算TextBox3.Text=obj1&"+"&obj2&"="&str&vbCrLfEndSub提示：由于obj1与obj2被定义成通用型，而TextBox1.Text与TextBox2.Text是字符型，因此str=obj1+obj2为字符串连接运算。如果按

5、数值型相加，应改为：str=CType(obj1,Integer)+CType(obj2,Integer)7第三章程序结构控制2.选择分支结构如果程序需要根据具体的情况，来选择执行相应的代码，完成特定的功能，就需要使用分支结构。If…Then分支结构，在程序设计中，经常以单分支、双分支、多分支和嵌套的形式出现。8第三章程序结构控制2.1If…Then语句单分支结构If…Then语句单分支结构的语句格式为：If（Expression）Then语句块EndIf其中Expression是逻辑表达式或关系表达式。如0≤intX≤100，使用Visual

6、Basic可以写成：intX>=0AndintX<=100。Expression的值只能是True或False，作为If进行测试判断的依据，如果Expression的值为True，依次执行语句块中的语句，然后执行EndIf后的语句；如果Expression的值为False，则跳过语句块直接执行EndIf后的语句。其执行流程如图3-6所示。9第三章程序结构控制2.1If…Then语句单分支结构语句块图3-6单分支结构流程图ExpressionTrueFalse提示：如果语句块中只有一条语句，可以写成一行，并省略Endif，其语法格式为：if(Ex

7、pression)Then语句10第三章程序结构控制2.1If…Then语句单分支结构例3.2在例3.1的基础上增加对文本框输入内容的判断，如果输入的内容不能转换为Double类型，则退出过程调用。使用IsNumeric(Expression)函数，可以用于测试表达式的数据类型是否为数值型，如果是数值型，函数返回值为真，否则返回假。例如：TextBox1.Text=IsNumeric(“A”)‘显示值为：FalseTextBox1.Text=IsNumeric(-1)‘显示值为：True11第三章程序结构控制2.1If…Then语句单分支结构例

8、3.2中的程序代码如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSyst