VB程序设计初步

1、第3章 VB程序设计初步3.1 程序设计方法的发展3.2 窗体和基本控件3.3 数据的输入输出3.4 应用举例3.1程序设计方法的发展 随着计算机软、硬件技术的不断发展，出现了许许多多的程序设计语言，程序设计方法也得到不断发展，经历一个由低级到高级，由复杂到简单的过程。3.1.1 结构化程序设计 结构化程序包括三种结构：顺序结构、分支结构和循环结构。顺序结构是最简单的结构，程序按照命令的编写顺序执行。分支结构是根据条件取值的不同，分别执行不同的分支，也称为选择结构。循环结构是指在一定的条件下，重复执行一个程序段的结构。结构化程序设计的特点是：（1）自顶向下，逐步求精。（2）模块化。根据完成的功

2、能，将程序划分为相对独立的若干模块。模块之间关系简单、独立。（3）每一模块均是由三种结构组成的，模块化的实现的具体方法是子程序。3.1.2 面向对象程序设计随着计算机软件技术的发展，传统的结构化程序设计思想越来越不能适应软件开发工作的需要。80年代提出了面向对象的程序设计。面向对象程序设计的出发点和追求的基本目标，是使人们认识系统的方法于设计和实现这个系统的方法尽可能接近，也就是使描述问题的问题空间和解决问题的方法空间在结构上尽可能一致。基本方法是：对问题空间进行自然分割，对客观事物进行结构模拟，建立问题域模型，从而使设计出的软件尽可能直接地描述现实世界，构造出模块化的、可重用的、维护性好的软

3、件，从而降低软件的复杂性、提高软件开发效率并减少开发维护的费用。面向对象方法的三个核心：（1）封装 （2）继承 （3）多态性3.1.3 一个VB可视化编程简单实例设计一个窗口，当用户单击“显示”按钮时，窗口中显示“VB欢迎你”，单击“退出”按钮结束程序。根据前面讲的开发步骤：首先，根据程序要求的功能，考虑程序中要用到哪些控件。最好先画出一个草图，然后开始设计程序界面。启动Visual Basic，在自动出现的窗体Form1中加入一个文本框（Text1）和两个命令按钮（Command1和Command2）。其次，设置窗体和控件的初始属性。可用鼠标调整一下窗体、文本框和命令按钮的大小和位置，以使界

4、面美观。对于文本框，先将其Text属性设置为空。对两个命令按钮，将它们的Caption属性分别设置为“显示”和“退出”。然后分别编写两个命令按钮的事件代码。代码如下：（1）“显示”按钮（Command1）的事件代码：Private Sub Command1_Click（）Text1.FontName = 楷体_GB2312 Text1.FontSize = 15 设置文本框中的字体格式text1.Text=VB欢迎你！ 更改文本框的Text属性显示要得到的内容End Sub（2）“退出”按钮（Command2）的事件代码：Private Sub Command2_Click（）End 退出程序

5、End Sub最后，运行程序，检查程序的功能是否符合要求。如果不符合或运行出错，再修改调试直到运行成功。3.2窗体和基本控件3.2.1窗体对象介绍窗体对象介绍控制按钮工作区标题栏3.2.1.1 窗体的常见属性窗体的常见属性（1）Name属性：窗体的名称，用于在程序中唯一的标识窗体。在程序中每添加一个新窗体时，系统会自动给其一个默认的名称FormX。（2）Caption属性：窗体的标题，即显示在标题栏内控制图标右面的标题，用来向用户说明窗体的作用。系统默认为Form1。注意对象的Name属性和Caption属性的区别：Name是对象的名字，是计算机用来区分各个对象的；Caption是显示在对象上

6、的内容，是向用户说明各个对象的作用的。如例3.1中的“显示”按钮，它的Name为Command1，而Caption为“显示”。 （3）Appearance属性：设置窗体在运行时是否以立体的效果显示。0表示以平面的形式显示，1表示以3D的立体效果显示。（4）AutoRedraw属性：设置窗体是否具有自动重画的功能。若将该属性设为True，则当窗体被其他窗体覆盖又回到该窗体，或窗体的大小发生改变时，会自动刷新显示在窗体上的图形和文本。（5）BackColor属性：设置窗体的背景颜色。设置该属性时，可以通过打开的调色板选取适当的颜色。（6）BorderStyle属性：设置窗体的边框样式。该属性值可以

7、为05。0表示无边框；1表示窗体大小固定且具有单线边框；2（默认值）表示窗体具有大小可调整的边框；3表示窗体具有大小固定的边框；4表示窗体为单线固定工具窗口，且只包含关闭按钮；5表示窗体为可调整的工具窗口，且只包含关闭按钮。设计者可以根据需要选择窗体相应的样式。（7）Enabled属性：每个对象都具有Enabled属性，用来设置对象是否可以被用户激活，即对象是否接受并响应用户事件。若该属性设置为False，则对象一般呈暗淡显示，说明用户不可使用该对象。这个属性通常用来在程序运行时控制对象是否达到可以使用的条件。（8）Visible属性：该属性是用于设置对象在程序运行时是否可见。若该属性为Tru

8、e，则对象显示在屏幕上，若该属性为False，则对象隐藏起来，不在屏幕上显示。（9）Movable属性：布尔值，设置程序运行时窗体是否可以被用户改变位置。（10）MaxButton、MinButton属性：布尔值，设置窗体的标题栏中是否具有最大化最小化按钮。（11）ContrlBox属性：设置窗体是否具有关闭功能。若该属性为True，则窗体中存在关闭按钮，可以被用户关闭，并且用鼠标单击控制图标也可以打开控制菜单；若该属性为False，则窗体中不存在关闭按钮和控制菜单。（12）ForeColor属性：设置窗体的前景色。窗体中输出的文本按照窗体的前景色输出。（13）Font属性：设置窗体中输出的字

9、符的特征，包括字体、字型、大小等。（14）WindowState属性：设置窗体运行时的初始状态。该属性值可以为02的一个整数。0：正常状态。运行后窗体的大小以设计阶段为准。1：最小化状态。运行后窗体缩小为一个图标显示在任务栏中。2：最大化状态。运行后窗体充满整个屏幕。（15）StartUpPosition属性：用于控制窗体首次显示时的位置。该属性值可以为03的一个整数。0：窗体的初始位置由其Left和Top属性决定。1：窗体显示在屏幕中央，若是MDI窗体，则显示在其父窗体的中央。2：窗体显示在屏幕中央。3：窗体显示在屏幕的左上角。（16）Left、Top、Height、Width属性：所有的对

10、象都具有以上四个属性，用来确定对象的大小和位置，这些属性值都是整数。 3.2.1.2 窗体的事件窗体的事件（1）Click（单击）事件：单击事件是几乎每个对象都具有的事件，当用户在一个对象上按下并释放鼠标按钮时发生。对窗体而言，当在窗口内没有其他控件的任何位置单击鼠标时，就会触发窗体的Click事件。（2）DblClick（双击）事件：对象的双击事件，也是大多数对象都具有的一个事件。当用户在一个对象上双击鼠标时发生。（3）Activate事件：窗体的激活事件。在窗口由非活动窗口变为活动窗口时的瞬间发生，窗口一旦成为活动窗口，该事件就会消失。（4）Deactivate事件：与Activate事件

11、相对，在窗口由活动窗口变为非活动窗口时的瞬间发生。（5）Load事件：窗体的加载事件，当窗体被调入内存并显示在屏幕上时发生。每执行一个应用程序，在屏幕上都会至少打开一个窗口，所以，该事件是执行应用程序时发生时间较早的一个事件，因此，在这个事件中通常加入一些在程序执行之前，对程序中用到的对象或变量等进行初始化的语句。（6）MouseDown事件：当用户在对象上按下鼠标按钮时发生。在这个事件中，可以通过判断用户按下的是左键还是右键而做出不同的事件处理。（7）Resize事件：当窗体第一次显示或用户改变窗体的大小时会触发这个事件的发生。（8）Unload事件：当窗体被关闭而从屏幕上消失时发生。3.2

12、.1.3 窗体的常见方法和语句窗体的常见方法和语句（1）Load语句：该语句用来将新创建的窗体加载到内存中 Load 窗体名（2）Show方法：用来将一个已经装入内存的窗体显示出来。其语法如下：.Show 其中“模式”参数有两种取值：0（默认值）表示非模化的窗体， 1表示模化的窗体。模化的窗体是指该窗口出现后，用户必须对其作出响应，否则不能进行其他任何操作的窗口。这种窗口经常用在一些对话框窗口上。（3）Hide方法：用于隐藏显示在屏幕上的窗体。隐藏窗体时，用户将无法访问该窗体上的控件，但是运行中的VB应用程序并不卸载它，仍然可以使用语句访问隐藏窗体上的控件。其语法为： . Hide（4）Unl

13、oad语句用来卸载窗体。在窗体被卸载以后，所有在运行时放到该窗体上的控件都不再是可访问的，在设计时放到该窗体上的控件将保持不变。其语法如下：Unload （5）Cls方法：用于清除在窗体上显示的文本，并把光标重新定位到窗体的左上角。其语法为： .Cls3.2.2 命令按钮（命令按钮（CommandButton）命令按钮是应用程序中最为常用的控件之一，其主要功能是用来执行某一功能 3.2.2.1 命令按钮的常用属性命令按钮的常用属性（1）Caption属性：该属性用来设置显示在命令按钮上的标题，也就是命令按钮上方出现的文本。设置带有快捷键的命令按钮的Caption属性时在相应的字母前加上“&am

14、p;”符号，例如：要得到 的命令按钮，则应将其Caption属性设置为“确定（&Ok）”。 （2）Default属性和Cancel属性 ：用来设置窗体中哪一个命令按钮是默认命令按钮和默认取消按钮，其值为False或True。注意，在同一窗体上只能有一个命令按钮的Default属性和Cancel属性被设定为True。（3）Enabled属性：设置命令按钮是否能被按下。（4）Style属性：设置命令按钮的外观样式。0Standard（缺省），命令按钮显示为标准样式，不能在其中显示图形或设置颜色；1Graphical，图形样式，在命令按钮上可以显示图形或设置颜色。（5）Picture属性：通

15、过该属性可以指定一个图形文件用来在命令按钮上显示该文件所对应的图形。要在命令按钮上显示图形，有效的前提是Style属性为1。（6）Value属性：该属性设置为True时表示按钮被按下。该属性只能在程序运行期间使用。3.2.2.2 命令按钮的常见事件命令按钮的常见事件当单击命令按钮时，通常可以启动启动一段程序，执行某项功能，所以命令按钮最常用的事件是Click（单击）事件。当用鼠标左键单击命令按钮时，会触发该事件的产生。可以在该事件中编写代码来处理相应的任务。其语法为：Private Sub CommandButtonname_Click（）事件过程代码End Sub除此以外，命令按钮还可以接受

16、很多事件，如：鼠标按下（MouseDown）事件、鼠标抬起（MouseUp）事件、键盘按下（KeyDown）或松开（KeyUp）事件等。3.2.2.2 命令按钮的常用方法命令按钮的常用方法命令按钮的常用方法是SetFocus方法，使用该方法可以将焦点定位在指定的命令按钮上。其格式为： .SetFocus焦点表示了控件接收用户鼠标或键盘输入的能力。当对象具有焦点时，可以接收用户的输入。 3.2.3 标签和文本框控件标签和文本框控件标签和文本框都是用来在程序中显示文本信息的控件。但它们在显示文本时的功能存在区别：在标签中只能显示字符文本，并且显示的文本不能被用户进行编辑，我们通常把这种文本称之为静

17、态文本；而文本框不但可以显示文本，并且允许用户对显示的文本进行各种编辑操作，所以，用户也可以利用文本框进行字符信息的输入。3.2.3.1 标签（标签（Label）标签3.2.3.1.1 标签的常见属性标签的常见属性（1）Caption属性：标签的标题。标签中显示的文本只能用Caption属性来实现。（2）Alignment属性设置标签中标题的对齐方式。0（缺省）标题在标签中左对齐；1右对齐；2居中。（3）AutoSize属性设置标签是否能够根据其中的标题自动调整大小。设置为True时，标签可根据其中的标题自动调整大小以把所有的文本都显示出来；设置为False（缺省）时，不论标题有多少，标签保持

18、设计时定义的大小，超出的部分不能显示。（4）BorderStyle属性设置标签是否具有边框。0（缺省）无边框；1有边框。（5）BackStyle属性设置背景样式。0标签透明；1标签不透明。（6）WordWrap属性布尔值。设置为True时，标签可以在垂直方向上变化大小以和标题相适应，但前提条件必须使AutoSize的值为True；设置为False时，标签不能在垂直方向上变化。3.2.3.1.1 标签的事件和方法标签的事件和方法标签可以接收Click和DblClick事件。但是，在实际应用中，标签通常是给其他控件用作说明的，用户很少对标签进行任何操作，所以，标签的事件很少用到。标签控件支持Mov

19、e方法，用于实现标签的位置移动和大小变换。Move方法的格式如下： . Move ， ， ， 其中，指示对象左边的水平坐标；指示对象顶边的垂直坐标；和指示对象新的宽度和高度。使用Move方法可以修改对象的left和top属性，从而实现对象位置上的改变。另外，使用该方法还可以重新设定对象的width和height的属性值，所以，该方法也可以用来改变对象的大小。很多对象都支持Move方法。如窗体、命令按钮等。3.2.3.1 文本框（文本框（Text）文本框除了用于显示输出信息之外，还可以使用文本框作为输入控件，在运行时接收用户输入的数据。3.2.3.1 文本框的常见属性文本框的常见属性（1）Tex

20、t属性：字符串类型。返回或设置文本框中显示的内容。（2）MaxLength属性：设置文本框中用户可以输入的字符串长度是否有受到限制。缺省值为0，表示该文本框中字符串长度只受操作系统内存的限制；若该属性被设置为大于0的整数，则表示文本框中能够输入的最大字符数。（3）MultiLine属性：设置文本框是单行方式还是多行方式，有True和False两种属性值。设置为True时文本框以多行文本方式显示文本，一行显示不下的内容会自动换到下行显示；否则，以单行方式显示，超出文本框宽度的部分会被截掉。（4）PasswordChar属性：该属性用来设置是否在控件中显示用户键入的实际字符。如果为该属性设置了某一

21、字符,那么无论Text属性值是什么，在文本框中都只显示该字符。注意：要想使该属性有效，MultiLine属性必须设置为False。（5）ScrollBars属性：设置文本框是否具有垂直或水平滚动条。0（缺省）表示没有滚动条；1有水平滚动条；2有垂直滚动条；3既有水平滚动条又有垂直滚动条。注意：设置为1、2或3时有效的前提是MultiLine属性必须设置为True。（6）MousePointer属性：该属性设置鼠标经过文本框时指针的类型，共有16种指针类型可供选择。（7）Locked属性：设置程序运行时文本框中的内容是否可以被用户编辑。默认值为False，表示可以被用户编辑。3.2.3.1 文本

22、框的事件和方法文本框的事件和方法（1）Change事件：当用户向文本框中输入新的文本，或在程序中对文本框的Text属性进行更改时，将触发其Change事件。（2）GotFocus事件：对象获得焦点事件。当运行程序时用Tab键或用鼠标选择对象，或用SetFocus方法使光标定位在对象上时，会触发该事件。（3）LostFocus事件：对象失去焦点事件。当按下Tab键或用鼠标选择其他对象使光标离开当前对象时触发该事件。（4）KeyPress事件：当焦点在当前文本框中，在键盘上按下某个按键则触发该对象的KeyPress事件。该事件返回一个参数KeyAscii，表示所按下的键的ASCII码。（5）Set

23、Focus方法：与命令按钮一样，该方法是将光标移动到指定的文本框中，使其获得焦点。这是文本框比较常用的方法，当在窗体中建立了多个文本框后，可以使用该方法把光标置于所需要的文本框上。3.3数据的输入输出3.3.1 数据的输入数据的输入3.3.1.1使用文本框控件输入数据使用文本框控件输入数据 文本框除了可以显示文本信息以外，还可以接收用户输入的数据，所以可以使用文本框来实现数据的输入。当在窗体上加入一个文本框后，程序执行时用户可以在文本框中光标的指示下输入字符，用户输入的字符通过文本框的Text属性返回。 3.3.1.2使用输入框（使用输入框（InputBox）函数输入数据）函数输入数据VB另外

24、提供了一个输入框函数InputBox函数，可以在程序中要输入数据的地方使用该函数产生一个输入对话框，这样，只需要一行代码就可以实现输入窗体的功能，节省了大量开发时间。InputBox函数的语法格式为：InputBox（，）该函数的功能是产生一个对话框，作为输入数据的界面，等待用户输入并返回所输入的内容。 表3-1 InputBox函数的参数参数说明提示信息字符串表达式，在对话框内显示提示信息，提示用户输入数据的格式、作用等。如果包含多行，可以在各行之间用回车符Chr（13）、换行符Chr（10）或回车换行符的组合Chr（13）&Chr（10）来分隔。对话框标题字符串表达式，显示在标题栏

25、中作为对话框的标题。缺省为当前工程的名字。默认值字符串表达式，显示在对话框的文本框中，在没有其他输入时作为默认输入值使用。缺省为空。X数值表达式，指定对话框左边与屏幕左边的水平距离。如果省略，对话框在水平方向居中Y数值表达式，指定对话框上边与屏幕上边的垂直距离。如果省略，对话框在屏幕垂直方向距下边1/3的位置显示。3.3.2 赋值语句赋值语句赋值语句是程序设计中最基本的语句，它不但可以将指定的值赋给某个变量，而且还可以将指定的属性值赋给某个带有属性的对象。赋值语句的格式：格式1：变量名=表达式格式2：对象名.属性名=表达式（在格式2中，若对象名省略，则默认对象为当前窗体。）功能：把“=”右边表

26、达式的值赋给“=”左边的变量或对象的属性。赋值语句兼有计算和赋值的双重功能，它首先计算赋值号右边的值，然后把结果赋给左边的变量或对象的属性。利用赋值语句在给对象的属性赋值时，必须十分清楚该属性值的类型，将类型相容的数据赋给它，否则将会产生错误。 3.3.3 数据的输出数据的输出3.3.3.1用用Print方法输出数据方法输出数据Print方法可以在窗体、图片框、打印机等对象上输出数据。其格式为：. Print ；|，其中，可以是窗体、图片框或打印机等可以使用该方法的对象。如果省略对象，则在当前窗体上输出数据。中的表达式是要输出的输出项，可以是算术表达式、字符串表达式、关系表达式或布尔表达式，多

27、个表达式之间可以用逗号或分号隔开。3.3.3.2用文本框和标签控件输出数据用文本框和标签控件输出数据前面介绍了文本框和标签的功能，它们都可以用来显示文本信息，所以可以把要输出的数据以字符的形式在文本框或标签中显示出来。文本框和标签在输出数据时的区别在于使用文本框输出的文本可以允许用户进行编辑，而使用标签显示的文本用户不能进行任何的编辑操作。文本框的Text属性和标签的Caption属性分别用来表示要在其中显示的文本内容，所以，要在文本框或标签中显示文本，只需要把要显示的内容赋给它们相应的属性即可。3.3.3.3用消息框（用消息框（MsgBox）输出数据）输出数据消息框是一类特殊的窗口。VB中提

28、供了一个函数MsgBox，专门用来产生消息框，它可以向用户传送信息，并可以通过用户在对话框上的选择识别用户所作的响应，作为程序继续执行的依据。使用MsgBox函数，可以快速的得到各类对话框。1. MsgBox 函数格式：MsgBox（， ，功能：产生一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个整数确定用户单击了哪个按钮。该函数的参数含义说明如下：（1）：字符串表达式，该字符串的内容将在由MesgBox函数产生的对话框上显示，作为系统提示信息。该字符串的长度不能超过1024个字符，如果超过，则多余的字符被截掉。当字符串在一行内显示不下时，将自动换行，也可以用“Chr$(13)+C

29、hr$(10)”强制换行。分类按钮值系统符号常量含义按钮类型0VbOKOnly只显示“确定”按钮1VbOKCancel显示“确定”及“取消”按钮2VbAbortRetrylgnore显示“终止”、“重试”和“忽略”按钮3VbYesNoCancel显示“是”、“否”和“取消”按钮4VbYesNo显示“是”、“否”按钮5VbRetryCancel显示“重试”、“取消”按钮图标类型16VbCritical显示Critical Message图标32VbQuestion显示Warning Query图标？48VbExclamation显示Warning Message图标！64VbInformatio

30、n显示Information Message图标默认按钮0VbDefaultButton1第一个按钮是默认值256VbDefaultButton2第二个按钮是默认值512VbDefaultButton3第三个按钮是默认值768VbDefaultButton4第四个按钮是默认值强制返回类型0VbApplication应用程序强制返回：应用程序一直被挂起，直到用户对消息框做出响应才继续工作（2） “按钮类型”的设置值及含义参数由上面四类数值组成，其组成原则是：从每一类中选择一个值，把这几个值加在一起就是该参数的值。不同的组合会得到不同的结果。（3）：字符串，显示在对话框的标题栏中作为标题。（4）M

31、sgBox函数的返回值是一个整数，这个整数与所选择的命令按钮有关，可以通过返回的这个整数的数值确定用户在对话框中单击的是哪个按钮，即用户在对话框中作出了什么响应。 返回值按下的按钮系统符号变量1确定VkOk2取消VbCancael3终止VbAbort4重试VbRetry5忽略Vblgnore6是VbYes7否VbNo MsgBox函数的返回值2. MsgBox语句MsgBox函数也可以写成语句形式，即：MsgBox ， ，其中各参数的含义及作用与MsgBox函数相同。MsgBox语句和MsgBox函数实现的功能相同，只是没有返回值，因而通常用于较简单的信息输出。3.3.4 注释、暂停与程序结束

32、语句注释、暂停与程序结束语句1注释语句为了提高程序的可读性，可以在程序的适当位置加上必要的注释，对语句的功能加以解释。VB中的注释语句以一个撇号（）或REM开始，其一般格式为： | REM 2暂停语句格式：STOP暂停语句是用来暂停程序的执行，其作用类似于“运行”菜单中的“中断”命令，相当于在程序代码中设置断点。当程序执行到STOP语句时，会暂停程序的执行，并自动打开立即窗口，方便用户调试跟踪程序。3结束语句格式：ENDEND语句用来结束一个程序的执行。当在程序中执行END语句时，当前程序将终止运行，所有变量都将重置，并关闭所有的数据文件。一个程序中有没有END语句对程序的运行并没有什么影响。

33、但是如果没有结束语句或者虽有但没有执行（例如不执行END语句的事件过程），则程序不能正常结束，为了保持程序的完整性，应在程序中包含END语句并通过END语句来结束程序。3.4 应用举例应用举例 3.4.1窗体程序设计窗体程序设计【例3.7】设计如图3-14所示的界面，当点击“显示”按钮时，在窗体上显示一副背景图片，点击“隐藏”按钮时再使其消失。分析：首先在窗体设计器中加入三个命令按钮，分别把它们的Caption修改为“显示”、“隐藏”和“退出”，并调整它们的大小和位置。为使界面统一友好，最好使这三个按钮大小一致、上下对齐，VB在“格式”菜单中提供了“对齐”和“统一尺寸”两个命令，可以使用这两个

34、命令实现控件的位置和大小调整。前面我们讲到过窗体的Picture属性，是用来设置显示在窗体中的图片的。所以，程序中要实现图片的显示和隐藏实质上是通过这个属性来控制的。当要在窗体上显示一副图片时，就让该属性的值为要显示的图片，否则，就使该属性的值为空。程序代码：“显示”按钮代码：Private Sub Command1_Click()Form1.Picture = LoadPicture(d:Soap.bmp) 修改Picture属性为要显示的图片End Sub“隐藏”按钮代码：Private Sub Command2_Click()Form1.Picture = LoadPicture() 修

35、改Picture属性为空图片End Sub“退出”按钮代码：Private Sub Command3_Click()End 结束程序End SubLoadPicture函数的功能是将指定的图形文件调入内存。其格式为：对象名.PictureLoadPicture（文件名）括号中双引号里面的内容是要加载的图形文件的名称（一般应写出完整路径）。通过代码修改对象的Picture属性时必须使用LoadPicture函数。运行界面【例3.8】设计如图3-15所示的界面，实现窗体位置的改变。当单击“改变位置”时，窗体移到屏幕的左上角，单击“还原”又回到原来的位置。分析：通过前面的学习我们知道，窗体的Top和

36、Left属性确定了窗体显示在屏幕上时的位置，因此，实现窗体位置的改变实质上是通过代码修改窗体的这两个属性的值。（1）初始化窗体程序运行时，首先应该让窗体有一个初始位置，相应的代码如下：Private Sub Form_Load()Form1.Left = 2500Form1.Top = 3000End Sub在Form的Load事件中给Form1的Top和Left属性赋上了一个初始值，使程序运行时窗体位于距离屏幕上方3000缇，左方2500缇的位置上。（2）改变窗体位置点击“改变位置”按钮，通过修改上面两个属性来实现，代码如下：Private Sub Command1_Click()Form1

37、.Move 100, 100End Sub这里是使用窗体的Move方法来改变窗体的Top和Left属性的。执行该过程后，窗体就会移动到距离屏幕上方100缇，左方100缇的位置上。除了使用Move方法以外，也可以使用赋值语句直接修改Top和Left的属性值。（3）恢复位置将窗体的位置还原，只需把Top和Left属性再改回原来的值即可（代码略）。同理，如果在实际应用中要实现窗体大小的改变，则只需要修改窗体的Width和Height就可以了。运行界面3.4.2文本框和标签程序设计文本框和标签程序设计【例3.9】设计一个简单的加法运算器，由用户从键盘上输入两个加数，然后求它们的和并将结果显示出来。程序

38、界面 表3-6 对象及属性设置对象属性属性值作用窗体Caption加法运算 标签1Caption加数1说明文本框1的作用标签2Caption加数2说明文本框2的作用标签3Caption+显示“+”号标签4Caption显示“”好文本框1Text空接收加数1文本框2Text空接收加数2文本框3Text空显示结果LockedTrue 命令按钮1Caption清除 命令按钮2Caption运算 命令按钮3Caption退出 程序中用到的对象及其属性“运算”按钮的事件过程：Private Sub Command2_Click()op1 = Val(Text1.Text)op2 = Val(Text2.

39、Text)Sum = op1 + op2Text3.Text = Str(Sum)End Sub文本框只能接收字符型数据，为了能够进行加法运算，首先要将用户在文本框1和文本框2中输入的字符通过Val（）函数转换为数值型数据，然后分别赋给变量op1和op2，op1和op2相加之后的结果赋给变量Sum。再按文本框的使用要求用Str（）函数把Sum转换成字符型数据，赋给文本框3的Text属性，以在文本框3中显示出来。“清除”按钮的事件过程：该按钮的作用是清除3个文本框中的原有信息，使其显示的内容为空白，并将光标自动定位到第1个文本框内，以便进行下次输入。代码如下：Private Sub Comman

40、d1_Click()Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus 将光标定位到Text1End Sub【例3.9】设计一个窗体，在其中创建两个标签和两个文本框，标签用于显示提示信息，其标题分别为“密码”和“明码”；两个文本框中一个用于输入密码，输入的密码要以“*”号显示，另一个将输入的密码的真实字符显示出来。分析：文本框1（Text1）用来使用户输入一个字符串型的密码，并以“*”号显示，所以要将其PasswordChar属性设置为“*”，这样，在Text1中输入的任何字符均显示为“*”。虽然显示在文本框中的不是真实的输入字符，但是这

41、并不影响Text1的Text属性，该属性值返回的仍然是用户输入的字符，所以可以通过该值得到用户输入的密码，将它赋给第二个文本框Text2的Text属性就可以将其显示出来。因为只要当用户在第一个文本框中进行输入，在第二个文本框中就要随之显示，所以，应该在Text1的 Change事件中编写代码。代码如下：Private Sub Text1_Change()Text2.Text = Text1.TextEnd Sub3.4.3对话框设计对话框设计【例3.10】利用输入对话框输入一个学生的姓名和电话，然后以消息框的形式给出提示，最后显示在窗体上。代码如下：Private Sub Form_Load()n = InputBox(请输入姓名：, 姓名)s = InputBox(请输入电话, 电话)str1 = 你的输入为 & n & 和 & sMsgBox str1Label1.Caption = 姓名： & nLabel2.Caption = 电话： &