清华大学VB经典教案第三节——顺序结构程序设计.ppt

第3章 顺序结构程序设计,一个Visual Basic应用程序由多个过程组成，在过程中程序的 控制结构仍然采用结构化程序设计的三种基本结构：顺序结构、 选择结构、循环结构。,3.1 文本与按钮控件 3.1.1 标签 标签主要用于显示只读的文本信息，即标签只能显示文本，不能对显示的文本进行编辑。 1标签的常用属性 （1）Caption属性：在标签中显示的文本内容（标题）。 （2）Alignment属性：标签的对齐方式：左对齐（0-Left Justify）、右对齐（1-Right Justify）、居中（2-Center）。 （3）BorderStyle属性：标签的边框样式，默认为无边框。 （4）BackStyle属性：标签透明或不透明，默认为不透明，会挡住它后面的控件。,（5）AutoSize属性：标签是否会根据Caption属性指定的标题自动改变标签水平方向的大小。 （6）WordWrap属性：标签是否会根据Caption属性指定的标题自动改变标签垂直方向的大小。 2标签的常用事件 标签的常用事件是Click、DblClick事件。,【例3-1】利用标签的BackStyle属性设计文字的阴影效果。,3.1.2 文本框 文本框是一个文本编辑区域，在程序运行期间都可以在这个区域中输入、编辑和显示文本。 1文本框的常用属性 （1）Text属性 该属性用于设置或返回文本框中输入或显示的内容。 （2）MaxLength属性 一般用于文本框作为密码输入框时，限制输入文本的长度。 （3）MultiLine属性 文本框是否可以输入或输出多行文本，该属性默认值为False，则在文本框中只能输入单行文本。 （4）PasswordChar属性 该属性可用于密码输入，如果把PasswordChar属性设置为一个字符，如：星号“*”，则在文本框中键入字符时，显示的不是键入的字符，而是被设置的字符（如：星号）。 注意：文本框的MultiLine属性和PasswordChar属性不能同时使用。,（5）ScrollBars属性 该属性用于确定文本框是否有滚动条，默认为文本框没有滚动条，可以给文本框设置水平滚动条、垂直滚动条或者同时具有水平和垂直滚动条。 注意：只有当MultiLine属性值被设置为True时，才能用ScrollBars 属性为文本框设置滚动条。 （6）SelStart属性 文本框中选中文本的开始位置。 （7）SelLength属性 文本框中选中文本的长度（字符数）。 （8）SelText属性 文本框中选中的文本。 （9）Locked属性 该属性用于指定文本框是否可编辑（锁定）。当Locked属性值为False（默认值）时，可以编辑文本框中的文本；当Locked属性值为True时，不能编辑文本框中的文本。类似地，当Enabled属性值为True（默认值）时，可以编辑文本框中的文本；当Enabled属性值为False时，不能编辑文本框中的文本。,2文本框的常用事件 （1）Change事件 当改变文本框中的内容时触发其Change事件。 （2）KeyPress事件 当焦点在文本框中时，按下大小写字母键、数字键、标点符号键、空格键、Esc键、BackSpace键、Enter键、Tab键时触发其KeyPress事件。 （3）GotFocus事件 当文本框得到焦点时触发其GotFocus事件。 （4）LostFocus事件 当文本框失去焦点时触发其LostFocus事件。 3文本框的常用方法 文本框的常用方法是SetFocus，该方法使文本框获得焦点。,3.1.3 命令按钮 命令按钮常用于执行用户的命令。 1命令按钮的常用属性 （1）Caption属性 在命令按钮上显示的文本内容（标题）。 （2）Default属性 是否为默认命令按钮，当一个命令按钮的Default属性值设为True时，当焦点不在任何一个命令按钮上时，按下回车键，相当于单击该命令按钮。在一个窗体中，最多只能有一个命令按钮的Default属性值被设置为True。 （3）Cancel属性 是否为取消命令按钮，当一个命令按钮的Cancel属性值设置为True时，任意时刻按下Esc键，相当于单击该命令按钮。在一个窗体中，最多只能有一个命令按钮的Cancel属性值被设置为True。,（4）Style属性 设置文本框的样式。可以实现两种样式：0-Standard（标准样式，默认）、1-Graphical（图形样式）。 （5）Picture属性 用该属性可以给命令按钮指定一个图形。为了使用这个属性，必须把Style属性设置为图形样式。 （6）DownPicture属性 设置当控件被单击并处于按下状态时在控件中显示的图形。为了使用这个属性，必须把Style属性设置为1-Graphical，否则DownPicture属性将被忽略。 （7）DisabledPicture属性 设置当命令按钮被禁止使用，即Enabled属性值为False时，在命令按钮上显示的图形。和前两个属性一样，必须把Style属性设置为l-Graphical才能使DisabledPicture属性生效。,（8）Value属性 该属性仅在程序运行时有效，当Value属性值为True时，相当于Click该命令按钮。该属性一般用于模拟产生用户的Click事件，可用于编写演示程序。 2命令按钮的常用事件 命令按钮最常用的事件是Click事件，命令按钮不支持DblClick事件。 3命令按钮的常用方法 命令按钮的SetFocus方法可以使该命令按钮获得焦点。,【例3-2】输入球的半径，计算并输出球的体积和表面积。,3.2 焦点与Tab键顺序 3.2.1 焦点 焦点的作用是使窗体中的某个控件成为“当前”控件或“活动”控件，这样，该控件将可以接收用户的输入。 1与焦点有关的常用事件 当对象得到焦点时，将触发其GotFocus事件；而当对象失去焦点时，将触发其LostFocus事件。 2与焦点有关的常用方法 在程序代码中使用对象的SetFocus方法，可以使对象获得焦点。 下面的操作可以使对象获得焦点： （1）程序运行时单击该对象； （2）程序运行时按下访问键选择该对象； （3）程序运行时按Tab键。,注意： （1）只有当控件的Enabled属性和Visible属性值均为True时，控件才能接收焦点； （2）并不是所有对象都可以接收焦点，某些控件，如：框架、标签、菜单控件、直线、形状、图像控件和计时器控件都不能接收焦点； （3）焦点在不同控件上的表现形式不同，如：文本框的焦点是一个闪烁的光标，命令按钮、复选框、单选按钮的焦点是一个虚线框。 3.2.2 Tab键顺序 Tab键顺序就是按Tab键时焦点在控件之间移动的顺序，一般情况下，Tab键顺序由控件建立时的先后顺序确定。,与控件的Tab键顺序有关的属性如下： （1）TabIndex属性 控件的TabIndex属性决定了按Tab键时控件获得焦点的先后顺序。默认情况下，第一个添加的控件其TabIndex属性值为0，第二个添加的控件其TabIndex属性值为1，以此类推。当改变某个控件的TabIndex属性值时，Visual Basic会自动调整其他控件的TabIndex属性值。 （2）TabStop属性 控件的TabStop属性决定了焦点是否会停在该控件上，当控件的TabStop属性值为False时，按下Tab键，焦点将跳过该控件。,3.3 InputBox函数 用InputBox函数（输入框函数）产生一个输入框，可以输入一个数据（文本），用户输入数据后，按回车键或单击“确定”按钮，将输入数据赋给赋值符号前的变量。其语法格式如下： 变量名=InputBox(,) 其中，是必选参数，是字符串，在其中可以含有回车符Chr(13)、换行符Chr(10)，或系统符号常量vbCrLf，实现多行文本的显示；后两个参数是可选参数，可以省略，但如果仅仅只是省略第二个参数，则第二个参数前的逗号不能省略。 InputBox函数的三种简化形式： （1）变量名=InputBox() （2）变量名=InputBox(,) （3）变量名=InputBox(, ,),【例3-3】用InputBox函数输入长方形的长和宽，计算并输出长方形的面积。,3.4 数据输出 3.4.1 与输出有关的属性和方法 1与输出有关的属性 CurrentX、CurrentY属性用于设置或返回在窗体、图片框或打印机上当前输出位置的横坐标、纵坐标。 2与输出有关的方法 TextWidth、TextHeight方法分别返回文本或字符串的宽度和高度，这两个返回值的大小与窗体、图片框或打印机的字形属性有关。TextWidth、TextHeight方法的语法格式如下： = .TextWidth (字符串) = .TextHeight(字符串) 其中，可以是窗体、图片框或打印机，如果是当前窗体可省略。,3.4.2 用Print方法输出数据 1Print方法 Print方法的语法格式如下： .Print Spc(n)|Tab(n);|, 说明： （1）可以是窗体、图片框或打印机，如果是当前窗体可省略； （2）中的表达式可以是算术表达式、字符串表达式、关系表达式或布尔表达式。如果是字符串，则原样输出（将双引号去掉后直接输出）；如果是正数，在数值前有一个空格； （3）当输出多个表达式时，如果表达式之间用逗号“,”分隔，则以标准格式（14个字符的宽度）输出；如果表达式之间用分号“;”分隔，则以紧凑格式（连续）输出；,（4）如果Print方法的行尾有逗号，则下一个Print方法的输出内容，接着当前输出内容的后面，以标准格式输出；如果Print方法的行尾有分号，则下一个Print方法的输出内容，接着当前输出内容的后面，以紧凑格式输出；如果Print方法的行尾，既没有逗号也没有分号，则自动换行； （5）如果省略表达式，则输出一个空行； （6）Print方法后的表达式是输出表达式的计算结果。,注意： （1）输入关键字Print时，可以只输入一个“？”，Visual Basic会自动将其转换为Print； （2）若要在Form_Load事件过程中，在窗体或图片框中使用Print方法输出数据，则必须将窗体或图片框的AutoRedraw属性值设为True（默认值为False），否则，在窗体或图片框中使用Print方法输出的数据将消失。,【例3-4】窗体输出。在窗体的中央位置输出“计算机等级考试”，如图3-5所示。,【例3-5】图片框输出。在窗体上画1个图片框Picture1，在图片框的中央位置输出“计算机等级考试”，如图3-6所示。,2与Print方法有关的函数 （1）Tab(n)函数 从输出对象左边的第n列或第n个字符的位置开始输出。 （2）Spc(n)函数 输出n个空格。 注意：在Print方法中，使用这两个函数时，输出表达式之间要用分号作为分隔符。 3窗体或图片框的清除方法 Cls方法可以清除窗体或图片框中用Print方法和图形方法在程序运行时所产生的文本或图形，清除后的区域以背景色填充。Cls方法的语法格式如下： .Cls 其中，可以是窗体或图片框，如果省略，则清除当前窗体上用Print方法和图形方法在程序运行时所产生的文本或图形。,【例3-6】用Print方法在窗体上输出，如图3-7所示。,3.4.3 MsgBox函数 MsgBox函数（消息框函数）用于实现信息提示以及与用户的信息交互功能。MsgBox函数的语法格式如下： 变量名=MsgBox(,) 其中，是必选参数，是字符串，在其中可以含有回车符Chr(13)、换行符Chr(10)，或系统符号常量vbCrLf，实现多行文本的显示；后两个参数是可选参数，可以省略，但如果仅仅只是省略第二个参数，则第二个参数前的逗号不能省略。由三个整数值组成：按钮类型、图标类型、默认按钮，见表3-3，这三个数值可以用“+”号连接成一个参数。,MsgBox函数的三种简化形式： （1）变量名= MsgBox () （2）变量名= MsgBox (,) （3）变量名= MsgBox (, , ),3.4.4 MsgBox语句 如果不需要返回值，则可以使用MsgBox语句，其语法格式如下： MsgBox , 注意： （1）MsgBox语句后没有圆括号，有一个空格，其余参数的含义以及MsgBox语句的简化形式与MsgBox函数完全一致； （2）MsgBox语句仅仅用于实现信息提示功能。,3.5 打印机输出 在Visual Basic应用程序中的打印机输出有两种方式：直接输出和窗体输出。 3.5.1 直接输出 所谓直接输出，就是把信息直接送往打印机打印，使用的方法仍然是Print方法，只是把Print方法的对象改为Printer，其语法格式如下： Printer.Print Spc(n)|Tab(n);|,在打印机对象中，常用的属性和方法如下： 1Page属性 Page属性返回当前正在打印的页码，其语法格式如下： Printer.Page 2NewPage方法 NewPage方法用于实现换页操作，其语法格式如下： Printer.NewPage 3EndDoc方法 EndDoc方法用于结束文档打印，其语法格式如下： Printer.EndDoc,【例3-7】直接打印输出。单击窗体时，在打印机的中央位置输出“计算机等级考试”。,3.5.2 窗体输出 窗体输出是先把要输出的信息输出到窗体上，然后再用窗体的PrintForm方法把窗体上的内容打印出来，其语法格式如下： .PrintForm,PrintForm方法自动调用EndDoc方法清空打印机。 说明： （1）为了使用窗体输出，必须在属性窗口中将要打印窗体的AutoRedraw属性值设置为True，该属性的默认值为False； （2）用PrintForm方法不仅可以打印窗体上的文本，而且可以打印出窗体上的任何可见的控件及图形。,【例3-8】窗体打印输出。单击窗体时，在窗体的中央位置输出“飘扬的旗帜”，如图3-9所示；双击窗体时，将窗体和窗体上的内容打印出来。,3.6 计时器控件 计时器控件每隔一个计时间隔（Interval属性的值）自动产生一个Timer事件，Timer事件是由计算机系统产生的系统事件。计时器控件运行时不显示，计时器控件一般用于实现动态时钟和动画。 1计时器控件的常用属性 Enabled属性可以控制计时器控件是否计时，默认值为True。 Interval属性是计时间隔，单位为毫秒，默认值为0，不产生Timer事件。 2计时器控件的常用事件 计时器控件只有一个事件：Timer事件。,【例3-9】动态数字时钟。,3