第4章 程序控制结构-顺序结构

VisualBasic程序设计第4章程序控制结构1第4章程序控制结构内容简介4.1顺序结构4.2选择结构4.3循环结构4.4程序控制结构举例2第4章程序控制结构结构化程序设计的三种基本结构流程图三种结构的N-S图如下：

A块B块B块A块条件？是否当条件循环体顺序结构分支结构循环结构结构化程序3第4章程序控制结构

顺序结构是程序设计中最简单、最常用的基本结构。其特点是，程序执行顺序和书写顺序一致，即自上而下执行，在VB中构成顺序结构的主要有赋值语句，输入/输出操作等4.1顺序结构4第4章程序控制结构4.1.1赋值语句格式：[Let]<变量名>＝<表达式>

Let可省略<变量名>是变量或对象属性的名称

<表达式>是任何数据类型的表达式赋值语句赋值号“=”两边不要求数据类型一致，赋值号有自动转换数据类型的功能。说明功能：先计算赋值号“=”右边<表达式>的值，然后将结果赋给左边的<变量>或指定对象的属性。5第4章程序控制结构【例4-1】数学中的等号与赋值号的区别。SubForm_Click()

x=3:y=4

x=y

Printx,yEndSub运行结果：4 4SubForm_Click()x=3:y=4

y=xPrintx,yEndSub运行结果：3 34.1.1赋值语句6第4章程序控制结构【例4-2】变量自身值的改变。PrivateSubForm_Click()x=5:Print"x1=";xx=x+2:Print"x2=";xa="Howdoyoudo"a=a&"!":PrintaEndSub运行结果：x1=5 x2=7Howdoyoudo!PrivateSubForm_Click()

x=3:y=4t=x:x=y:y=tPrintx,yEndSub运行结果：4 34.1.1赋值语句【例4-3】交换两个变量的值。tx3ytxy43347第4章程序控制结构赋值语句的总结为自定义变量赋值a=Val(Text1.Text)为属性变量赋值

Text1.Text="+"可以是字符串类型

Text2.Text="+"可以是数值类型

Text2.Alignment=2赋值语句赋值号两边的数据类型可以不同TextResult.Text=Str(Sum)TextResult.Text=Sum赋值语句赋值号两边的内容不能互换。右边是提供数据的，可以是表达式或常数；左边接受数据，只能是变量。Sum=a+b4.1.1赋值语句8第4章程序控制结构4.1.1赋值语句【例4-4】设计一个计算3个月的平均工资的程序，用文本框作为数据的输入和输出。空TxtAverage文本框5(输出平均工资)空Txt3文本框4(输入三月份工资)空Txt2文本框3(输入二月份工资)空Txt1文本框2(输入一月份工资)空TxtName文本框1(输入姓名)Text属性“名称”属性对象描述9第4章程序控制结构PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(Txt1.Text)b=Val(Txt2.Text)c=Val(Txt3.Text)TxtAverage.Text=(a+b+c)/3EndSub4.1.1赋值语句10第4章程序控制结构PrivateSubCommand2_Click()TxtName.Text=""Txt1.Text=""Txt2.Text=""Txt3.Text=""TxtAverage.Text=""TxtName.SetFocusEndSubPrivateSubCommand3_Click()UnloadForm1'从内存中卸载窗体1EndSub用文本框作为输入输出控件时，应注意：文本框中的文本是字符串型变量，不是数值型变量文本框的输入输出功能是通过文本框的Text属性实现的4.1.1赋值语句11第4章程序控制结构

一个计算机程序通常包含三个部分内容：数据的输入、数据的处理和数据的输出。VB的输入/输出一般是通过下述方式实现：

控件：如文本框控件、标签框控件、列表框、组合框等函数和过程：如与用户交互的InputBox函数与MsgBox函数和过程方法：如Print。

利用控件进行数据的输入/输操作在后面的章节介绍，本节主要介绍通过与用户交互的函数和过程及Print方法来实现数据的输入/输出。4.1.2数据的输入/输出操作12第4章程序控制结构1、Print方法

功能：用于在窗体、立即窗口、图片框、打印机等对象中显示文本字符串和表达式的值

格式为：[<对象名.>]Print[<表达式列表>][,|;]<对象名>：可以是窗体、立即窗口、图片框、打印机，省略时为当前窗体。<表达式列表>：需要显示的内容，可以是多项的列表，项间用逗号或分号分隔。表达式可以是算术表达式、字符串表达式及布尔表达式。Print方法具有计算和显示的双重功能，对于表达式，先计算后显示。4.1.2数据的输入/输出操作13第4章程序控制结构逗号作输出项的分隔符，按标准格式输出将整个屏幕分为几个打印区，每个打印区的第一列为一个标准位，每个标准位间隔14个光标位置。

Print1,-2,3,4,5Print-6,"x"4.1.2数据的输入/输出操作14第4章程序控制结构【例4-5】按标准格式在窗体上输出不同大小的字符。PrivateSubForm_Click()Print"b","c"PrintString(15,"b")Font.Size=20Print"b","c"PrintString(14,"b")EndSub4.1.2数据的输入/输出操作15第4章程序控制结构分号作输出项分隔符，按紧凑格式输出 “紧凑格式”输出的规定是，数值型数据的符号占一位，数值项后空一格，字符串型数据后没有空格。【例4-6】写出输出结果如图所示的程序代码。PrivateSubForm_Click()Print-3;5;"x";"y"EndSub4.1.2数据的输入/输出操作16第4章程序控制结构输出行控制 通常，一个Print方法输出一行信息，下一个Print方法将在下一行中输出。如果Print方法语句末尾是分隔符逗号或分号，则输出结果不换行。如果Print方法末尾是逗号，则按标准格式与下一个Print方法输出相接；如果Print语句末尾是分号，则按紧凑格式与下一个Print方法输出相接。4.1.2数据的输入/输出操作17第4章程序控制结构【例4-7】

PrivateSubForm_Click()Print"Visual",Print"Basic”PrintPrint"25+14=";Print25+14EndSub4.1.2数据的输入/输出操作18第4章程序控制结构

用于Print方法的格式输出函数

Tab(x)：使输出数据显示在第x列(绝对位置)

Space(x)或Spc(x)：取x个空格的字符串(相对位置)

4.1.2数据的输入/输出操作19第4章程序控制结构【例4-8】

PrivateSubForm_Click()PrintTab(6);"@@@@@@@@@@@@"PrintTab(6);"-";Spc(10);"-"PrintTab(6);"*@";Spc(8);"@*"PrintTab(7);"*";Spc(8);"*"PrintTab(8);"*";Spc(6);"*"PrintTab(9);"*";Spc(4);"*”PrintTab(10);"**";Spc(0);"**"EndSub4.1.2数据的输入/输出操作20第4章程序控制结构2、与用户交互的函数和过程

InputBox函数4.1.2数据的输入/输出操作对话框标题提示信息默认内容21第4章程序控制结构<提示内容>：指定在对话框中出现的文本，最多可有1024个字符。<对话框标题>：指定对话框的标题，是可选项。格式：<变量名>=InputBox(<提示内容>,[<对话框标题>],

[<默认内容>],[<x坐标>],[<y坐标>])<默认内容>：显示在文本输入框中，为可选项。<x坐标><y坐标>：确定对话框左上角在屏幕上的位置。说明4.1.2数据的输入/输出操作－InputBox函数22第4章程序控制结构【例4-10】用InputBox函数接收圆球的半径r，求圆球表面积s(s=4πr2)PrivateSubForm_Click()Constpi=3.1415926DimrAsSingle,areaAsSingle,pAsStringp="请输入圆球的半径,"&Chr(13)&"然后单击"确定"或"取消"按纽。"

r=Val(InputBox(p,“计算圆球表面积","10",,100))

Font.Size=18area=4*pi*r^2Print"圆球表面积：";areaEndSub4.1.2数据的输入/输出操作－InputBox函数23第4章程序控制结构2、与用户交互的函数和过程

MsgBox函数和MsgBox过程4.1.2数据的输入/输出操作对话框标题图标按钮类型提示信息24第4章程序控制结构格式：<变量>=MsgBox(<消息内容>[,<对话框类型>][,<对话框标题>][,<帮助文件名,帮助文件编号>])<消息内容>：指定在对话框中出现的文本。<对话框类型>：设置对话框中出现的按钮和图标，一般有3个参数，分别用来指定按钮类型、图标类型和默认按钮。<对话框标题>：在对话框标题栏中显示的内容。<帮助文件名,帮助文件编号>：由帮助文件的作者指定的帮助文件编号。说明4.1.2数据的输入/输出操作－MsgBox函数25第5章顺序结构MsgBox对话框的按钮类型(P103)值常量按钮类型0VbOkOnly只有确定按钮1VbOkCancel有确定和取消按钮2VbAbortRetryIgnore有终止、重试和忽略按钮3VbYesNoCancel有是、否和取消按钮4VbYesNo有是和否按钮5VbRetryCancel有重试和取消按钮4.1.2数据的输入/输出操作－MsgBox函数26第4章程序控制结构MsgBox对话框的图标类型

值常量图标类型16VbCritical停止图标32VbQuestion问号图标48VbExclamantion感叹号图标64VbInformation信息图标值常量默认按钮0VbDefaultButton1指定默认按钮为第一按钮256VbDefaultButton2指定默认按钮为第二按钮512VbDefaultButton3指定默认按钮为第三按钮4.1.2数据的输入/输出操作－MsgBox函数MsgBox对话框的默认按钮

27第4章程序控制结构MsgBox()函数的返回值按钮返回值常量“确定”按钮1VbOk“取消”按钮2VbCancel“终止”按钮3VbAbort“重试”按钮4VbRetry“忽略”按钮5VbIgnore“是”按钮6VbYes“否”按钮7VbNo若不需要使用返回值，则可将MsgBox作为命令使用。MsgBox的命令形式为：MsgBox<消息内容>[,<对话框类型>][,<对话框标题>]4.1.2数据的输入/输出操作－MsgBox函数28第4章程序控制结构【例4-11】在下列程序中有两个命令按钮，一个是显示字符串按钮，另一个是退出按钮，当用户单击退出按钮或窗口标题条右上角的关闭图标时，均弹出确认消息框。4.1.2数据的输入/输出操作－MsgBox函数29第4章程序控制结构PrivateSubCmdDisplay_Click()Print"VisualBasic欢迎您！"EndSub

PrivateSubCmdExit_Click()UnloadForm1'从内存中卸载窗体1EndSubPrivateSubForm_Unload(CancelAsInteger)a=MsgBox("真的要退出吗？",256+4+32,"请确认")

Ifa=6ThenCancel=0ElseCancel=1