Visual Basic(第三章).doc

第3章 顺序结构顺序结构是结构化程序设计的3种基本结构之一。顺序结构中的语句按照其出现的先后顺序依次执行，是程序设计中最简单、最常用的基本结构。3.1 信息的输出Visual Basic的输出操作包括文本信息的输出和图形图像的输出，本章主要介绍文本信息的输出。3.1.1 使用Print方法一、输出到窗体（Form）Print方法的语法格式：对象名称.Print 表达式列表 ,|;说明：（1）对象名称：可以是窗体（Form）、图片框（PictureBox）或打印机（Printer）。窗体为缺省对象。（2）表达式列表：一个或多个数值表达式或字符串。省略时将输出一个空行。（3）使用逗号分隔符，各输出项按标准格式显示（14个字符宽度为一标准区段）；使用分号分隔符，则按紧凑格式输出（数值数据的前面有一个符号位，后面有一个空格，字符串前后都没有空格）。（4）语句行末尾没有分隔符时，Print方法将自动换行。语句行末尾有分隔符时，下一个Print在原有输出信息后面按标准格式或紧凑格式输出。（5）Print方法具有计算和输出的双重功能，对于表达式，总是先计算后输出。【例3.1】使用Print方法在窗体中直接输出字符串或数值表达式的值（演示设计过程）。设计步骤：（1）建立应用程序用户界面“新建”工程，在窗体中增加一个命令按钮Command1。（2）设置对象属性属性设置对 象属 性属性值Command1Caption欢迎（3）设计代码编写命令按钮Command1的Click事件代码：Private Sub Command1_Click() Print Print 2 * 3 + 4 =; 2 * 3 + 4 使用“;”分隔符 Print Print 欢迎学习 Print , Visual 使用“,”分隔符 Print , , Baisc 使用两个“,”分隔符 Print Print 欢迎学习, 在行末使用“,”分隔符 Print Visual; BaiscEnd Sub二、与Print方法有关的函数1Tab函数格式：Tab(n)n为数值表达式（自动取整），表示显示或打印的起始位置（列），当由多个Tab函数时，各输出项之间用分号隔开。例如：Print Tab(10); 姓名; Tab(20); 性别;Tab(30); 年龄如果当前的显示位置已经超过n，则自动下移一行，例如：Print Tab(10); 姓名; Tab(20); 性别;Tab(15); 年龄2Spc函数格式：Spc(n)n为数值表达式（自动取整），表示在显示或打印时下一个表达式之前插入的空格数，例如：Print Spc(9); 姓名; Spc(6); 性别; Spc(6); 年龄或者：Print Tab(10); 姓名; Spc(6); 性别; Spc(6); 年龄【例3.2】在例3.1中使用Tab函数与Spc函数（演示）。三、输出到图片框（PictureBox）【例3.3】使用Print方法在图片框中输出字符串或数值表达式的值。设计步骤如下：（1）建立应用程序用户界面“新建”工程，在窗体中增加一个图片框Picture1和一个命令按钮Command1。（2）设置对象属性属性设置对 象属 性属性值Picture1BackColor（白色）Command1Caption欢迎（3）设计代码编写命令按钮Command1的Click事件代码：Private Sub Command1_Click() Picture1.Print Picture1.Print Tab(5); 20 * 3 + 4 =; 20 *3 + 4 Picture1.Print Picture1.Print Tab(7); 欢迎学习; Tab(17); Visual Baisc Picture1.Print Picture1.Print Tab(7); 欢迎学习; Spc(2); Visual; Spc(2); BaiscEnd Sub四、清除方法Cls清除Form或PictureBox中由Print方法和图形方法在运行时所生成的文本或图形，格式：对象名称. Cls【例3.4】使用Cls方法清除窗体中由Print方法所生成的文本。增加一个命令按钮Command2（清除），编写代码：Private Sub Command2_Click() Cls或Picture1.ClsEnd Sub3.1.2 使用“标签”控件的输出一、标签的外观标签的常用属性（参考教材P.200）：Caption属性、BackColor属性、ForeColor、Font属性BackStyle属性0（透明）1（不透明）BorderStyle属性0（无边框）；1（单线边框）。Alignment属性0（左对齐）；1（右对齐）；2（居中）。【例3.5】有框和无框的标签。设计步骤如下：（1）建立应用程序用户界面“新建”工程，增加一个命令按钮Command1、两个标签Label1和Label2。（2）设置对象属性属性设置对 象属 性属性值Command1Caption改变(&G)Label1Caption设计时设置的标签内容Alignment2 CenterLabel2Caption设计时设置的标签内容BorderStyle1 Fixed SingleBackColor&H800000 （3）编写程序代码编写命令按钮Command1的单击（Click）事件代码：Private Sub Command1_Click() Label1.Caption = 运行时改变标签的标题End Sub其中：“&G”使字母G成为按钮的“热键”。二、使标签适应内容使标签适应内容的两个属性：WordWrap属性（垂直扩充）True；FalseAutoSize属性（水平扩充）True；False【例3.6】在例3.5中修改标签的属性，使之自动改变尺寸以适应其内容。（选讲）修改Label2的属性设置：修改属性对 象属 性属性值Label2AutoSizeTureWordWrapTure修改Command1的Click事件代码：Private Sub Command1_Click() Label2.Caption = 对于一个较长的或在运行时可能 + _变化的标题，标签控件提供了两种属性：AutoSize和 + _WordWrap来改变控件尺寸以适应较长或较短的标题。End Sub3.2 基本语句与书写格式3.2.1 赋值语句LET格式：Let名称 = 表达式说明：（1）Let：可选项。（2）名称：变量或属性的名称。（3）表达式：算术表达式、字符串表达式、关系表达式、逻辑表达式、日期表达式等。（4）赋值语句先计算表达式的值，然后结果赋给等号左边的变量或对象的属性。（5）赋值号两边的数据类型必须一致。（6）赋值号不是数学上的等号。【例3.7】已知半径r = 15厘米，求圆面积、球体积和球表面积。分析：设圆面积、球体积和球表面积分别为：S、V和F：S =r2、V = r3、F = 4r2设计步骤：（1）建立应用程序用户界面“新建”工程，增加1个命令按钮Command1、4个标签Label1 Label4。（2）设置对象属性属性设置对 象属 性属性值Command1Caption计算Label1Caption如果半径是15，则：（3）编写程序代码编写命令按钮Command1的Click事件代码：Private Sub Command1_Click() r = 15 Const pi = 3.14159 S = pi * r 2 V = 4 / 3 * pi * r 3 F = 4 * pi * r 2 Label2.Caption = 圆面积是: & S 使用连接符&强制转换类型 Label3.Caption = 球体积是: & V Label4.Caption = 球表面积是: & FEnd Sub3.2.2 格式输出函数格式：Format(表达式, 格式字符串)说明：（1）表达式：可以是数值型、日期型或字符型的表达式。（2）格式字符串：由专门的格式说明字符组成的字符串常量（必须放在双引号中）或变量。（3）格式输出函数Format()返回一个Variant类型的值。（对教材P.51P.53中的表3-6表3-8说明并演示）【例3.8】在例3.7中使用格式输出函数。（看一下教材中的图3-11输出结果）3.2.3 复合与续行一、复合复合语句将多条语句写在同一行上。语句之间要用冒号“:”隔开二、续行续行将一条语句写在多行。续行符为“_”。但是，在“_”的前面至少要加一个空格。3.2.4 卸载对象与结束程序一、Unload语句格式：Unload 对象名说明：（1）对象名：要卸载的窗体或控件的名称。【例3.9】使用Unload命令关闭程序窗体。在窗体中创建一个命令按钮（例如Command2），编写其Click事件代码：Private Sub Command2_Click() Unload Me Me指按钮所在窗体End Sub二、结束过程语句格式：Exit Sub三、结束语句格式：End3.2.5 注释与暂停一、注释语句格式1： Rem 注释内容格式2： 注释内容说明：（1）注释内容：需要注释的文本。（2）Rem关键字必须放在语句的开头。例如：Rem 本程序用来计算圆面积和球的体积S = pi * r 2 计算圆的面积V = 4 / 3 * pi * r 3 : Rem 计算球的体积二、暂停语句格式：Stop说明：（1）Stop语句将解释程序置为中断（Break）模式，并保护程序现场。（2）生成可执行文件（EXE）之前，应删除所有Stop语句。3.3 信息的输入3.3.1 使用“文本框”控件的输入一、 使用文本框控件文本框的主要属性（参考教材8.4.2）：Text属性文本框中显示的信息。可用3种方式设置：（1）通过“属性”窗口（2）通过代码设置（3）运行时由用户修改。Locked属性（锁定）True；False。MultiLine属性（多行文本）True；False。ScrollBars属性（滚动条）0（无）；1（水平）；2（垂直）；3（水平与垂直）。注意：ScrollBars属性仅在MultiLine属性设置为True时有效。SetFocus方法时文本框获得焦点。【例3.10】在例3.7中利用文本框作数据的输入和输出。（按教材P.56设计窗体界面，设置控件属性，演示程序。）命令按钮Command1的Click事件代码：Private Sub Command1_Click() r = Text1.Textr = TextR.Text Const pi = 3.14159 S = pi * r 2 V = 4 / 3 * pi * r 3 删去 F = 4 * pi * r 2 删去 Text2.Text = Format(S, #.#)TextS.Text = Format(S, #.#) Text3.Text = Format(V, #.#)删去 Text4.Text = Format(F, #.#)删去 Text1.SetFocusEnd Sub窗体的Activate事件代码：Private Sub Form_Activate() Text1.SetFocusEnd Sub【例3.11】单位发工资，设某职工应发工资x元，试求各种票额钞票总张数最少的付款方案。注意：Text2 Text7的 Locked属性设置为：True（文本内容只读）（讲解此题的算法）编写命令按钮Command1的Click事件代码：Private Sub Command1_Click() x = Text1.Text x为实发工资数 y = x 100 : Text2.Text = y 求百元票张数并显示 x = x - 100 * y 求剩余款项 y = x 50 : Text3.Text = y 求五十元票张数并显示 x = x - 50 * y 求剩余款项 y = x 10 : Text4.Text = y 求十元票张数并显示 x = x - 10 * y 求剩余款项 y = x 5 : Text5.Text = y 求五元票张数并显示 x = x - 5 * y 求剩余款项 y = x 2 : Text6.Text = y 求二元票张数并显示 x = x - 2 * y : Text7.Text = x 求一元票张数并显示 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Text1.SetFocusEnd Sub编写文本框Text1的Change事件代码：Private Sub Text1_Change() Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End Sub二、多行文本框文本框在缺省情况下只显示单行文本，且不显示滚动条。通过设置MultiLine和ScrollBars两种属性（只能在设计程序时设置），可以改变文本框的外观和行为。（演示如何设置多行文本框）3.3.2 使用“框架”控件（教材P.212）框架（Frame）控件是一种容器控件，在框架控件内部的控件可以随控件一起移动，并且受到框架控件某些属性（Visible、Enabled）的控制。在多数情况下，我们利用框架控件将其他控件分成可标识的控件组，而不必响应框架控件的事件。3.3.3 使用对话框 信息对话框（MsgBox） 显示提示信息，接受用户的选择性命令VB对话框 输入对话框（InputBox） 显示提示信息，接受用户输入的数据一、信息对话框（MsgBox）格式：变量= MsgBox（信息内容, 对话框类型, 对话框标题）说明：（1）信息内容：对话框中出现的文本。（2）对话框类型：对话框中出现的按钮和图标。其取值和含义分别见表1表3。表1 参数1 出现按钮值常 量说 明0VbOKOnly确定按钮1VbOKCancel确定和取消按钮2VbAbortRetryIgnore终止、重试和忽略按钮3VbYesNoCancel是、否和取消按钮4VbYesNo是和否按钮5VbRetryCancel重试和取消按钮表2 参数2 图标类型值常量说明16VbCritical停止图标32VbExclamation感叹号（！）图标48VbQuestion问号（？）图标64VbInformation信息图标表3 参数3 默认按钮值常 量说 明0vbDefaultButton1指定默认按钮为第一按钮256vbDefaultButton2指定默认按钮为第二按钮512vbDefaultButton3指定默认按钮为第三按钮上述3种参数值可以相加以达到所需要的样式。（3）对话框标题：对话框标题栏上的内容。（4）Msgbox( )的返回值指明了用户选择的按钮，如表4：表4 函数的返回值返回值常 量按 钮1vbOK确定按钮2vbCancel取消按钮3vbAbort终止按钮4vbRetry重试按钮5vbIgnore忽略按钮6vbYes是7vbNo否（5）不需要返回值时，可使用MsgBox的命令形式：MsgBox信息内容 , 对话框类型, 对话框标题二、输入对话框（InputBox）格式：变量 = InputBox（信息内容 , 对话框标题, 默认内容）说明：（1）信息内容（同MsgBox）（2）