Visual_Basic程序设计课件——第三章

1、第第3章章 顺序结构程序设计顺序结构程序设计本章内容：本章内容：v基本语句的语法格式与应用vPrint方法及其他与Print方法有关的函数v标签、文本框控件的概念vMsgBox与InputBox函数的应用本章重点：本章重点：v掌握Print方法的调用格式及与之有关的函数v掌握标签和文本框的主要属性、方法、事件v掌握InputBox和MsgBox的函数格式及调用方法3.1 基本语句基本语句赋值语句赋值语句 赋值语句是最基本的顺序执行语句，顾名思义，赋值就是把一个值赋予某个变量。变量相当于装东西的容器，赋值的过程就是把东西放进容器的过程。在Visual Basic中，用赋值语句可以把指定的值赋给某

2、个变量或对象的某个属性。 赋值语句的语法格式是：Let= 例如：Dim x As Integer x=2 说明： 1、赋值语句兼有赋值与计算的双重功能，它首先计算出赋值号，即“=”右边“源操作符”的值，然后将值赋给“=”左边的“目标操作符”。 2、“目标操作符”和“源操作符”的数据类型必须一致。 3、赋值语句以关键字Let开头，所以又称“Let语句”，关键字Let可以省略。注释语句注释语句 注释语句就是解释注释语句前面的程序代码，从而提高程序可读性。 注释语句语法格式为：Rem或 例如：Dim num As Integer:Rem 定义num为整型变量。 Dim mum As Integer

3、定义num为整型变量。 说明： 注释语句是非执行语句，仅对程序的有关内容起说明作用。 任何字符如中文、英文及一些符号等都可以放在注释语句中，不会影响程序的运行结果。 注释语句不能放在续行符“_”的后面。暂停语句暂停语句 暂停语句就是暂停程序的执行，以便对程序进行检查和测试。 暂停语句语法格式为：Stop 说明：该语句常用于程序调试，用它来设置断点，当Stop语句执行时，会中断程序运行，并自动打开立即窗口，方便用户对程序代码进行检查和调试。在中断状态下，按F5键可重新启动程序，按F8键可单步执行程序。卸载对象语句卸载对象语句 当程序结束后从内存中卸载窗体或者从内存中卸载某些控件时，要使用卸载对象

4、语句。 卸载对象语句语法格式为：Unload 说明：是要卸载的窗体对象或控件的名称。结束语句结束语句 结束语句通常用来结束一个应用程序的执行，用户可以把它放在事件过程中。 结束语句语法格式为：End 说明： 1、应用程序在执行End语句后，将终止当前的程序，重置所有的变量，并关闭所有的数据文件。 2、没有End语句对程序的运行没有什么影响，但为了保持程序的完整性，应当在程序代码的适当位置添加End语句。 3、End语句除了用来结束程序之外，和其他语句连用时，还可以用来结束一个过程或者语句块。例如：End If表示结束一个If语句块；End Sub表示结束一个Sub过程等等。【例题】变量赋值、注

5、释语句及卸载对象语句的使用3.2 数据输出数据输出PrintPrint方法方法 Print方法可以在窗体上显示字符串和表达式的值，也可以在其他图形对象或打印机上输出信息。 Print方法的语法格式为：.Print,; 说明： 1、“对象名”可以是窗体、立即窗口、图片框或打印机等，缺省情况下为当前窗体。 2、“表达式”可以是数值表达式或字符串表达式，缺省情况下输出一行空格。 3、当输出多个表达式时，各表达式用各种分隔符（逗号、分号或空格）隔开。 4、Print方法具有计算和输出双重功能，对于表达式，先计算后输出。 5、每执行一次Print方法要自动换行，若想在同一行显示，可以在末尾加逗号或分号。

6、【例题】使用Print方法在窗体上直接输出数值表达式或字符串表达式的值。 TabTab函数函数 Tab函数是用来对输出进行定位，作用是把光标移动到由参数n指定的位置，从这个位置开始输出。 Tab函数语法格式为：Tab（） 例如：Print Tab（5）；“a” ；Tab（10）；“b”；Tab（5）；“c” 输出： a b c 说明： 1、参数n为数值表达式，其值为一整数，它是下一个输出位置的列号。 2、当n比行宽大时，输出位置为n Mod 行宽；如果n1，则把输出位置移到第一列。 3、当一个Print方法中有多个Tab函数时，则每个Tab函数对应一个输出项，各输出项之间用分号隔开。SpcSp

7、c函数函数 Spc函数也可以对输出进行定位，作用是提供n个空格键。 Spc函数语法格式为：Spc（） 例如：Print “a” ；Spc（10）；“b”；Spc（5）；“c” 输出：a b c 说明： 1、参数n是一个数值表达式。 2、Spc函数与其他输出项之间用分号隔开。 3、Spc函数和Tab函数的作用相似，可以相互替代，不同的是，Tab函数从对象的左端开始计数，而Spc函数只表示输出项之间的间隔。SpaceSpace函数函数 Space函数与Spc函数类似，都是表示两个输出项之间的间隔。 Space函数语法格式为：Space（） 说明：在程序代码中使用Print方法时，可以用“？”来代替

8、“Print”，VB会自动将“？”转化成“Print”。如果想要在Form_Load事件中使用Print方法，必须使用Show方法或者将窗体的AutoRedraw属性设置为True，否则在Form_Load事件中无法加载Print方法。【例题】使用Tab函数与Spc函数MoveMove方法方法 Move方法主要是用来在程序中移动窗体和控件，并可以改变其大小。 Move方法语法格式如下：对象名.Move 左边距离，上边距离，宽度，高度 说明： 1、“对象名”可以是窗体及除时钟、菜单之外的所有控件，缺省时为窗体。 2、“左边距离”、“上边距离”、“宽度”、“高度”均以Twip（像素）为单位。 3、

9、若“对象名”为窗体，“左边距离”和“上边距离”是相对屏幕而言的，若“对象名”是控件，则它们是相对于窗体而言的。【例题】移动对象，程序运行时使命令按钮移到窗体的中心位置。TextHeightTextHeight和和TextWidthTextWidth方法方法 TextHeight方法和TextWidth方法用于帮助设置坐标，作用为返回一个文本字符串的高度和宽度值。 TextHeight方法语法格式为： 对象名.TextHeight（字符串） TextWidth方法语法格式为： 对象名.TextWidth（字符串）CurrentXCurrentX和和CurrentYCurrentY属性属性 Cur

10、rentX和CurrentY表示当前输出位置的横坐标与纵坐标。文本属性文本属性字体（FontName） 格式为：FontName=“字体类型”字号 格式为：FontSize=“点数” 注：“点数”用来设定字体的大小，默认情况下，系统使用最小的字号：“点数”为8。斜体 格式为：FontItalic=Boolean 注：当Boolean值为True时，文本以斜体字输出，Boolean默认为False。粗体 格式为：FontBold=Boolean 注：当Boolean值为True时，文本以粗体字输出，Boolean默认为False。下划线 格式为：FontUnderline=Boolean 注：当

11、Boolean值为True时，文本加下划线后输出，Boolean默认为False。前景色 格式为：ForeColor=颜色 注：颜色可以用系统预定义好的颜色，如vbRed表示红色；或者用RGB函数、QBColor函数来表示颜色。背景色 格式为：BackColor=颜色 注：颜色可以用系统预定义好的颜色，如vbRed表示红色；或者用RGB函数、QBColor函数来表示颜色。图片框图片框 图片框（PictureBox）控件不仅可以输出文本、图形和图像，还可以作为容器包含其他的控件；而且图片框控件具有窗体的属性和方法。【例题】文本属性、位置属性及图片框控件的使用。 标签（标签（LabelLabel）

12、 如果在程序运行时只需要显示某些信息，不需要输入信息，就可以使用标签控件。标签控件的内容只能通过属性来设置，不能由用户在程序运行时直接编辑。 标签的主要属性如下： Caption属性：标签中显示的内容。 Name属性：标签的名称。 Alignment属性：指定在标签上显示的信息的位置，0表示左对齐，1表示右对齐，2表示居中对齐。 BorderStyle属性：指定标签有无边框，0表示无边框，1表示有边框。 AutoSize属性：指定标签是否能自动调整大小以显示所有的内容。 WordWrap属性：指定标签中文字是否能自动换行。 注：如果要是标签自动换行并适应文本大小，应先将WordWrap属性设置

13、为True，再将AutoSize属性设置为True。 【例题1】使用标签输出文本【思考题】上述例题中，两个标签的程序代码都是一样的，为什么运行后的结果会不一样？【例题2】交换两个变量的值【思考题】如果将变量A的值赋给变量B，再把变量B的值赋给变量A，这样能实现两个变量的交换吗？3.3 数据输入数据输入文本框（文本框（TextBoxTextBox） 文本框的主要属性 Name属性：文本框控件的名称。 Text属性：文本框中包含的文本内容，其中的文本内容最多为2048个字符，若MultiLine属性为True，则可输入多达32KB的文本。 MaxLength属性：表示最大长度，该属性默认为0，表示

14、文本框可接受任意个数的字符。 Locked属性：决定文本框是否可以被编辑修改，默认值为False，若取值为True，则表示此时文本框中的内容是只读的，不能被修改。 PasswordChar属性：口令属性，输入的每个字符将被替换为PasswordChar属性设定的字符显示在文本框中。 MultiLine属性：多行属性，若属性值为True，则可输入和显示多行文本；若为False，则只能输入一行文本，该属性不能在程序中改变。 ScrollBars属性：滚动条属性，默认值为0，若为1，表示有水平滚动条；若为2，表示有垂直滚动条；若为3，表示两种滚动条都有，该属性只有在MultiLine属性为True时

15、才有效。 SelStart、SelLength和SelText属性：用于控制文本框中的插入点和文本选定操作。SelStart属性决定选定文本的开始位置，第1个字符位置为0；SelLength属性决定选定文本的长度；SelText属性设定或存放由前两个属性选定的文本内容。文本框的主要方法文本框的主要方法 SetFocus方法：设置焦点，可使指定的文本框成为焦点，即将光标定位在当前文本框。 SetFocus方法语法格式为：对象名.SetFocus Refresh方法：刷新文本框的主要事件文本框的主要事件 KeyPress事件：当用户按下并松开键盘上某个按键时，触发该事件。 Change事件：当文本

16、的内容发生变化时，触发该事件。 GotFocus事件：当文本框得到焦点时，触发该事件。 LostFocus事件：当文本框失去焦点时，触发该事件。【例题1】输入长方形的长和宽，求面积和周长。【例题2】设计一个简单的加减法运算器。【例题3】设计一个能容纳多行文本的文本框，且该文本具有垂直滚动条，并演示SetFocus方法和Change事件的使用。3.4 使用对话框使用对话框 Windows程序经常使用对话框来做一些简单信息的输入和输出。对话框是用用户与应用程序之间交换信息的一种有效途径。VB提供的对话框有两种：输出信息对话框和输入对话框。输出信息对话框输出信息对话框 MsgBox函数可以弹出一个带

17、有若干按钮的对话框，并在对话框中显示询问消息，等待用户做出选择，并返回一个整数值，告诉用户单击哪一个按钮。 MsgBox函数的语法格式： 变量=MsgBox（，） 说明： 1、信息内容是在对话框中出现的提示文本。在信息内容中使用硬回车符（CHR（13）可以使文本换行。对话框的高度和宽度随着信息内容的增加而增加，最多可有1024个字符。 2、对话框类型指定对话框中出现的按钮和图标，一般有3个参数。其取值和含义如下：参数参数1 1出现按钮出现按钮值值内置常量名内置常量名说明说明0vbOKOnly确定按钮1vbOKCancel确定和取消按钮2vbAbortRetryIgnore终止、重试和忽略按钮3

18、vbYesNoCancel是、否和取消按钮4vbYesNo是和否按钮5vbRetryCancel重试和取消按钮参数参数2 2图标类型图标类型值值内置常量名内置常量名说明说明16vbCritical停止图标32vbQuestion问号图标48vbExclamation感叹号图标64vbInformation信息图标参数参数3 3默认按钮默认按钮值值内置常量名内置常量名说明说明0vbDefaultButton1第1按钮为默认按钮256vbDefaultButton2第2按钮为默认按钮512vbDefaultButton3第3按钮为默认按钮 3、对话框标题是指定对话框的标题。 4、MsgBox函数的返回值指明了在对话框中选择哪一个按钮，函数返回值如下：函数返回值函数返回值值内置常量名说明1vbOK确定按钮2vbCancel取消按钮3vbAbort终止按钮4vbRetry重试按钮5vbIgnore忽