简单程序设计精选PPT.ppt

《简单程序设计精选PPT.ppt》由会员分享，可在线阅读，更多相关《简单程序设计精选PPT.ppt（105页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、简单程序设计简单程序设计第1页，此课件共105页哦 窗窗 体体3.1命令按钮命令按钮3.2 标标 签签3.3文本框文本框3.4赋值语句赋值语句3.5第2页，此课件共105页哦 注释语句、结束语句注释语句、结束语句3.9程序调试程序调试3.10消息框消息框3.8输入框输入框3.7 Print Print方法方法3.6第3页，此课件共105页哦 VBVB应用程序的执行是由事件驱动的，应用程序的执行是由事件驱动的，当用户触发某一事件时执行相应的事件过当用户触发某一事件时执行相应的事件过程，这些事件过程之间并没有特定的执行程，这些事件过程之间并没有特定的执行次序。次序。第4页，此课件共105页哦 但在

2、每一个事件过程内部，是有一定但在每一个事件过程内部，是有一定的执行控制流程的，这就是通常所说的三的执行控制流程的，这就是通常所说的三种基本结构：顺序结构、分支结构、循环种基本结构：顺序结构、分支结构、循环结构。顺序结构是最简单的一种结构，该结构。顺序结构是最简单的一种结构，该结构按语句排列的先后顺序执行。结构按语句排列的先后顺序执行。第5页，此课件共105页哦 本章的主要内容有：本章的主要内容有：VBVB最基本的几个最基本的几个对象；与顺序结构有关的语句和方法。通对象；与顺序结构有关的语句和方法。通过本章的学习，可以进行简单过本章的学习，可以进行简单VBVB程序设计。程序设计。第6页，此课件共

3、105页哦3.1 3.1 窗体窗体 创建创建VBVB应用程序的第一步是创建用户应用程序的第一步是创建用户界面。用户界面的基础是窗体，各种控件界面。用户界面的基础是窗体，各种控件对象必须建立在窗体上。对象必须建立在窗体上。启动启动VBVB后，即在屏幕上显示一个窗体，后，即在屏幕上显示一个窗体，如图如图3-13-1所示。所示。第7页，此课件共105页哦 图标图标标题标题最大化按钮最大化按钮最小化按钮最小化按钮关闭按钮关闭按钮窗口区窗口区边框边框图图3-1 3-1 窗体窗体第8页，此课件共105页哦 3.1.1 3.1.1 窗体的主要属性窗体的主要属性 窗体的属性决定了窗体的外观和操作。窗体的属性决

4、定了窗体的外观和操作。对象的大部分属性可用两种方法来设置：对象的大部分属性可用两种方法来设置：通过属性窗口设置和通过程序代码设置。通过属性窗口设置和通过程序代码设置。有少量的属性不能在程序代码中设置。有少量的属性不能在程序代码中设置。第9页，此课件共105页哦 （1 1）Caption Caption 属性属性 设置窗体的标题内容。标题内容应概括说设置窗体的标题内容。标题内容应概括说明本窗体作用。明本窗体作用。（2 2）MaxButton MaxButton 属性和属性和 MinButton MinButton 属性属性 MaxButton为为True，窗体右上角有最大化按，窗体右上角有最大化

5、按钮；为钮；为False时，无最大化按钮。时，无最大化按钮。MinButton 属性为属性为True，窗体右上角有最小化，窗体右上角有最小化按钮；为按钮；为False时，无最小化按钮。时，无最小化按钮。第10页，此课件共105页哦 （3 3）BorderStyle BorderStyle 属性属性 决定窗体边框式样及窗体是否能调整大小。决定窗体边框式样及窗体是否能调整大小。（4 4）BackColorBackColor属性和属性和ForeColor ForeColor 属性属性 BackColor属性设置窗体的背景颜色；属性设置窗体的背景颜色；ForColor 属性设置窗体的前景颜色。窗体的前

6、属性设置窗体的前景颜色。窗体的前景颜色是执行景颜色是执行Print方法时所显示方法时所显示文本文本的颜色。的颜色。第11页，此课件共105页哦 （5 5）HeightHeight属性和属性和WidthWidth属性属性 设置窗体的初始高度和宽度。其单位为设置窗体的初始高度和宽度。其单位为TwipTwip。1Twip=1/201Twip=1/20点点=1/1440=1/1440英寸英寸=1/567=1/567厘米。厘米。（6 6）LeftLeft属性和属性和TopTop属性属性 用于设置窗体左边框距屏幕左边界的距离用于设置窗体左边框距屏幕左边界的距离和窗体顶边距屏幕顶端的距离。其单位为和窗体顶边

7、距屏幕顶端的距离。其单位为TwipTwip。第12页，此课件共105页哦 （7 7）NameName（名称）属性（名称）属性 设置窗体的名称，在程序代码中用这设置窗体的名称，在程序代码中用这个名称引用该窗体。新建工程时，窗体的个名称引用该窗体。新建工程时，窗体的名称缺省为名称缺省为 Form1Form1；添加第二个窗体，其；添加第二个窗体，其名称缺省为名称缺省为 Form2Form2，以此类推。为了便于，以此类推。为了便于识别，用户通常给识别，用户通常给 Name Name 属性设置一个有属性设置一个有实际意义的名称。实际意义的名称。第13页，此课件共105页哦 （8 8）EnabledEna

8、bled属性属性 属性值为属性值为TrueTrue或或FalseFalse，设置对象是否能对，设置对象是否能对用户产生的事件做出反应。一般在程序中设置，用户产生的事件做出反应。一般在程序中设置，用于临时屏蔽对窗体或其他控件的的控制。用于临时屏蔽对窗体或其他控件的的控制。（9 9）MoveableMoveable属性属性 属性值为属性值为TrueTrue或或FalseFalse，设置是否可以移动，设置是否可以移动窗体。窗体。（1010）VisibleVisible属性属性 属性值为属性值为TrueTrue或或FalseFalse，设置窗体是否被显，设置窗体是否被显示。用户可用该属性在程序代码中控

9、制窗体的示。用户可用该属性在程序代码中控制窗体的隐现。隐现。第14页，此课件共105页哦 （1111）PicturePicture属性属性 设置在窗体中显示的图片。单击设置在窗体中显示的图片。单击PicturePicture属性右边的按钮，弹出属性右边的按钮，弹出“加载图片加载图片”对话框，用户可选择一个图片文件作为对话框，用户可选择一个图片文件作为窗体的背景图片。若在程序中设置该属性窗体的背景图片。若在程序中设置该属性的值，需要使用的值，需要使用LoadPictureLoadPicture函数。函数。第15页，此课件共105页哦 （1212）WindowStateWindowState属性属

10、性 设置窗体启动后的大小状态。它有三个可设置窗体启动后的大小状态。它有三个可选值：选值：0-Normal:0-Normal:窗体大小由窗体大小由HeightHeight和和WidthWidth属性决定。属性决定。1-Minimized:1-Minimized:窗体最小化成图标。窗体最小化成图标。2-Maximized:2-Maximized:窗体最大化，充满整个屏幕。窗体最大化，充满整个屏幕。第16页，此课件共105页哦 在在VBVB中，虽然不同的对象有不同的属中，虽然不同的对象有不同的属性集合，但有一些属性，如性集合，但有一些属性，如Name Name、EnabledEnabled、Visi

11、bleVisible、HeightHeight、WidthWidth、LeftLeft、TopTop等，其他控件也具有，且具有相似的作等，其他控件也具有，且具有相似的作用。在后续的章节中，我们主要介绍各种用。在后续的章节中，我们主要介绍各种控件常用的特殊属性。控件常用的特殊属性。第17页，此课件共105页哦 3.1.2 3.1.2 事件事件 窗体最常用的事件有三种：窗体最常用的事件有三种：ClickClick（单（单击）、击）、DbClickDbClick（双击）、（双击）、LoadLoad（装入）。（装入）。第18页，此课件共105页哦 （1 1）ClickClick事件事件 程序运行后，单

12、击窗体触发该事件。程序运行后，单击窗体触发该事件。（2 2）DbClickDbClick事件事件 程序运行后，双击窗体触发该事件。程序运行后，双击窗体触发该事件。（3 3）LoadLoad事件事件 LoadLoad事件是窗体被装入内存工作区时触事件是窗体被装入内存工作区时触发的事件。如果这个事件过程存在，就马上发的事件。如果这个事件过程存在，就马上执行它。执行它。LoadLoad事件过程通常用于启动程序时事件过程通常用于启动程序时对属性、变量的初始化，装载数据等。对属性、变量的初始化，装载数据等。第19页，此课件共105页哦 【例例3.13.1】窗体上无最大化最小化按钮，窗体上无最大化最小化按

13、钮，程序运行后，在窗体上装入一幅图片作为程序运行后，在窗体上装入一幅图片作为背景；当单击窗体时，窗体变宽；当双击背景；当单击窗体时，窗体变宽；当双击窗体时，则退出。程序运行界面如图窗体时，则退出。程序运行界面如图3-23-2所所示。示。第20页，此课件共105页哦 （a）Load事件事件（b）Click事件事件图图3-2 3-2 例例3.13.1运行界面运行界面第21页，此课件共105页哦 属性设置如表属性设置如表3-1所示。所示。对象属性设置Form1Caption练习窗体事件MaxButton FalseMinButton False表表3-1 3-1 例例3.13.1对象属性设置对象属性

14、设置第22页，此课件共105页哦 事件过程如下：事件过程如下：Private Sub Form_Load()Private Sub Form_Load()装入图片装入图片 Form1.Picture=Form1.Picture=LoadPicture(c:picChangcheng.wmf)LoadPicture(c:picChangcheng.wmf)End SubEnd SubPrivate Sub Form_click()Private Sub Form_click()单击窗体单击窗体 Form1.Width=Form1.Width+1000Form1.Width=Form1.Width

15、+1000End SubEnd SubPrivate Sub Form_DblClick()Private Sub Form_DblClick()双击窗体双击窗体 EndEndEnd SubEnd Sub第23页，此课件共105页哦3.2 3.2 命令按钮命令按钮 在在VBVB应用程序中，命令按钮是使用的应用程序中，命令按钮是使用的最多的对象之一，常常用它接受用户的操最多的对象之一，常常用它接受用户的操作信息，触发相应的事件过程，以实现指作信息，触发相应的事件过程，以实现指定的功能。定的功能。第24页，此课件共105页哦 3.2.1 3.2.1 属性属性（1 1）CaptionCaption属

16、性属性 设定命令按钮上显示的文本。设定命令按钮上显示的文本。（2 2）DefaultDefault属性属性 该属性用于设置默认命令按钮。当该属性用于设置默认命令按钮。当Default属性设置为属性设置为True时，按时，按ENTER键相键相当于用鼠标单击了该按钮。当于用鼠标单击了该按钮。第25页，此课件共105页哦 （3 3）Style Style 属性和属性和PicturePicture属性属性 命令按钮上除了可以显示文字外，还可以显示图形。命令按钮上除了可以显示文字外，还可以显示图形。若要显示图形，首先应将若要显示图形，首先应将Style Style 属性设置为属性设置为1 1，然后，然后

17、在在PicturePicture属性中设置要显示的图形文件。类似的，若属性中设置要显示的图形文件。类似的，若要设置命令按钮的要设置命令按钮的BackColorBackColor（背景色），也应将（背景色），也应将Style Style 属性设置为属性设置为1 1。Style Style 属性可设置为：属性可设置为：0-Standard0-Standard：标准的，命令按钮上不能显示图形。标准的，命令按钮上不能显示图形。1-Graphical1-Graphical：图形的，命令按钮上可以显示图形，也：图形的，命令按钮上可以显示图形，也可以显示文字。可以显示文字。第26页，此课件共105页哦 （4

18、 4）ValueValue属性属性 该属性只能在程序运行期间引用或设该属性只能在程序运行期间引用或设置。置。TrueTrue表示被按下，表示被按下，FalseFalse（默认）表示（默认）表示未被按下。在代码中可通过设置未被按下。在代码中可通过设置ValueValue属性属性为为TrueTrue，来触发命令按钮的，来触发命令按钮的ClickClick事件。例事件。例如，利用下面代码，可通过程序来选择命如，利用下面代码，可通过程序来选择命令按钮，并触发命令按钮的令按钮，并触发命令按钮的ClickClick事件。事件。Command2.Value=TrueCommand2.Value=True 3

19、.2.2 3.2.2 事件事件 最常用的事件是最常用的事件是ClickClick事件。事件。第27页，此课件共105页哦3.3 3.3 标签标签 标签（标签（LabelLabel）主要用于显示不需要用）主要用于显示不需要用户修改的文本。所以，标签可以用来标示户修改的文本。所以，标签可以用来标示窗体及窗体上的对象，如为文本框、列表窗体及窗体上的对象，如为文本框、列表框等添加描述性的文字，或者作为窗体的框等添加描述性的文字，或者作为窗体的说明文字。说明文字。第28页，此课件共105页哦 3.3.1 3.3.1 属性属性 （1 1）CaptionCaption属性属性 设置标签要显示的内容。它是标签

20、的设置标签要显示的内容。它是标签的主要属性。主要属性。（2 2）BorderStyleBorderStyle属性属性 默认值为默认值为0，标签无边框；设置为，标签无边框；设置为1时，时，标签有立体边框。标签有立体边框。第29页，此课件共105页哦 （3 3）AutosizeAutosize属性属性 该属性用于设置标签是否自动改变尺该属性用于设置标签是否自动改变尺寸以适应其内容。设置为寸以适应其内容。设置为TrueTrue时，随着时，随着CaptionCaption的内容变化，自动调整标签的大小，的内容变化，自动调整标签的大小，并且不换行；设置为并且不换行；设置为FalseFalse时，标签保持

21、设时，标签保持设计时的大小，这时如果内容太长，只能显计时的大小，这时如果内容太长，只能显示一部分。默认值为示一部分。默认值为FalseFalse。第30页，此课件共105页哦 （4 4）AlignmentAlignment属性属性 确定标签中内容的对齐方式，有三种可选值：确定标签中内容的对齐方式，有三种可选值：0-Left Juseify0-Left Juseify：默认值，左对齐。：默认值，左对齐。1-Right Juseify1-Right Juseify：右对齐。：右对齐。2-Center2-Center：居中对齐。：居中对齐。（5 5）BackStyleBackStyle属性属性 该属

22、性用于设置背景是否透明。默认值为该属性用于设置背景是否透明。默认值为1 1，不透明；设为，不透明；设为0 0时，透明。所谓透明，是指无时，透明。所谓透明，是指无背景色。背景色。第31页，此课件共105页哦 3.3.2 3.3.2 事件事件 常用常用ClickClick，DbClickDbClick事件。事件。【例例3.23.2】修改例修改例3.13.1，在图片上加提示，在图片上加提示信息信息“请单击图片请单击图片”，程序其它功能不变。，程序其它功能不变。程序运行界面如图程序运行界面如图3-23-2所示。所示。第32页，此课件共105页哦 图图3-3 3-3 例例3.23.2运行界面运行界面第3

23、3页，此课件共105页哦 操作如下：操作如下：在窗体上添加一个标签，将其在窗体上添加一个标签，将其CaptionCaption属性设置为属性设置为“请单击图片请单击图片”，BackStyleBackStyle属属性设置为性设置为0 0（透明），程序代码不变。（透明），程序代码不变。第34页，此课件共105页哦 3.4 3.4 文本框文本框 文本框（文本框（TextBoxTextBox）在窗体中为用户提）在窗体中为用户提供一个既能显示文本又能编辑文本的区域供一个既能显示文本又能编辑文本的区域第35页，此课件共105页哦 3.4.1 3.4.1 属性属性（1 1）TextText属性属性 设置文本

24、框中显示的内容。它是文本设置文本框中显示的内容。它是文本框最主要的属性。框最主要的属性。（2 2）LockedLocked属性属性 设置文本框中的内容是否可编辑。设置文本框中的内容是否可编辑。默认值为默认值为False，表示可编辑，当设置，表示可编辑，当设置为为True时，不可编辑，此时文本框的作用时，不可编辑，此时文本框的作用相当于标签。相当于标签。第36页，此课件共105页哦 （3 3）MaxlengthMaxlength属性属性 设置文本框中允许输入的最大字符数。设置文本框中允许输入的最大字符数。如果输入的字符数超过如果输入的字符数超过MaxlengthMaxlength设定的数目后，设

25、定的数目后，系统将不接受超出部分的字符，并发出嘟嘟声。系统将不接受超出部分的字符，并发出嘟嘟声。该属性默认值为该属性默认值为0 0，表示无限制。，表示无限制。（4 4）MultiLineMultiLine属性属性 决定文本框是否允许接收多行文本。若设决定文本框是否允许接收多行文本。若设置为置为TrueTrue，文本框可接收多行文本，当输入的，文本框可接收多行文本，当输入的文本超出文本框的边界时，会自动换行。默认文本超出文本框的边界时，会自动换行。默认值为值为FalseFalse，文本框中只能输入一行文本。，文本框中只能输入一行文本。第37页，此课件共105页哦 （5 5）PassWordCha

26、rPassWordChar属性属性 当当MultiLineMultiLine为为FalseFalse时，该属性可设置时，该属性可设置显示在文本框中的替代符。显示在文本框中的替代符。例如，例如，PassWordCharPassWordChar设置为设置为“*”“*”，那么，那么无论用户输入什么字符，文本框中显示的只无论用户输入什么字符，文本框中显示的只是是“*”“*”，但文本框接收的还是用户实际输入，但文本框接收的还是用户实际输入的字符。设置该属性主要用于输入口令。的字符。设置该属性主要用于输入口令。（6 6）ScrollBarsScrollBars属性属性 决定文本框中是否有滚动条。决定文本框

27、中是否有滚动条。只有当只有当MultiLineMultiLine属性为属性为TrueTrue时，文本框时，文本框才能加滚动条。才能加滚动条。第38页，此课件共105页哦 3.4.2 3.4.2 事件事件 文本框除支持文本框除支持ClickClick，DbClickDbClick事件，常用事件，常用的还有的还有ChangeChange，LostFocusLostFocus事件。事件。1.Change1.Change事件事件 当用户输入新内容，或程序对文本框的当用户输入新内容，或程序对文本框的TextText属性重新赋值，从而改变文本框的属性重新赋值，从而改变文本框的TextText属属性时触发该

28、事件。性时触发该事件。第39页，此课件共105页哦 2.LostFocus2.LostFocus事件事件 当用户按下当用户按下键时光标离开文本框，键时光标离开文本框，或用鼠标选择其他对象时触发该事件，称或用鼠标选择其他对象时触发该事件，称为为“失去焦点失去焦点”事件。事件。焦点是对象接收用户鼠标或键盘输入焦点是对象接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的能力。当对象具有焦点时，可接收用户的输入。通常用该事件过程对文本框中的的输入。通常用该事件过程对文本框中的内容进行检查和确认。内容进行检查和确认。第40页，此课件共105页哦 3.4.3 3.4.3 方法方法 文本框最常用的

29、方法是文本框最常用的方法是SetFocusSetFocus，使，使用该方法可把光标移到指定的文本框中，用该方法可把光标移到指定的文本框中，使之获得焦点。当使用多个文本框时，用使之获得焦点。当使用多个文本框时，用该方法可把光标移到所需要的的文本框中。该方法可把光标移到所需要的的文本框中。其使用格式为：其使用格式为：对象对象.SetFocus 第41页，此课件共105页哦 【例例3.33.3】程序运行后，随着用户的输程序运行后，随着用户的输入，标签中同步显示出用户对文本框的内入，标签中同步显示出用户对文本框的内容更新的次数。运行效果如图容更新的次数。运行效果如图3-43-4所示。所示。第42页，此

30、课件共105页哦 图图3-4 3-4 例例3.3 3.3 运行效果运行效果第43页，此课件共105页哦 （1 1）界面设计）界面设计 在窗体上建立一个文本框、一个标签。在窗体上建立一个文本框、一个标签。设置各对象的属性，如表设置各对象的属性，如表3-23-2所示。所示。对象属性设置Form1 Caption 文本框应用示例Text1 text 空 MultiLine TrueLabel1 Caption 空 BorderStyle 1 Alignment 2 Font 字体大小取二号表表3-2 3-2 例例3.33.3对象属性设置对象属性设置第44页，此课件共105页哦 （2 2）编写事件过程

31、如下：）编写事件过程如下：Private Sub Text1_Change()Private Sub Text1_Change()Static i%Static i%i=i+1 i=i+1 Label1.Caption=i Label1.Caption=iEnd SubEnd Sub第45页，此课件共105页哦 3.5 3.5 赋值语句赋值语句 赋值语句是赋值语句是VBVB程序最常用、最基本的程序最常用、最基本的语句，它能为变量提供数据。另外，若要语句，它能为变量提供数据。另外，若要在程序代码中设置对象的属性，也是使用在程序代码中设置对象的属性，也是使用赋值语句。赋值语句。第46页，此课件共1

32、05页哦 赋值语句有两种格式：赋值语句有两种格式：格式格式1 1：变量名变量名=表达式表达式格式格式2 2：对象名对象名.属性名属性名=表达式表达式赋值语句的作用是：首先计算赋值语句的作用是：首先计算“=”=”右边表右边表达式的值，然后将该值赋给达式的值，然后将该值赋给“=”=”左边的变左边的变量或对象的属性。在格式量或对象的属性。在格式2 2中，若对象名省中，若对象名省略，则默认对象为当前窗体。略，则默认对象为当前窗体。第47页，此课件共105页哦 例如：例如：x=2 x=2 把把2 2赋给赋给x xy=x*3 y=x*3 计算计算x*3x*3的值，得的值，得6 6，把，把6 6赋给赋给y

33、yx=x+1 x=x+1 计算计算x+1x+1的值，得的值，得3 3，把，把3 3赋给赋给x xa$=Hello a$=Hello 把把“Hello”Hello”赋给赋给a$a$Text1.Text=Text1.Text=你好！你好！把把“你好！你好！”赋给赋给Text1Text1的的TextText属性属性第48页，此课件共105页哦 这里还要说明一下赋值语句中的类型这里还要说明一下赋值语句中的类型问题。通常，在使用时应使表达式值的类问题。通常，在使用时应使表达式值的类型与变量（或对象的属性）类型相同，以型与变量（或对象的属性）类型相同，以避免出现避免出现“类型不匹配类型不匹配”的错误。不过

34、，的错误。不过，某些情况下，某些情况下，VBVB容许容许“=”=”两边类型不相同。两边类型不相同。第49页，此课件共105页哦 例如：例如：dim x!,y%,z$dim x!,y%,z$x=“12.5”x=“12.5”把数值形式的字符串赋给把数值形式的字符串赋给 数值变量数值变量y=34.24 y=34.24 把单精度数赋给整型变把单精度数赋给整型变 量，此时截去小数部分量，此时截去小数部分z=6 z=6 把整数赋给实型变量把整数赋给实型变量第50页，此课件共105页哦 以上三种情况都是赋值相容的。在赋以上三种情况都是赋值相容的。在赋值相容前提下，当值相容前提下，当“=”=”两边类型不相同时

35、，两边类型不相同时，VBVB自动将表达式值的类型转换成自动将表达式值的类型转换成“=”=”左边左边变量（或对象的属性）的类型，这种方式变量（或对象的属性）的类型，这种方式称为称为“向左看齐向左看齐”。上例中，实际赋给。上例中，实际赋给x x、y y、z z的值分别是的值分别是12.512.5、3434、6.06.0。第51页，此课件共105页哦 【例例3.4 3.4】已知三角形三边已知三角形三边a a，b b，c c，的长，求三角形的面积，输出三条边长及的长，求三角形的面积，输出三条边长及面积。面积。第52页，此课件共105页哦 分析：应用程序的界面应该能让用户分析：应用程序的界面应该能让用户

36、输入三边的长，程序在接收用户输入的数输入三边的长，程序在接收用户输入的数据后，利用数学公式对数据进行计算，并据后，利用数学公式对数据进行计算，并把结果输出到屏幕上。已知三角形三边把结果输出到屏幕上。已知三角形三边a，b，c，的长，求三角形的面积的公式为：，的长，求三角形的面积的公式为：其中其中p=(a+b+c)/2。第53页，此课件共105页哦 （1 1）界面设计）界面设计 在窗体上建立五个标签、三个文本框在窗体上建立五个标签、三个文本框和一个命令按钮。设置各对象的属性，如和一个命令按钮。设置各对象的属性，如表表3-33-3所示。所示。第54页，此课件共105页哦 对象属性设置Form1cap

37、tion计算三角形面积Label1caption请输入三边Label2captionaLabel3captionbLabel4captioncLabel5caption空Text1text空Text2text空Text3text空Command1caption计算表表3-3 3-3 例例3.43.4对象属性设置对象属性设置 设计完成的界面如图设计完成的界面如图3-53-5所示所示第55页，此课件共105页哦 图图3-5 3-5 例例3.43.4界面界面第56页，此课件共105页哦 （2 2）编写事件过程如下：）编写事件过程如下：Private Sub Command1_Click()Dim a

38、!,b!,c!,p!,s!a=Text1.Text b=Text2.Text c=Text3.Text p=(a+b+c)/2 s=Sqr(p*(p-a)*(p-b)*(p-c)Label5.Caption=sEnd Sub第57页，此课件共105页哦3.6 Print3.6 Print方法方法 PrintPrint是输出数据的一种重要方法。是输出数据的一种重要方法。3.6.1 Print3.6.1 Print的格式及功能的格式及功能格式：格式：对象名对象名.Print.Print 表达式列表表达式列表。功能：在对象上输出表达式的值。功能：在对象上输出表达式的值。（1 1）对象名：）对象名：可

39、以是可以是FormForm（窗体）、（窗体）、DebugDebug（立即窗口）（立即窗口）、PicturePicture（图片框）、（图片框）、PrinterPrinter（打印机）。（打印机）。省略此项，表示在当前窗体上输出。省略此项，表示在当前窗体上输出。第58页，此课件共105页哦 例如：例如：Print 23*2=Print 23*2=；23*2 23*2 在当前窗在当前窗体上输出体上输出23*2=4623*2=46Picture1.Print Good Picture1.Print Good 在图片在图片框框Picture1Picture1上输出上输出Good Good Printe

40、r.Print Morning Printer.Print Morning 在打在打印机上输出印机上输出Morning Morning 第59页，此课件共105页哦 （2 2）表达式列表：）表达式列表：是一个或多个表达式，若为多个表达是一个或多个表达式，若为多个表达式，则各表达式之间式，则各表达式之间“，”或或“；”隔开。隔开。省略此项，则输出一空行。省略此项，则输出一空行。（3 3）用）用“，”分隔各表达式时，各项分隔各表达式时，各项在以在以1414个字符位置为单位划分出的区段中个字符位置为单位划分出的区段中输出，每个区段输出一项；用输出，每个区段输出一项；用“；”分隔分隔各表达式时，各项按

41、紧凑格式输出。各表达式时，各项按紧凑格式输出。第60页，此课件共105页哦 （4 4）如果在语句行末尾有）如果在语句行末尾有“；”，则下一个则下一个PrintPrint输出的内容，将紧跟输出的内容，将紧跟在当前在当前PrintPrint输出内容后面；输出内容后面；如果在语句行末尾有如果在语句行末尾有“，”，则下一，则下一个个PrintPrint输出的内容，将在当前输出的内容，将在当前PrintPrint输出内容的下一区段输出；输出内容的下一区段输出；如果在语句行末尾无分隔符，则输出如果在语句行末尾无分隔符，则输出完本语句内容后换行，即在新的一行完本语句内容后换行，即在新的一行输出下一个输出下一

42、个PrintPrint的内容的内容。第61页，此课件共105页哦 例如例如：Print 1 Print 1；2 2；3 3 Print 4 Print 4，5 5，Print 6 Print 6 Print 7 Print 7，8 8 Print Print Print 9 Print 9，1010 输出结果为输出结果为：1 2 31 2 34 5 64 5 67 87 89 109 10第62页，此课件共105页哦 （4 4）定位输出）定位输出 PrintPrint方法中，可以使用方法中，可以使用TabTab函数对输出项函数对输出项进行定位。进行定位。例如：例如：Print Tab(10);

43、Print Tab(10);姓名姓名;Tab(25);Tab(25);年龄年龄 则则“姓名姓名”和和“年龄年龄”分别从当前行的第分别从当前行的第1010列和第列和第2525列开始输出。列开始输出。第63页，此课件共105页哦 输出结果如下：输出结果如下：姓名姓名 年龄年龄 在使用在使用TabTab函数时，要将输出的内容放函数时，要将输出的内容放在在TabTab函数的后面，并用函数的后面，并用“；”隔开。隔开。第64页，此课件共105页哦 TabTab函数的格式为函数的格式为Tab(n)Tab(n)，其中，其中n n为整为整数表达式，用它来指定输出的起始位置。数表达式，用它来指定输出的起始位置。

44、PrintPrint方法中，还可以使用方法中，还可以使用SpcSpc函数，例如：函数，例如：Print Print 后面有后面有8 8个空格个空格；Spc(8);Spc(8);前面有前面有8 8个空格个空格 第65页，此课件共105页哦 输出结果如下：输出结果如下：后面有后面有8 8个空格个空格 前面有前面有8 8个空格个空格 SpcSpc函数格式为函数格式为Spc(n)Spc(n)，其中，其中n n为整数为整数表达式，表示在下一个输出项之前插入的表达式，表示在下一个输出项之前插入的空格数，空格数，SpcSpc函数与各输出项之间必须用函数与各输出项之间必须用“；”隔开。隔开。第66页，此课件共

45、105页哦 3.6.2 Cls3.6.2 Cls方法方法 格式：格式：对象名对象名.Cls.Cls 功能：功能：ClsCls方法清除方法清除PrintPrint方法显示的方法显示的文本或在图片框中显示的图形，并把输出文本或在图片框中显示的图形，并把输出位置移到对象的左上角。格式中的对象可位置移到对象的左上角。格式中的对象可以是窗体或图片框，如果省略对象名，则以是窗体或图片框，如果省略对象名，则清除当前窗体的显示内容。清除当前窗体的显示内容。第67页，此课件共105页哦 3.7 3.7 输入框输入框 我们知道，文本框可以接收用户的输我们知道，文本框可以接收用户的输入。输入框也可以接受用户的输入，

46、但是入。输入框也可以接受用户的输入，但是其风格和用法有别于文本框。其风格和用法有别于文本框。VBVB提供的提供的InputBoxInputBox函数可生成输入框。函数可生成输入框。例如：例如：p$=InputBoxp$=InputBox（请输入密码请输入密码 ，密码框密码框 ）执行该语句后，屏幕上显示如图执行该语句后，屏幕上显示如图3-63-6所所示的输入框。示的输入框。第68页，此课件共105页哦 标题标题文本区文本区提示提示图图3-6 3-6 输入框输入框第69页，此课件共105页哦 用户可在文本区输入数据，然后按用户可在文本区输入数据，然后按“确定确定”按钮，函数返回值是用户在文本区按钮

47、，函数返回值是用户在文本区输入数据，其类型为字符型。如果用户然输入数据，其类型为字符型。如果用户然后按后按“取消取消”按钮，则函数返回值是空字按钮，则函数返回值是空字符串。符串。第70页，此课件共105页哦 每执行一次每执行一次InputBoxInputBox函数，用户只能函数，用户只能输入一个数据，另外，输入框的样式是固输入一个数据，另外，输入框的样式是固定的，用户不能改变。用户能改变的是输定的，用户不能改变。用户能改变的是输入框的入框的“提示提示”和和“标题标题”的内容，的内容，“提提示示”和和“标题标题”都是字符串表达式。都是字符串表达式。第71页，此课件共105页哦 InputBoxI

48、nputBox函数的一般格式：函数的一般格式：InputBoxInputBox（提示（提示，标题，标题，缺省值，缺省值，x x坐标位置坐标位置，y y坐标位置坐标位置）其中各参数的含义如下：其中各参数的含义如下：“提示提示”：必选项。字符串表达式，在：必选项。字符串表达式，在对话框中作为提示信息。若要在多行显示提对话框中作为提示信息。若要在多行显示提示信息，则可以在各行之间用示信息，则可以在各行之间用vbNewLinevbNewLine来分来分隔，隔，vbNewLinevbNewLine是代表换行的常量。是代表换行的常量。第72页，此课件共105页哦 例如：例如：InputBox(InputB

49、ox(第一行第一行&vbNewLine&vbNewLine&第二行第二行)“标题标题”：字符串表达式，在对话框中：字符串表达式，在对话框中标题区显示，若省略，则标题为应用程序标题区显示，若省略，则标题为应用程序名。名。第73页，此课件共105页哦 “缺省值缺省值”：字符串表达式，在没有：字符串表达式，在没有其它输入时作为缺省值。其它输入时作为缺省值。“x x坐标位置坐标位置”、“y y坐标位置坐标位置”：整：整数表达式。坐标确定对话框左上角在屏幕数表达式。坐标确定对话框左上角在屏幕上的位置，屏幕左上角为坐标原点，单位上的位置，屏幕左上角为坐标原点，单位为为TwipTwip。1Twip=1/56

50、71Twip=1/567厘米。厘米。第74页，此课件共105页哦 需要注意的是：各项参数次序必须一需要注意的是：各项参数次序必须一一对应，除了一对应，除了“提示提示”不能省略外，其余不能省略外，其余各项均可省略，但省略部分也要用逗号占各项均可省略，但省略部分也要用逗号占位符跳过。位符跳过。第75页，此课件共105页哦 例如：例如：f$=InputBox(f$=InputBox(第一行第一行&vbNewLine&vbNewLine&第二行第二行,ddd,200,ddd,200,200)200)【例例3.53.5】已知圆半径，求圆周长和圆已知圆半径，求圆周长和圆面积。面积。第76页，此课件共105