第4章 基本程序设计结构.ppt

1第第4章章 基本程序设计结构基本程序设计结构本章学习目标：本章学习目标：1掌握赋值语句，掌握赋值语句，InputBox()、MsgBox()函数；函数；2掌握掌握Print方法的使用；方法的使用；3理解选择结构及其特点；理解选择结构及其特点；4掌握常用的几掌握常用的几 种选择结构；种选择结构；5理解选择的构成及其执行过程；理解选择的构成及其执行过程；6理解循环结构及其特点；理解循环结构及其特点；7掌握常用的几种循环结构；掌握常用的几种循环结构；8理解嵌套的构成及其执行过程。理解嵌套的构成及其执行过程。24.1 顺序结构程序设计顺序结构程序设计 各条语句将按照在程序中出现的位置依次执行，各条语句将按照在程序中出现的位置依次执行，这就是最简单的顺序结构这就是最简单的顺序结构 34.1.1 赋值语句赋值语句赋值语句赋值语句：将右边表达式的值赋给左边的变量。：将右边表达式的值赋给左边的变量。格式：格式：Let 变量名变量名=表达式表达式 Let 对象名对象名.属性名属性名=表达式表达式通常都省略通常都省略Let关键字。关键字。功能功能:程序在执行过程中，首先计算右边表达式的值，然后将表程序在执行过程中，首先计算右边表达式的值，然后将表达式的值赋值给变量名或指定对象的属性。达式的值赋值给变量名或指定对象的属性。例如：给整型变量例如：给整型变量x赋值赋值67：Dim x As Integer Let x=6744.1.1 赋值语句赋值语句(续续)例如：给文本框的例如：给文本框的Text属性赋值属性赋值欢迎使用欢迎使用Visual Basic 6.0！的语句表达式为：的语句表达式为：Text1.Text=欢迎使用欢迎使用 Visual Basic 6.0！“说明：说明：(1)Let 是赋值语句的关键字，是一个可选项，通常省略是赋值语句的关键字，是一个可选项，通常省略;(2)当表达式为数值型且与变量的精度不相同时，强制转换成左当表达式为数值型且与变量的精度不相同时，强制转换成左边变量的精度。例如：边变量的精度。例如：iA%=4.7 iA是整型变量，是整型变量，iA中中的结果是的结果是5;(3)当表达式是数字字符串，左边变量是数值类型时，自动转换当表达式是数字字符串，左边变量是数值类型时，自动转换成数值类型再赋值；但当表达式有非数字字符或空串时，则成数值类型再赋值；但当表达式有非数字字符或空串时，则出错。出错。54.1.1 赋值语句赋值语句(续续)例如；例如；n%=“123”n中的结果是中的结果是123，与，与 n%=Val(123)效果相同效果相同 n%=1a23 出现出现“类型不匹配类型不匹配”的错误的错误(4)赋值语句中的赋值语句中的“=”与关系运算符中的与关系运算符中的“=”的作用截然不同。的作用截然不同。例如：例如：A=7=9 其中，第一个其中，第一个“=”是赋值运算符，第二个是赋值运算符，第二个“=”是关系运算符。是关系运算符。64.1.1 赋值语句赋值语句(续续)赋值号左边只能是变量，不能是表达式、常量赋值号左边只能是变量，不能是表达式、常量。如下面的赋。如下面的赋值语句是错误的。值语句是错误的。sin(x)=x+y 左边是表达式左边是表达式 5=sqr(s)+a+b 左边是常量左边是常量 x+y=a+b 左边是表达式左边是表达式(5)不能在同一语句中给多个变量赋值。例如：不能在同一语句中给多个变量赋值。例如：a=b=c=1 右右边两个边两个“=”作为关系运算符处理，先进行作为关系运算符处理，先进行b=c的的比较，的的比较，结果为结果为true(-1)；接着进行；接着进行True=1的比较，结果为的比较，结果为False(0)；最后将；最后将false的值赋给的值赋给a。74.1.1 赋值语句赋值语句(续续)(6)当逻辑型赋值给数值型时，当逻辑型赋值给数值型时，True转换为转换为-1，False转换为转换为0；反之，当数值型赋给逻辑型时，非；反之，当数值型赋给逻辑型时，非0转换为转换为True，0转换转换为为False。(7)任何非字符类型的值赋给字符变量时，系统自动转换为任何非字符类型的值赋给字符变量时，系统自动转换为字符类型。字符类型。注意：注意：在在Visual Basic中，如果变量未被赋值而直接引用，则中，如果变量未被赋值而直接引用，则数值型变量的值为数值型变量的值为0，字符型变量的值为空串，字符型变量的值为空串，逻辑型变，逻辑型变量的值为量的值为False。84.1.2数据的输出数据的输出 Print方法可以用于在窗体、图片框和打印机以及方法可以用于在窗体、图片框和打印机以及Debug窗口上显窗口上显示数据。示数据。1.Print方法语法格式方法语法格式 对象名对象名.Print，|；其中，表达式列表是显示或打印的输出项。如果省略，则显示其中，表达式列表是显示或打印的输出项。如果省略，则显示(输输出出)一个空行。一个空行。例如例如：Form1.Print Visual Basic 在在Form1窗体中显示窗体中显示“Visual Basic”Picture1.Print Visual Basic 在图片框在图片框Picture1中显示中显示“Visual Basic”Print Visual Basic 在当前窗体中显示在当前窗体中显示“Visual Basic”9Print方法使用说明方法使用说明使用说明：使用说明：（1）对象名对象名.可以是窗体名、图片框名，也可以是立即窗口可以是窗体名、图片框名，也可以是立即窗口“Debug”。若省略对象，则表示在当前窗体上输出。若省略对象，则表示在当前窗体上输出。（2）“输出表列输出表列”是一个或多个表达式，省略为空行，若是是一个或多个表达式，省略为空行，若是多个表达式可以使用逗号（，）、分号（；）或空格分开。多个表达式可以使用逗号（，）、分号（；）或空格分开。其中：其中：；（分号或空格）；（分号或空格）:表示光标定位在上一个显示的字符后；表示光标定位在上一个显示的字符后；，（逗号），（逗号）：表示光标定位在下一个打印的开始位置处，打印：表示光标定位在下一个打印的开始位置处，打印区间隔为区间隔为14列。列。（3）Print方法具有计算和输出的双重功能，对于表达式，则方法具有计算和输出的双重功能，对于表达式，则先计算后输出。先计算后输出。例如：例如：x5；y10Print(x+y)/3 输出结果为输出结果为5。10与与Print有关的一些标准函数有关的一些标准函数 可用可用Print方法配合方法配合Tab、Spc函数，使信息按指定的格式函数，使信息按指定的格式输出。输出。（1）Tab 函数函数 语法格式语法格式：Tab(n)Tab 函数函数把光标移到由参数把光标移到由参数 n 指定的位置，并从该位置输出信指定的位置，并从该位置输出信息。要输出的信息放在息。要输出的信息放在 Tab函数的后面，并用分号隔开。例函数的后面，并用分号隔开。例如：如：Print Tab(25);1250 将在第将在第25个字符位置开始输出数值个字符位置开始输出数值1250。11与与Print有关的一些标准函数有关的一些标准函数【例例4-1】设有某班级的部分学生名单如下：姓名、年龄、籍贯、设有某班级的部分学生名单如下：姓名、年龄、籍贯、专业、黎明专业、黎明23北京计算机张华北京计算机张华22上海生物技术刘娟上海生物技术刘娟22南京经济南京经济学杨萍学杨萍23云南外语编程序显示表格中的数据。云南外语编程序显示表格中的数据。姓名姓名年龄年龄籍贯籍贯专业专业黎明黎明23北京北京计算机计算机张华张华22上海上海生物技术生物技术12与与Print有关的一些标准函数有关的一些标准函数Private Sub Form_Click()FontName=楷体楷体_GB2312 显示输出何种字体显示输出何种字体 FontSize=12 显示输出字体大小显示输出字体大小Print 姓名姓名;Tab(8);年龄年龄;Tab(16);籍贯籍贯;Print Tab(24);专业专业 PrintPrint 黎明黎明;Tab(8);18;Tab(16);北京北京;Tab(24);计算机计算机Print 张华张华;Tab(8);17;Tab(16);上海上海;Tab(24);生物技术生物技术Print 刘娟刘娟;Tab(8);19;Tab(16);南京南京;Tab(24);经济学经济学Print 杨萍杨萍;Tab(8);19;Tab(16);云南云南;Tab(24);外语外语图图4-1 程序运行结果程序运行结果End Sub13与与Print有关的一些标准函数有关的一些标准函数（2）Spc 函数函数语法格式：语法格式：Spc(n)在在Print的输出中，的输出中，Spc函数是在输出下一个表函数是在输出下一个表达式之前首先跳过达式之前首先跳过n个空格。个空格。图4-1 程序运行结果144.1.3 用户交互函数和过程用户交互函数和过程1、InputBox（）函数（）函数 InputBox函数是从键盘输入数据的函数。利用它可产生一个对函数是从键盘输入数据的函数。利用它可产生一个对话框，提示用户输入数据，并返回用户所输入的内容，返回话框，提示用户输入数据，并返回用户所输入的内容，返回数据为字符串。数据为字符串。语法格式：语法格式：InputBox Prompt,Title,Default,xpos,ypos,helpfile,context 说明：说明：（1）Prompt是一个字符串，用来指定输入框中显示的信息。是一个字符串，用来指定输入框中显示的信息。如果如果Prompt的内容超过一行，可以在每一行之间用回车符的内容超过一行，可以在每一行之间用回车符(chr(13)、换行符、换行符(chr(10)或回车与换行的组合或回车与换行的组合(chr(13)+chr(10)将各行分割开来；将各行分割开来；154.1.3 用户交互函数和过程（续）用户交互函数和过程（续）（2）Title用来指定输入框的标题，如果缺省该参数，则用工程用来指定输入框的标题，如果缺省该参数，则用工程名作为标题；名作为标题；（3）Default是一个字符串，用来指定文本框中的缺省内容，该是一个字符串，用来指定文本框中的缺省内容，该参数缺省为空；参数缺省为空；（4）xpos和和ypos是数值表达式，必须成对出现或成对缺省。这是数值表达式，必须成对出现或成对缺省。这两个数值用来指定输入框左上角相对屏幕的位置，输入框的默两个数值用来指定输入框左上角相对屏幕的位置，输入框的默认位置是水平方向居中，垂直方向距下边大约三分之一处；认位置是水平方向居中，垂直方向距下边大约三分之一处；164.1.3 用户交互函数和过程（续）用户交互函数和过程（续）【例例4-2】单击窗体将出现如图单击窗体将出现如图4-2所示的输入框。单击所示的输入框。单击“确确定定”按钮，可将输入的内容显示在窗体上。按钮，可将输入的内容显示在窗体上。程序代码：程序代码：Private Sub Form_Click()Dim username As Stringusername=InputBox(请输入要查询的姓名，然后按确定请输入要查询的姓名，然后按确定按钮按钮,输入提示输入提示,Wang)Print usernameEnd Sub174.1.3 用户交互函数和过程（续）用户交互函数和过程（续）InputBox Prompt,Title,Default,xpos,ypos,helpfile,context说明：说明：(1)用户在输入文本框中输入数据后，如果单击用户在输入文本框中输入数据后，如果单击“确定确定”按钮或按钮或按回车键，即表示确认，并返回包含文本框内容的字符串；按回车键，即表示确认，并返回包含文本框内容的字符串；如果单击如果单击“取消取消”或按或按Esc键，则放弃当前输入，并返回一键，则放弃当前输入，并返回一个空字符串。个空字符串。(2)每执行一次每执行一次InputBox函数，只能输入一个值，如果需要