《(精品)VB教程(第三章).ppt》由会员分享，可在线阅读，更多相关《(精品)VB教程(第三章).ppt（62页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第3章章 简单简单VB程序设计程序设计众众众众所所所所周周周周知知知知，VBVB应应应应用用用用程程程程序序序序的的的的执执执执行行行行是是是是由由由由事事事事件件件件驱驱驱驱动动动动的的的的，当当当当用用用用户户户户触触触触发发发发某某某某一一一一事事事事件件件件时时时时，执执执执行行行行相相相相应应应应的的的的事事事事件件件件过过过过程程程程，这这这这些些些些事事事事件件件件过过过过程程程程之之之之间间间间并并并并没没没没有有有有特特特特定定定定的的的的执执执执行行行行次次次次序序序序。但但但但在在在在每每每每一一一一个个个个事事事事件件件件过过过过程程程程内内内内部部部部，是是是是有有
2、有有一一一一定定定定的的的的执执执执行行行行控控控控制制制制流流流流程程程程的的的的，这这这这就就就就是是是是通通通通常常常常所所所所说说说说的的的的三三三三种种种种基基基基本本本本结结结结构构构构：顺顺顺顺序序序序结结结结构构构构、分分分分支支支支结结结结构构构构、循循循循环环环环结结结结构构构构。顺顺顺顺序序序序结结结结构构构构是是是是最最最最简简简简单单单单的的的的一一一一种种种种结结结结构构构构，该该该该结结结结构构构构按按按按语语语语句句句句排排排排列列列列的的的的先先先先后后后后顺顺顺顺序序序序执执执执行行行行。本本本本章章章章的的的的主主主主要要要要内内内内容容容容有有有有：VB
3、VB最最最最基基基基本本本本的的的的几几几几个个个个对对对对象象象象，与与与与顺顺顺顺序序序序结结结结构构构构有有有有关关关关的的的的语语语语句句句句和和和和方方方方法法法法。通通通通过过过过本本本本章的学习，可以进行简单章的学习，可以进行简单章的学习，可以进行简单章的学习，可以进行简单VBVB程序设计。程序设计。程序设计。程序设计。退出退出3.1 窗窗 体体3.2 命令按钮命令按钮3.3 标标 签签3.4 文本框文本框3.5 赋值语句赋值语句3.6 Print方法方法3.7 输入框输入框3.8 消息框消息框3.9 注释语句、结束语句注释语句、结束语句3.10 程序调试程序调试3.1 窗窗 体
4、体创创创创建建建建VBVB应应应应用用用用程程程程序序序序的的的的第第第第一一一一步步步步是是是是创创创创建建建建用用用用户户户户界界界界面面面面。用用用用户户户户界面的基础是窗体，各种控件对象必须建立在窗体上。界面的基础是窗体，各种控件对象必须建立在窗体上。界面的基础是窗体，各种控件对象必须建立在窗体上。界面的基础是窗体，各种控件对象必须建立在窗体上。启启启启动动动动VBVB后后后后，即即即即在在在在屏屏屏屏幕幕幕幕上上上上显显显显示示示示一一一一个个个个窗窗窗窗体体体体，如如如如图图图图3-13-1所所所所示。示。示。示。3.1.13.1.13.1.13.1.1窗体的主要属性窗体的主要属性
5、窗体的主要属性窗体的主要属性窗窗窗窗体体体体的的的的属属属属性性性性决决决决定定定定了了了了窗窗窗窗体体体体的的的的外外外外观观观观和和和和操操操操作作作作。窗窗窗窗体体体体的的的的大大大大部部部部分分分分属属属属性性性性可可可可用用用用两两两两种种种种方方方方法法法法来来来来设设设设置置置置：通通通通过过过过属属属属性性性性窗窗窗窗口口口口设设设设置置置置和和和和通通通通过过过过程程程程序序序序代代代代码码码码设设设设置置置置。有有有有少少少少量量量量的的的的属属属属性性性性不不不不能能能能在在在在程程程程序序序序代代代代码码码码中中中中设置。设置。设置。设置。（1 1）Caption Ca
6、ption 属性属性属性属性 设设设设置置置置窗窗窗窗体体体体的的的的标标标标题题题题内内内内容容容容。标标标标题题题题内内内内容容容容应应应应概概概概括括括括说说说说明明明明本本本本窗窗窗窗体作用。体作用。体作用。体作用。（2 2）MaxButton MaxButton 属性和属性和属性和属性和 MinButton MinButton 属性属性属性属性 MaxButtonMaxButton属属属属性性性性为为为为TrueTrue，窗窗窗窗体体体体右右右右上上上上角角角角有有有有最最最最大大大大化化化化按按按按钮；为钮；为钮；为钮；为FalseFalse时，无最大化按钮。时，无最大化按钮。时，
7、无最大化按钮。时，无最大化按钮。MinButtonMinButton属属属属性性性性为为为为TrueTrue，窗窗窗窗体体体体右右右右上上上上角角角角有有有有最最最最小小小小化化化化按按按按钮钮钮钮；为为为为FalseFalse时，无最小化按钮。时，无最小化按钮。时，无最小化按钮。时，无最小化按钮。（3 3）BorderStyle BorderStyle 属性属性属性属性 决定窗体边框式样及窗体是否能调整大小。决定窗体边框式样及窗体是否能调整大小。决定窗体边框式样及窗体是否能调整大小。决定窗体边框式样及窗体是否能调整大小。（4 4）BackColorBackColor属性和属性和属性和属性和F
8、oreColor ForeColor 属性属性属性属性 BackColorBackColor属性设置窗体的背景颜色，属性设置窗体的背景颜色，属性设置窗体的背景颜色，属性设置窗体的背景颜色，ForColor ForColor 属属属属性设置窗体的前景颜色。窗体的前景颜色是执行性设置窗体的前景颜色。窗体的前景颜色是执行性设置窗体的前景颜色。窗体的前景颜色是执行性设置窗体的前景颜色。窗体的前景颜色是执行PrintPrint方法时所显示文本的颜色。方法时所显示文本的颜色。方法时所显示文本的颜色。方法时所显示文本的颜色。（5 5）HeightHeight属性和属性和属性和属性和WidthWidth属性属
9、性属性属性 设置窗体的初始高度和宽度。其单位为设置窗体的初始高度和宽度。其单位为设置窗体的初始高度和宽度。其单位为设置窗体的初始高度和宽度。其单位为TwipTwip。1Twip=1/201Twip=1/20点点点点=1/1440=1/1440英寸英寸英寸英寸=1/567=1/567cmcm。（6 6）LeftLeft属性和属性和属性和属性和TopTop属性属性属性属性 用于设置窗体左边框距屏幕左边界的距离和窗体用于设置窗体左边框距屏幕左边界的距离和窗体用于设置窗体左边框距屏幕左边界的距离和窗体用于设置窗体左边框距屏幕左边界的距离和窗体顶边距屏幕顶端的距离。其单位为顶边距屏幕顶端的距离。其单位为
10、顶边距屏幕顶端的距离。其单位为顶边距屏幕顶端的距离。其单位为TwipTwip。（7 7）NameName（名称）属性名称）属性名称）属性名称）属性 设置窗体的名称，在程序代码中用这个名称引用设置窗体的名称，在程序代码中用这个名称引用设置窗体的名称，在程序代码中用这个名称引用设置窗体的名称，在程序代码中用这个名称引用该窗体。新建工程时，窗体的名称缺省为该窗体。新建工程时，窗体的名称缺省为该窗体。新建工程时，窗体的名称缺省为该窗体。新建工程时，窗体的名称缺省为 Form1Form1；添添添添加第二个窗体，其名称缺省为加第二个窗体，其名称缺省为加第二个窗体，其名称缺省为加第二个窗体，其名称缺省为 F
11、orm2Form2，依次类推。为依次类推。为依次类推。为依次类推。为了便于识别，用户通常给了便于识别，用户通常给了便于识别，用户通常给了便于识别，用户通常给 Name Name 属性设置一个有实际属性设置一个有实际属性设置一个有实际属性设置一个有实际意义的名称。意义的名称。意义的名称。意义的名称。（8 8）EnabledEnabled属性属性属性属性 属性值为属性值为属性值为属性值为TrueTrue或或或或FalseFalse，设置对象是否能够对用户设置对象是否能够对用户设置对象是否能够对用户设置对象是否能够对用户产生的事件做出反应。一般在程序中设置，用于临时产生的事件做出反应。一般在程序中设
12、置，用于临时产生的事件做出反应。一般在程序中设置，用于临时产生的事件做出反应。一般在程序中设置，用于临时屏蔽对窗体或其它控件的的控制。屏蔽对窗体或其它控件的的控制。屏蔽对窗体或其它控件的的控制。屏蔽对窗体或其它控件的的控制。（9 9）MoveableMoveable属性属性属性属性 属性值为属性值为属性值为属性值为TrueTrue或或或或FalseFalse，设置是否可以移动窗体。设置是否可以移动窗体。设置是否可以移动窗体。设置是否可以移动窗体。（1010）VisibleVisible属性属性属性属性 属性值为属性值为属性值为属性值为TrueTrue或或或或FalseFalse，设置窗体是否被
13、显示。用设置窗体是否被显示。用设置窗体是否被显示。用设置窗体是否被显示。用户可用该属性在程序代码中控制窗体的隐现。户可用该属性在程序代码中控制窗体的隐现。户可用该属性在程序代码中控制窗体的隐现。户可用该属性在程序代码中控制窗体的隐现。（1111）PicturePicture属性属性属性属性 设置在窗体中显示的图片。单击设置在窗体中显示的图片。单击设置在窗体中显示的图片。单击设置在窗体中显示的图片。单击PicturePicture属性右边属性右边属性右边属性右边的按钮，弹出的按钮，弹出的按钮，弹出的按钮，弹出“加载图片加载图片加载图片加载图片”对话框，用户可选择一个对话框，用户可选择一个对话框，
14、用户可选择一个对话框，用户可选择一个图片文件作为窗体的背景图片。若在程序中设置该属图片文件作为窗体的背景图片。若在程序中设置该属图片文件作为窗体的背景图片。若在程序中设置该属图片文件作为窗体的背景图片。若在程序中设置该属性的值，需要使用性的值，需要使用性的值，需要使用性的值，需要使用LoadPictureLoadPicture函数。函数。函数。函数。（1212）WindowStateWindowState属性属性属性属性 设置窗体启动后的大小状态。设置窗体启动后的大小状态。设置窗体启动后的大小状态。设置窗体启动后的大小状态。在在在在VBVB中，虽然不同的对象有不同的属性集合，但中，虽然不同的对
15、象有不同的属性集合，但中，虽然不同的对象有不同的属性集合，但中，虽然不同的对象有不同的属性集合，但有一些属性，如有一些属性，如有一些属性，如有一些属性，如Name Name、EnabledEnabled、VisibleVisible、HeightHeight、WidthWidth、LeftLeft、TopTop等，其它控件也有，且具有相似的等，其它控件也有，且具有相似的等，其它控件也有，且具有相似的等，其它控件也有，且具有相似的作用。在后续的章节中，主要介绍各种控件常用的特作用。在后续的章节中，主要介绍各种控件常用的特作用。在后续的章节中，主要介绍各种控件常用的特作用。在后续的章节中，主要介绍
16、各种控件常用的特殊属性。殊属性。殊属性。殊属性。3.1.23.1.23.1.23.1.2事件事件事件事件窗窗窗窗 体体体体 最最最最 常常常常 用用用用 的的的的 事事事事 件件件件 有有有有 3 3种种种种：ClickClick（单单单单 击击击击）、DbClickDbClick（双击）、双击）、双击）、双击）、LoadLoad（装入）。装入）。装入）。装入）。1 1ClickClick事件事件事件事件程序运行后，单击窗体触发该事件。程序运行后，单击窗体触发该事件。程序运行后，单击窗体触发该事件。程序运行后，单击窗体触发该事件。2 2DbClickDbClick事件事件事件事件程序运行后，双
17、击窗体触发该事件。程序运行后，双击窗体触发该事件。程序运行后，双击窗体触发该事件。程序运行后，双击窗体触发该事件。3 3LoadLoad事件事件事件事件LoadLoad事件是窗体被装入内存工作区时触发的事件。事件是窗体被装入内存工作区时触发的事件。事件是窗体被装入内存工作区时触发的事件。事件是窗体被装入内存工作区时触发的事件。如果这个事件过程存在，就马上执行它。如果这个事件过程存在，就马上执行它。如果这个事件过程存在，就马上执行它。如果这个事件过程存在，就马上执行它。LoadLoad事件过事件过事件过事件过程通常用于启动程序时，对属性、变量的初始化以及程通常用于启动程序时，对属性、变量的初始化
18、以及程通常用于启动程序时，对属性、变量的初始化以及程通常用于启动程序时，对属性、变量的初始化以及装载数据等。装载数据等。装载数据等。装载数据等。【例【例【例【例3.13.1】窗体上无最大化、最小化按钮，程序运】窗体上无最大化、最小化按钮，程序运】窗体上无最大化、最小化按钮，程序运】窗体上无最大化、最小化按钮，程序运行后，在窗体上装入一幅图片作为背景，当单击窗体行后，在窗体上装入一幅图片作为背景，当单击窗体行后，在窗体上装入一幅图片作为背景，当单击窗体行后，在窗体上装入一幅图片作为背景，当单击窗体时，窗体变宽；当双击窗体时，则退出。程序运行界时，窗体变宽；当双击窗体时，则退出。程序运行界时，窗体
19、变宽；当双击窗体时，则退出。程序运行界时，窗体变宽；当双击窗体时，则退出。程序运行界面如图面如图面如图面如图3-23-2所示。所示。所示。所示。事件过程如下：事件过程如下：事件过程如下：事件过程如下：Private Sub Form_LoadPrivate Sub Form_Load（）（）（）（）装入图片装入图片装入图片装入图片 Form1.Picture Form1.Picture=LoadPictureLoadPicture（cc：picpic ChangchengChangcheng.wmfwmf）End SubEnd SubPrivate Sub Form_clickPrivate
20、Sub Form_click（）（）（）（）单击窗体单击窗体单击窗体单击窗体 Form1.Width=Form1.Width+1000Form1.Width=Form1.Width+1000End SubEnd SubPrivate Sub Form_Private Sub Form_DblClickDblClick（）（）（）（）双击窗体双击窗体双击窗体双击窗体 EndEndEnd SubEnd Sub说说说说明明明明：上上上上机机机机时时时时，可可可可通通通通过过过过查查查查找找找找文文文文件件件件的的的的方方方方法法法法找找找找一一一一个个个个图图图图片文件，参照本例中的格式输入即可。片
21、文件，参照本例中的格式输入即可。片文件，参照本例中的格式输入即可。片文件，参照本例中的格式输入即可。3.2 命令按钮命令按钮在在在在VBVB应应应应用用用用程程程程序序序序中中中中，命命命命令令令令按按按按钮钮钮钮是是是是使使使使用用用用最最最最多多多多的的的的对对对对象象象象之之之之一一一一，常常常常常常常常用用用用它它它它接接接接受受受受用用用用户户户户的的的的操操操操作作作作信信信信息息息息，触触触触发发发发相相相相应应应应的的的的事事事事件件件件过程，以实现指定的功能。过程，以实现指定的功能。过程，以实现指定的功能。过程，以实现指定的功能。3.2.1 3.2.1 属性属性属性属性1 1
22、CaptionCaption属性属性属性属性设定命令按钮上显示的文本。设定命令按钮上显示的文本。设定命令按钮上显示的文本。设定命令按钮上显示的文本。2 2DefaultDefault属性属性属性属性该属性用于设置默认命令按钮。该属性用于设置默认命令按钮。该属性用于设置默认命令按钮。该属性用于设置默认命令按钮。3 3StyleStyle属性和属性和属性和属性和PicturePicture属性属性属性属性 命命命命令令令令按按按按钮钮钮钮上上上上除除除除了了了了可可可可以以以以显显显显示示示示文文文文字字字字外外外外，还还还还可可可可以以以以显显显显示示示示图图图图形形形形。若若若若要要要要显显显
23、显示示示示图图图图形形形形，首首首首先先先先应应应应将将将将Style Style 属属属属性性性性设设设设置置置置为为为为1 1，然然然然后在后在后在后在PicturePicture属性中设置要显示的图形文件。属性中设置要显示的图形文件。属性中设置要显示的图形文件。属性中设置要显示的图形文件。4 4ValueValue属性属性属性属性该该该该属属属属性性性性只只只只能能能能在在在在程程程程序序序序运运运运行行行行期期期期间间间间引引引引用用用用或或或或设设设设置置置置。TrueTrue表表表表示被按下，示被按下，示被按下，示被按下，FalseFalse（默认）表示未被按下。默认）表示未被按下
24、。默认）表示未被按下。默认）表示未被按下。3.2.23.2.23.2.23.2.2事件事件事件事件最常用的事件是最常用的事件是最常用的事件是最常用的事件是ClickClick事件。事件。事件。事件。3.3 标标 签签标标标标签签签签（LabelLabel）主主主主要要要要用用用用于于于于显显显显示示示示不不不不需需需需要要要要用用用用户户户户修修修修改改改改的的的的文文文文本本本本。所所所所以以以以，标标标标签签签签可可可可以以以以用用用用来来来来标标标标示示示示窗窗窗窗体体体体及及及及窗窗窗窗体体体体上上上上的的的的对对对对象象象象，如如如如为为为为文文文文本本本本框框框框、列列列列表表表表
25、框框框框等等等等添添添添加加加加描描描描述述述述性性性性的的的的文文文文字字字字，或或或或者者者者作作作作为为为为窗体的说明文字。窗体的说明文字。窗体的说明文字。窗体的说明文字。3.3.13.3.13.3.13.3.1属性属性属性属性1 1CaptionCaption属性属性属性属性 设置标签要显示的内容。它是标签的主要属性。设置标签要显示的内容。它是标签的主要属性。设置标签要显示的内容。它是标签的主要属性。设置标签要显示的内容。它是标签的主要属性。2 2BorderStyleBorderStyle属性属性属性属性 默认值为默认值为默认值为默认值为0 0，标签无边框；设置为，标签无边框；设置为
26、，标签无边框；设置为，标签无边框；设置为1 1时，标签有立体边框。时，标签有立体边框。时，标签有立体边框。时，标签有立体边框。3 3AutosizeAutosize属性属性属性属性 该属性用于设置标签是否自动改变尺寸以适应其内容。该属性用于设置标签是否自动改变尺寸以适应其内容。该属性用于设置标签是否自动改变尺寸以适应其内容。该属性用于设置标签是否自动改变尺寸以适应其内容。4 4AlignmentAlignment属性属性属性属性 确定标签中内容的对齐方式。确定标签中内容的对齐方式。确定标签中内容的对齐方式。确定标签中内容的对齐方式。5 5BackStyleBackStyle属性属性属性属性该属
27、性用于设置背景是否透明。该属性用于设置背景是否透明。该属性用于设置背景是否透明。该属性用于设置背景是否透明。3.3.23.3.23.3.23.3.2事件事件事件事件常用常用常用常用ClickClick，DbClickDbClick事件。事件。事件。事件。【例例例例3.23.2】修修修修改改改改例例例例3.13.1，在在在在图图图图片片片片上上上上加加加加提提提提示示示示信信信信息息息息“请请请请单单单单击击击击图图图图片片片片”，程程程程序序序序其其其其它它它它功功功功能能能能不不不不变变变变。程程程程序序序序运运运运行行行行界界界界面面面面如如如如图图图图3-23-2所示。所示。所示。所示。
28、操操操操作作作作如如如如下下下下：在在在在窗窗窗窗体体体体上上上上添添添添加加加加一一一一个个个个标标标标签签签签，将将将将其其其其CaptionCaption属属属属性性性性设设设设置置置置为为为为“请请请请单单单单击击击击图图图图片片片片”，BackStyleBackStyle属属属属性性性性设设设设置置置置为为为为0 0（透明），程序代码不变。（透明），程序代码不变。（透明），程序代码不变。（透明），程序代码不变。3.4 文本框文本框文文文文本本本本框框框框（TextBoxTextBox）在在在在窗窗窗窗体体体体中中中中为为为为用用用用户户户户提提提提供供供供一一一一个个个个既既既既能能
29、能能显显显显示示示示文文文文本本本本又又又又能能能能编编编编辑辑辑辑文文文文本本本本的的的的区区区区域域域域。在在在在文文文文本本本本框框框框内内内内，用用用用户户户户可可可可以以以以用用用用鼠鼠鼠鼠标标标标、键键键键盘盘盘盘按按按按常常常常用用用用的的的的方方方方法法法法对对对对文文文文字字字字进进进进行行行行编编编编辑辑辑辑，例例例例如如如如进行输入、删除、选择、复制及粘贴等各种操作。进行输入、删除、选择、复制及粘贴等各种操作。进行输入、删除、选择、复制及粘贴等各种操作。进行输入、删除、选择、复制及粘贴等各种操作。3.4.13.4.13.4.13.4.1属性属性属性属性1 1TextTex
30、t属性属性属性属性 设置文本框中显示的内容。设置文本框中显示的内容。设置文本框中显示的内容。设置文本框中显示的内容。2 2LockedLocked属性属性属性属性 设置文本框中的内容是否可编辑。设置文本框中的内容是否可编辑。设置文本框中的内容是否可编辑。设置文本框中的内容是否可编辑。3 3MaxlengthMaxlength属性属性属性属性 设置文本框中允许输入的最大字符数。设置文本框中允许输入的最大字符数。设置文本框中允许输入的最大字符数。设置文本框中允许输入的最大字符数。4 4MultiLineMultiLine属性属性属性属性 决定文本框是否允许接收多行文本。决定文本框是否允许接收多行文
31、本。决定文本框是否允许接收多行文本。决定文本框是否允许接收多行文本。5 5PassWordCharPassWordChar属性属性属性属性当当当当MultiLineMultiLine为为为为FalseFalse时时时时，该该该该属属属属性性性性可可可可设设设设置置置置显显显显示示示示在在在在文文文文本本本本框中的替代符。框中的替代符。框中的替代符。框中的替代符。6 6ScrollBarsScrollBars属性属性属性属性 决定文本框中是否有滚动条。决定文本框中是否有滚动条。决定文本框中是否有滚动条。决定文本框中是否有滚动条。3.4.23.4.23.4.23.4.2事件事件事件事件文文文文本本
32、本本框框框框除除除除支支支支持持持持ClickClick，DbClickDbClick事事事事件件件件，常常常常用用用用的的的的还还还还有有有有ChangeChange、LostFocusLostFocus事件。事件。事件。事件。1 1ChangeChange事件事件事件事件当当当当用用用用户户户户输输输输入入入入新新新新内内内内容容容容，或或或或程程程程序序序序对对对对文文文文本本本本框框框框的的的的TextText属属属属性性性性重重重重新赋值，从而改变文本框的新赋值，从而改变文本框的新赋值，从而改变文本框的新赋值，从而改变文本框的TextText属性时触发该事件。属性时触发该事件。属性时
33、触发该事件。属性时触发该事件。2 2LostFocusLostFocus事件事件事件事件当当当当用用用用户户户户按按按按下下下下 TabTab键键键键时时时时光光光光标标标标离离离离开开开开文文文文本本本本框框框框，或或或或用用用用鼠鼠鼠鼠标标标标选择其它对象时触发该事件，称为选择其它对象时触发该事件，称为选择其它对象时触发该事件，称为选择其它对象时触发该事件，称为“失去焦点失去焦点失去焦点失去焦点”事件。事件。事件。事件。3.4.33.4.33.4.33.4.3方法方法方法方法文文文文本本本本框框框框最最最最常常常常用用用用的的的的方方方方法法法法是是是是SetFocusSetFocus，使
34、使使使用用用用该该该该方方方方法法法法可可可可把把把把光光光光标标标标移移移移到到到到指指指指定定定定的的的的文文文文本本本本框框框框中中中中，使使使使之之之之获获获获得得得得焦焦焦焦点点点点。当当当当使使使使用用用用多多多多个个个个文文文文本本本本框框框框时时时时，用用用用该该该该方方方方法法法法可可可可把把把把光光光光标标标标移移移移到到到到所所所所需需需需要要要要的的的的的的的的文文文文本本本本框中。其使用格式为：框中。其使用格式为：框中。其使用格式为：框中。其使用格式为：1 1对象对象对象对象.SetFocusSetFocus【例例例例3.33.3】程程程程序序序序运运运运行行行行后后
35、后后，随随随随着着着着用用用用户户户户的的的的输输输输入入入入，标标标标签签签签中中中中同同同同步步步步显显显显示示示示出出出出用用用用户户户户对对对对文文文文本本本本框框框框的的的的内内内内容容容容更更更更新新新新的的的的次次次次数数数数。运运运运行行行行效效效效果如图果如图果如图果如图3-43-4所示。所示。所示。所示。2 2编写事件过程如下：编写事件过程如下：编写事件过程如下：编写事件过程如下：Private Sub Text1_ChangePrivate Sub Text1_Change（）（）（）（）Static i%Static i%i=i+1 i=i+1 Label1.Capti
36、on=i Label1.Caption=i End Sub End Sub请请请请思思思思考考考考：标标标标签签签签中中中中显显显显示示示示的的的的数数数数字字字字是是是是文文文文本本本本框框框框中中中中显显显显示示示示的的的的字字字字符个数吗？符个数吗？符个数吗？符个数吗？3.5 赋值语句赋值语句赋赋赋赋值值值值语语语语句句句句是是是是VBVB程程程程序序序序最最最最常常常常用用用用、最最最最基基基基本本本本的的的的语语语语句句句句，它它它它能能能能为为为为变变变变量量量量提提提提供供供供数数数数据据据据。另另另另外外外外，若若若若要要要要在在在在程程程程序序序序代代代代码码码码中中中中设设
37、设设置置置置对对对对象象象象的属性，也要使用赋值语句。的属性，也要使用赋值语句。的属性，也要使用赋值语句。的属性，也要使用赋值语句。赋值语句有两种格式：赋值语句有两种格式：赋值语句有两种格式：赋值语句有两种格式：格式格式格式格式1 1：变量名变量名变量名变量名=表达式表达式表达式表达式格式格式格式格式2 2：对象名对象名对象名对象名.属性名属性名属性名属性名=表达式表达式表达式表达式赋值语句的作用是：首先计算赋值语句的作用是：首先计算赋值语句的作用是：首先计算赋值语句的作用是：首先计算“=”“=”右边表达式的右边表达式的右边表达式的右边表达式的值，然后将该值赋给值，然后将该值赋给值，然后将该值
38、赋给值，然后将该值赋给“=”“=”左边的变量或对象的属性。左边的变量或对象的属性。左边的变量或对象的属性。左边的变量或对象的属性。在格式在格式在格式在格式2 2中，若对象名省略，则默认对象为当前窗体。中，若对象名省略，则默认对象为当前窗体。中，若对象名省略，则默认对象为当前窗体。中，若对象名省略，则默认对象为当前窗体。例如：例如：例如：例如：x=2 x=2 把把把把2 2赋给赋给赋给赋给x xy=xy=x*3 3 计算计算计算计算x x*3 3的值，的值，的值，的值，得得得得6 6，把，把，把，把6 6赋给赋给赋给赋给y yx=x+1 x=x+1 计算计算计算计算x x+1+1的值，得的值，得
39、的值，得的值，得3 3，把，把，把，把3 3赋赋赋赋给给给给x xa$=Hello a$=Hello 把把把把“Hello”Hello”赋给赋给赋给赋给a$a$Text1.Text=Text1.Text=你好！你好！你好！你好！把把把把“你好！你好！你好！你好！”赋给赋给赋给赋给Text1Text1的的的的TextText属性属性属性属性【例例例例3.4 3.4】已已已已知知知知三三三三角角角角形形形形三三三三边边边边a a，b b，c c的的的的长长长长，求求求求三三三三角角角角形的面积，输出三条边长及面积。形的面积，输出三条边长及面积。形的面积，输出三条边长及面积。形的面积，输出三条边长及
40、面积。分分分分析析析析：应应应应用用用用程程程程序序序序的的的的界界界界面面面面应应应应该该该该能能能能让让让让用用用用户户户户输输输输入入入入三三三三边边边边的的的的长长长长，程程程程序序序序在在在在接接接接收收收收用用用用户户户户输输输输入入入入的的的的数数数数据据据据后后后后，利利利利用用用用数数数数学学学学公公公公式式式式对对对对数数数数据据据据进进进进行行行行计计计计算算算算，并并并并把把把把结结结结果果果果输输输输出出出出到到到到屏屏屏屏幕幕幕幕上上上上。已已已已知知知知三三三三角角角角形形形形三边三边三边三边a a，b b，c c的长，求三角形的面积的公式为：的长，求三角形的面积
41、的公式为：的长，求三角形的面积的公式为：的长，求三角形的面积的公式为：其中其中其中其中p p=（a a+b b+c c）/2/2。（1 1）界面设计界面设计界面设计界面设计在在在在窗窗窗窗体体体体上上上上建建建建立立立立5 5个个个个标标标标签签签签、3 3个个个个文文文文本本本本框框框框和和和和1 1个个个个命命命命令令令令按按按按钮钮钮钮。设置各对象的属性，如表设置各对象的属性，如表设置各对象的属性，如表设置各对象的属性，如表3-33-3所示。所示。所示。所示。设计完成的界面如图设计完成的界面如图设计完成的界面如图设计完成的界面如图3-53-5所示。所示。所示。所示。（2 2）编写事件过程
42、如下：）编写事件过程如下：）编写事件过程如下：）编写事件过程如下：Private Sub Command1_ClickPrivate Sub Command1_Click（）（）（）（）Dim a!Dim a!，b!b!，c!c!，p!p!，s!s!a=Text1.Text a=Text1.Text b=Text2.Text b=Text2.Text c=Text3.Text c=Text3.Text p=p=（a+b+ca+b+c）/2/2 s=s=Sqr Sqr（p p*（p-ap-a）*（p-bp-b）*（p-cp-c）Label5.Caption=s Label5.Caption=s
43、End Sub End Sub3.6 Print方法方法3.6.13.6.13.6.13.6.1PrintPrintPrintPrint的格式及功能的格式及功能的格式及功能的格式及功能格式：格式：格式：格式：对象名对象名对象名对象名.Print Print 表达式列表表达式列表表达式列表表达式列表 功能：在对象上输出表达式的值。功能：在对象上输出表达式的值。功能：在对象上输出表达式的值。功能：在对象上输出表达式的值。说明：说明：说明：说明：（1 1）对对对对象象象象名名名名：可可可可以以以以是是是是FormForm（窗窗窗窗体体体体）、DebugDebug（立立立立即即即即窗窗窗窗口口口口）、
44、PicturePicture（图图图图片片片片框框框框）、PrinterPrinter（打打打打印印印印机机机机）。省略此项，表示在当前窗体上输出。例如：省略此项，表示在当前窗体上输出。例如：省略此项，表示在当前窗体上输出。例如：省略此项，表示在当前窗体上输出。例如：Print 23Print 23*2=2=；2323*2 2 在当前窗体上输出在当前窗体上输出在当前窗体上输出在当前窗体上输出2323*2=462=46 Picture1.Print Good Picture1.Print Good 在图片框在图片框在图片框在图片框Picture1Picture1上输出上输出上输出上输出Good
45、Good Printer.Print Morning Printer.Print Morning 在打印机上输出在打印机上输出在打印机上输出在打印机上输出Morning Morning （2 2）表达式列表：是一个或多个表达式，若为多表达式列表：是一个或多个表达式，若为多表达式列表：是一个或多个表达式，若为多表达式列表：是一个或多个表达式，若为多个表达式，则各表达式之间用个表达式，则各表达式之间用个表达式，则各表达式之间用个表达式，则各表达式之间用“，”或或或或“；”隔开。隔开。隔开。隔开。省略此项，则输出一空行。省略此项，则输出一空行。省略此项，则输出一空行。省略此项，则输出一空行。（3 3
46、）用）用）用）用“，”分隔各表达式时，各项在以分隔各表达式时，各项在以分隔各表达式时，各项在以分隔各表达式时，各项在以1414个字个字个字个字符位置为单位划分出的区段中输出，每个区段输出一符位置为单位划分出的区段中输出，每个区段输出一符位置为单位划分出的区段中输出，每个区段输出一符位置为单位划分出的区段中输出，每个区段输出一项；用项；用项；用项；用“；”分隔各表达式时，各项按紧凑格式输出。分隔各表达式时，各项按紧凑格式输出。分隔各表达式时，各项按紧凑格式输出。分隔各表达式时，各项按紧凑格式输出。（4 4）如果在语句行末尾有）如果在语句行末尾有）如果在语句行末尾有）如果在语句行末尾有“；”，则下
47、一个，则下一个，则下一个，则下一个PrintPrint输出的内容，将紧跟在当前输出的内容，将紧跟在当前输出的内容，将紧跟在当前输出的内容，将紧跟在当前PrintPrint输出内容后面；如果输出内容后面；如果输出内容后面；如果输出内容后面；如果在语句行末尾有在语句行末尾有在语句行末尾有在语句行末尾有“，”，则下一个，则下一个，则下一个，则下一个PrintPrint输出的内容，输出的内容，输出的内容，输出的内容，将在当前将在当前将在当前将在当前PrintPrint输出内容的下一区段输出；如果在语句输出内容的下一区段输出；如果在语句输出内容的下一区段输出；如果在语句输出内容的下一区段输出；如果在语句
48、行末尾无分隔符，则输出完本语句内容后换行，即在行末尾无分隔符，则输出完本语句内容后换行，即在行末尾无分隔符，则输出完本语句内容后换行，即在行末尾无分隔符，则输出完本语句内容后换行，即在新的一行输出下一个新的一行输出下一个新的一行输出下一个新的一行输出下一个PrintPrint的内容。例如：的内容。例如：的内容。例如：的内容。例如：Print 1；2；3 Print 4，5，Print 6 Print 7，8 Print Print 9，10输出结果为：输出结果为：1 2 34 5 67 89 10（3 3）定位输出：在）定位输出：在）定位输出：在）定位输出：在PrintPrint方法中，可以使
49、用方法中，可以使用方法中，可以使用方法中，可以使用TabTab函函函函数对输出项进行定位。数对输出项进行定位。数对输出项进行定位。数对输出项进行定位。例如：例如：例如：例如：Print TabPrint Tab（1010）；）；）；）；姓名姓名姓名姓名；TabTab（2525）；）；）；）；年龄年龄年龄年龄 则则则则“姓名姓名姓名姓名”和和和和“年龄年龄年龄年龄”分别从当前行的第分别从当前行的第分别从当前行的第分别从当前行的第1010列和列和列和列和第第第第2525列开始输出。列开始输出。列开始输出。列开始输出。输出结果如下：输出结果如下：输出结果如下：输出结果如下：姓名姓名姓名姓名 年龄年龄
50、年龄年龄PrintPrint方法中，还可以使用方法中，还可以使用方法中，还可以使用方法中，还可以使用SpcSpc函数，例如：函数，例如：函数，例如：函数，例如：Print Print 后后后后面面面面有有有有8 8个个个个空空空空格格格格；SpcSpc（8 8）；前前前前面有面有面有面有8 8个空格个空格个空格个空格 输出结果如下：输出结果如下：输出结果如下：输出结果如下：后面有后面有后面有后面有8 8个空格个空格个空格个空格 前面有前面有前面有前面有8 8个空格个空格个空格个空格3.6.23.6.23.6.23.6.2ClsClsClsCls方法方法方法方法格式：格式：格式：格式：对象名对象