第3章 简单的VB程序设计

第3章简单的VB程序设计1本章主要内容窗体

标签、文本框及命令按钮

顺序结构的程序设计

(4学时)23.1窗体31.Name(名称)属性（任何对象都具有的）

创建的对象名称，有默认的名称。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。窗体及控件的属性设置方法也可以说主要就是对属性窗口的操作。例如，通过修改某些属性，可以定制窗体控件的外观。3.3.1窗体的基本属性43．BackColor背景颜色属性

可以利用属性窗口中的调色板设置颜色

。

4．Appearance外观效果属性0---平面效果1—三维立体效果

2．Caption标题属性决定出现在窗体的标题栏上的文本内容，也是当窗体被最小化后出现在窗体图标下的文本。5．Borderstyle边框和控制菜单类型属性56-9.Left、Top、Height和Width属性这四个属性决定窗体（或控件）的大小，在容器中的位置。Form1.WidthForm1.HeightCommand1.TopCommand1.LeftCommand1.WidthCommand1.Height单位为twip：1twip=1/20点=1/1440英寸=1/567cm63.3.2窗体的事件和方法1.窗体的事件(1)．Click鼠标单击事件(2)．Dblclick鼠标双击事件(3)．Load窗体装载事件(4)．Activate窗体激活事件(5-8)．MouseDown、MouseUp、MouseMove和KeyPress鼠标操作事件72.窗体的方法(1)．Show显示窗体方法(2)．Hide隐藏窗体方法(3)．Print窗体显示文本方法(4)．PrintForm打印窗体方法(5)．Cls清除窗体内容方法(6)．Move移动窗体方法8例3-1：设计一个窗体，无最大化按钮和最小化按钮，在窗体装入时，在窗体的标题栏显示“装入窗体”，并在窗体装入一图片文件“Clouds.Bmp”作为背景；当用户单击窗体时，在标题栏显示“鼠标单击”，在窗体中以红色、48号隶书显示“欢迎进入VB”的字样；当用户双击窗体，在标题栏显示“鼠标双击”，窗体的背景变为黄色，在窗体中以蓝色、36号华文行楷显示“谢谢使用VB”的字样。9(a)Load事件运行效果(b)Click事件运行效果窗体的常用事件应用(c)DblClick事件运行效果10程序如下：PrivateSubForm_Load()Form1.Width=4000Form1.Height=2500Caption="装入窗体"Picture=LoadPicture(App.Path+"\Clouds.Bmp")EndSubPrivateSubForm_Click()FontSize=36FontName="隶书"ForeColor=RGB(255,0,0)Caption="鼠标单击"PrintPrint"欢迎进入VB"EndSub11PrivateSubForm_DblClick()ClsPicture=LoadPicture("")FontSize=36FontName="华文行楷"BackColor=RGB(255,255,0)ForeColor=RGB(0,0,255)Caption="鼠标双击"PrintPrint"谢谢使用VB"EndSub123.2标签、文本框及命令按钮

133.2.1标签（Lable）功能：主要用于显示不需要用户修改的文本。所以，标签可以用来标识窗体及窗体上的对象，如为文本框、列表框等添加描述性文字。不能作为输入信息的界面。用于显示文本(输出)信息，不能作为输入信息的界面。14(2)Autosize属性：该属性用来决定是否自动调整控件大小。(3)BackStyle属性：该属性用来设置背景风格。0--透明显示1--不透明。(4)BorderStyle属性：该属性用来设置标签是否有边框。

0–无边框。1–有单线边框。(5)WordWrap属性：折行显示文本。标签的主要属性：(1)Alignment属性:Alignment属性用来确定标签中内容的对齐方式。

0-LeftJuseify：左对齐。（默认值）

1-RightJuseify：右对齐。

2-Center：居中对齐。152.标签的主要事件常用单击（Click），双击（DblClick）和改变（Change）事件。例3-2：利用两个标签控件，显示具有浮雕效果的文字。控件名字体字号边框样式(BorderStyle)背景样式(BackStyle)前景颜色(ForeColor)标签定位(Left、Top)320,360365,420黑

白

1(不透明)0(透明)1(有边框)0(无边框)Label2Label1黑体

黑体

26磅26磅属性设置标签常用属性的应用16功能：接受并响应用户输入的命令，执行程序的特定操作。3.2.2命令按钮（CommandButton

）(1)Enable属性：是否可用。(2)Style属性：是否可显示图形。(3)Picture属性：给命令按钮指定一个图形。(4)DisabledPicture属性：该属性用来设置对一个图形的引用，当命令按钮禁止使用时，在按钮中显示图形。只有当Style属性设置为1时，此属性才有效，否则无效。1.命令按钮的主要属性：17(5)DownPicture属性：该属性用来设置控件被单击并处于按下状态时，在控件中所显示图形，只有当Style属性设置为1时，此属性才有效，否则无效。(6)Appearance属性：设置按钮外观。0-平面1-立体(7)Default属性：一个命令按钮的该属性为True，则不论焦点在窗体的哪个控件上，只要用户按Enter键，就产生这个按钮的单击事件。(8)Cancel属性：一个命令按钮的该属性为True，则不论焦点在窗体的哪个控件上，只要用户按Esc键，就产生这个按钮的单击事件。18(9)ToolTipText属性：该属性是工具提示功能。(10)MousePointer属性：设置鼠标指针形状。命令按钮的常用事件为单击(Click)事件，命令按钮不支持双击(DblClick)事件。2.命令按钮的主要方法：***命令按钮的常用事件：命令按钮的主要方法只有SetFocus方法，此方法用于在程序运行期间，强制指定的控件获得焦点。例：Command3.SetFocus19功能：文本框是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。3.2.3文本框（TextBox）1.文本框的主要属性：(1)ForeColor属性：设置字符颜色。(2)Text文本属性：设置文本框中要显示的内容，也可保存程序运行期间在文本框中输入的任何数据。(3)Font属性：通过激活对话框来设置字符的大小、字体、字型、斜体、粗体和下划线等。20(4)MaxLength属性：设置文本框中能够输入的正文内容的最大长度。(5)

MultiLine属性：True：则可使用多行文本，即在文本框中输入或显示文本时可换行。按Crtl+Enter键可以插入一个空行。False：则在文本框中只能输入单行文本。(6)ScrollBars属性：该属性用来确定文本框中是否有滚动条。当MultiLine多行属性为True时，ScrollBars属性才有效。0--无滚动条。1--加水平滚动条。

2--加垂直滚动条。3--同时加水平和垂直滚动条。21(7)Locked属性：决定是否锁定文本框内容。False：表示可以编辑，默认值为False。True：文本控件相当于标签的作用，不能被编辑。(8)PasswordChar属性：该属性可用于口令输入。在默认状态下，该属性被设置为空字符串(不是空格)，当用户从键盘上输入时，每个字符都可以在文本框中显示出来。如果把PasswordChar属性设置为一个字符，例如星号(*),则在文本框中输入字符时，显示的不是输入的字符，而是被设置的字符(如星号)。22(9)SelText属性：用于返回文本框中被选中的字符串。(10)SelLength属性：用于返回文本框中被选中的字符个数。2.常用事件（1）Change事件当用户向文本框中输入新信息，或当程序把Text属性设置为新值从而改变其Text属性时，将触发Change事件，程序运行后，在文本框中每输入一个字符，就会引发一次Change事件。23（2）KeyPress事件当用户按下并释放键盘上的一个ANSI键时，就会引发焦点所在控件的KeyPress事件，此事件会返回一个KeyAscii参数到该事件过程中。例如，当用户输入字符“a”，返回KeyAscii的值为97，通过Chr(KeyAscii)可以将ASCII码转换为字符“a”。KeyPress事件同Change事件一样，每输入一个字符就会引发一次该事件；事件中最常用的是对键入的是否为回车符(KeyAscii的值为13)的判断，表示文本的输入结束。243.文本框主要方法：SetFocus是文本框中常用的方法。格式：［对象.］SetFocus功能：该方法可以把光标移到指定的文本框中，当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框中。（3）LostFocus事件当按下Tab键使光标离开当前文本框或者用鼠标选择窗体中的其他对象时，触发该事件，用Change事件和LostFocus事件过程都可以检查文本框的Text属性值，但后者更有效。25例3-3在窗体中添加三个文本框（Text1、Text2、Text3）和三个命令按钮（Command1、Command2、Command3），三个命令按钮的标题属性值分别为“显示”、“清除”、“退出”。程序要求：（1）当用户在第一个文本框（Text1）中输入的每个字符都会在第二个文本框（Text2）和第三个文本框（Text3）中同步显示，只是第二个文本框中对应的字符进行了大写转换成小写的操作，第三个文本框中对应的字符进行了小写转换成大写的操作。（2）当单击“显示”按钮时，Text1中则显示事先预置的字符串，Text2和Text3也会同步分别显示转换后的字符串。（3）当单击“清除”按钮时，则三个文本框的内容被清除。（4）当单击“退出”按钮时，退出程序。26文本框的Change事件应用27程序如下：PrivateSubCommand1_Click()Text1.Text="MicrosoftVisualBasic6.0"EndSubPrivateSubCommand2_Click()Text1.Text=“”Text2.Text=“”Text3.Text=“”EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubText1_Change()Text2.Text=LCase(Text1.Text)Text3.Text=UCase(Text1.Text)EndSub28例3-4设计一个反映窗体和控件之间位置关系的实例。窗体中有三个命令按钮，一个文本框控件。在程序运行时，设置文本框不可见，当分别单击“左上角”、“居中”和“右下角”按钮时，使文本框移动到相应的位置上。(a)文本框在窗体的左上角

(b)文本框在窗体的正中(c)文本框在窗体的右上角窗体与按钮控件位置关系29PrivateSubForm_Load()Text1.Text=""Text1.Visible=FalseEndSubPrivateSubCommand1_Click()Text1.Visible=TrueText1.Top=0Text1.Left=0Text1.Text="左上角"EndSubPrivateSubCommand2_Click()Text1.Visible=TrueText1.Top=((Me.Height-500)/2)-(Text1.Height/2)Text1.Left=(Me.Width/2)-(Text1.Width/2)Text1.Text="居中"EndSub30PrivateSubCommand3_Click()Text1.Visible=TrueText1.Top=Me.Height-Text1.Height-500Text1.Left=Me.Width-Text1.WidthText1.Text="右下角"EndSub说明：（1）对象名Me表示当前窗体Form1。（2）表达式Me.Height-500是指窗体的高度-窗体标题栏的高度（约500），即窗体顶内侧边框至底部的高度。313.3顺序结构的程序设计

323.3.1赋值语句赋值语句是VB程序最常用、最基本的语句，它能为变量提供数据。另外，若要在程序中设置对象的属性，也要使用赋值语句。赋值语句有两种格式：格式1：变量名=表达式格式2：[对象名.]属性名=表达式功能：将表达式的值赋值给变量名或指定对象的属性。若对象名省略，则默认对象为当前窗体。例如：a=3:b=4:c=a+bText1.Text＝"欢迎使用VisualBasic6.0”33说明：执行过程是先求表达式的值，然后将其赋于左边的变量。2.右边表达式可以是变量、常量、函数调用等特殊的表达式。3.不要将“=”理解为数学上的等号。例如，A=A+1是表示将A变量的值加１后以放回到A变量。4．虽然赋值号与关系运算符等于号都用“=”表示，但VB系统不会产生混淆。会根据所处的位置自动判断是何种意义的符号。343.3.2数据输出Print方法格式：[对象名.]Print[表达式列表]功能：Print方法可以在相应对象上显示文本和表达式的值。说明：1．对象名：可以是窗体、立即窗口、图片框、打印机等。若省略对象名，则在当前窗体上输出。2．表达式列表：是一个或多个表达式，若为多个表达式，则各表达式之间用“，”或“；”号隔开。省略此项，将输出一空行。353．用“，”分隔各表达式时，各项在以14个字符位置为单位划分的区段中输出。即按“标准格式”输出。用“；”分隔各表达式时，各项按紧凑格式输出。4．一般来说，每个Print语句输出的内容，都会在新的一行输出，但是，如果在语句行末尾有分隔符“，”或“；”，则下一个Print语句的输出内容，将不换行，并按分隔符的格式确定内容的输出位置。5．在Print方法中，可以使用Tab函数对输出项进行定位。还可以使用Spc函数，在输出项之间留出空格。6.在Print方法中，使用Format函数对输出项实现格式输出。36示例：Print“goodmorning!”

‘输出字符串到当前窗体Printer.Print“goodmorning!”

‘输出字符串到打印机Print360/6

‘输出60Print“360/6”

‘输出360/6Print

‘输出一空行37PrivateSubForm_Click()FontSize=14Print"12345678901234567890123456789012345"Print1,2,3Print1;2;3Print“1”,“2”,“3”Print“1”;“2”;“3”EndSub示例：38示例：(设a的值为5,b的值为6)Printa,Printb

‘输出56Print 1,2;3,Print4Print5;”abcd”

‘输出1 23 45abcd

39例3-6利用Print方法在窗体中输出表达式的值。(a)输出模式(c)定位输出(b)换行/不换行(d)格式输出Print方法的应用40程序如下：PrivateSubCommand1_Click()ClsFontSize=10Print"12345678901234567890123456789012345"'标尺Print1,2,3'字符数据按标准、紧凑形式输出Print1;2;3Print"1","2","3"'字符数据按标准、紧凑形式输出Print"1";"2";"3"EndSubPrivateSubCommand2_Click()Clsa=5:b=6Print"12345678901234567890123456789012345"'标尺Printa,'不换行Printb'换行Print1,2;3,'不换行Print4'换行Print5;"abcd"EndSub41PrivateSubCommand3_Click()ClsPrint"12345678901234567890123456789012345"'标尺Xm="王强"Cj=85PrintTab(10);"姓名";Tab(25);"成绩"'Tab函数PrintTab(10);Xm;Tab(25);CjPrintPrintSpc(9);"姓名";Spc(11);"成绩"'Spc函数PrintSpc(9);Xm;Spc(11);CjEndSub42PrivateSubCommand4_Click()ClsDima#,b!,c$,dAsDatea=3.1415926b=1234.567c="Book"d=NowPrintTab(5);Format(a,"0000.000")'格式符"0"PrintTab(5);Format(a,"####.###")'格式符"#"PrintTab(5);Format(a,"0%")'格式符"0%"PrintTab(5);Format(b,"##,##")'格式符","PrintTab(5);Format(b,"$##,#.##")'格式符"$"和"."PrintTab(5);Format(c,"<&&&&&&&")'格式符"<"和"&"PrintTab(5);Format(c,">@@@@@@@")'格式符">"和"@"PrintTab(5);Format(d,"yy/mmmm/d")'格式符"yy/mmmm/d"PrintTab(5);Format(d,"m/d/yyh:m")'格式符"m/d/yyh:m"PrintTab(5);Format(d,"yy/m/dh:m:sa/p")'格式符"yy/m/dh:m:sa/p"EndSub433.3.3InputBox函数和MsgBox函数1.InputBox函数InputBox函数产生一个输入对话框，作为输入数据的界面，等待用户输入数据。如果输入的数据与设置的默认值一致，则可直接回车或按“确定”按钮。完成输入后，将返回到调用该函数的程序。注意，返回值是一个字符串数据，对于程序中所需的数值型数据则应需转换。44格式：InputBox(prompt[,title][,default][,…])提示字符串显示在对话框顶端的标题区的标题文本框中的默认值。若省略default，则文本框为空。若用户输入数据，则该数据取代默认值。45标题提示字符串缺省值46例3-7编一简单程序，单击窗体后，在生成的两个输入对话框中分别输入学生姓名和年龄。并在窗体输出。

(a)主窗体(b)输入对话框InputBox函数应用47程序如下：PrivateSubForm_Click()stuname=InputBox$("输入学生姓名：","输入数据")msg1="输入学生年龄："msg2="确认是默认值，直接回车或按“确定”按钮！"msg3="否则，在文本区输入新的值后回车！"msg=msg1+vbCrLf+msg2+vbCrLf+msg3stuage=InputBox(msg,"输入数据",18)FontSize=12PrintPrintTab(10);"姓名";Tab(25);"年龄"PrintTab(10);stuname;Tab(25);stuageEndSub482.MsgBox函数MsgBox函数产生一个信息对话框，在对话框中给出相应的提示和操作按钮，系统在接受到用户做出选择后，继续执行相应的操作。此时，MsgBox函数返回一个与用户所选按钮相对应的整数。格式：MsgBox(msg[,type][,title][,…]

)为整数值或字符常量，用来控制在对话框内显示的按钮、图标的种类及数量。提示字符串信息框标题49例：最常见的保存文件的信息框。信息框标题提示字符串（不能超过1024个字符,可用表达式“Chr(13)+Chr(10)”或字符常量“vbcrlf”强制换行）

由Type参数决定按钮数和图标种类50下面详细介绍Type函数：Type参数的设置值及描述：“按钮类型和数目＋图标类型＋缺省按钮＋模式”是整型表达式。决定信息框按钮数目、出现在信息框上的图标类型及操作模式。(在大多数应用程序中，通常只使用前3组数值)第一组值（0～5）：描述对话框中显示的按钮的类型和数目。第二组值（16、32、48、64）：描述图标的样式。第三组值（0、256、512、768）：指明默认活动按钮。第四组值（0、4096）：决定消息框的强制返回值。51Type参数的按钮及图标设置值及描述信息图标64警告信息图标48询问信息图标32关键信息图标，红色STOP标志16图标类型显示“重试”、“取消”按钮5显示“是”、“否”按钮4显示“是”、“否”和“取消”按钮3显示“终止”、“重试”和“忽略”按钮2显示“确定”、“取消”按钮1只显示“确定”按钮0按钮数目描述按钮值分组第一个按钮是默认值第二个按钮是默认值第三个按钮是默认值第四个按钮是默认值0255512768默认

按钮

52Type值为16Type值为64Type值为5153Type值为34Type值为1954根据用户所选按钮，函数返回1—7的整数值：55例3-8：编写一个由MsgBox函数产生的以下不同的信息框的应用程序。

MsgBox函数应用(a)程序运行窗口(b)最简单的信息框(c)文件另存信息框56程序如下：PrivateSubCommand1_Click()msg="Type值缺省，无图标！"+vbCrLf+"仅有一个“确定”按钮！"r=MsgBox(msg,,"最简单的信息框")EndSubPrivateSubCommand2_Click()msg="E:\vb\例题\例3.7frm已存在。"+vbCrLf+"要替换它吗？"r=MsgBox(msg,308,"文件另存为")EndSub57本章练习581.下列叙述中不正确的是————。

A)只有窗体才是VisualBasic中的对象B)只有控件才是VisualBasic中的对象C)窗体和控件都是VisualBasic中的对象D)窗体和控件都不是VisualBasic中的对象2.为了把窗体上的某个控件变为活动的，应执行的操作是__。

A)单击窗体的边框B)单击该控件的内部C)双击该控件D)

双击窗体√√3.不论何控件，共同具有的属性是___。A)Text

B)Name

C)ForeColor

D)Caption√594.文本框没有的属性是___。A)Enabled

B)Visible

C)BackColor

D)Caption√5.若要使命令按钮不可操作，需设置的属性是___。A)Enabled

B)Visible

C)BackColor

D)Caption√6.若要使某控件在运行时不可显示，需设置的属性是___。A)Enabled

B)Visible

C)BackColor

D)Caption√√7.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，需设置的属性是___。A)MaxButton

B)BorderStyle

C)Width

D)MinButton6010.当运行程序时，系统自动执行启动窗体的事件过程是___。A)Load

B)Click

C)UnLoad

D)GotFocus8.确定控件在窗体上的位置的属性是___。A)Width或Height

B)Width和Height

C)Top或Left

D)Top和Left9.为了同时改变活动控件的高度和宽度，正确的操作是___。A)拖拉控件4个角上的某个小方快

B)只能拖拉位于控件位于右下角的个小方快

C)只能拖拉位于控件位于左下角的个小方快

D)不能同时改变控件的高度和宽度√√√6111.下列描述中不正确的是___。A)窗体是对象B)窗体必须有Name属性C)窗体可以缩放或移动D)单击窗体内的控件可以执行Form_Click事件过程√12.假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VBTest”的语句为___。A)Form1=“VBTest”

B)Caption=“VBTest”C)Form1.Text=“VBTest”

D)Form1.Name=“VBTest”13.保存新建的工程时，默认的路径是___。A)MyDocumentsB)VB98C)\D)Windows√√62√14.设a=27、b=65；执行Printa;b语句后，输出结果是___。A)27∆65B)∆27∆65C)∆27∆∆65D)∆27∆∆65∆15.设a=“Beijing”、b=“Shanghai”；执行Printa;b语句后，输出结果是___。A)Beijing∆ShanghaiB)BeijingShanghaiC)∆Beijing∆ShanghaiD)∆Beijing∆Shanghai∆√√16.下列能正确输出2,345.67的语句是___。A)PrintFormat$(2345.668,“00000.00”)

B)PrintFormat$(2345.668,“#,####.##”)C)PrintFormat$(2345.668,“0,0000.00”)D)PrintFormat$(2345.668,“,#####.##”)6317.在窗体上画1个命令按钮(名称为Command1)，然后编写如下事件过程；运行程序，单击命令按钮，输出结果是__。PrivateSubCommand1_Click()b=5:c=6Printa=b+cEndSubA)a=11

B)a=b+cC)a=D)False18.设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是___。

a=b:b=c:c=a:Printa;b;cA)123

B)231C)321D)232√√:a=11True6419.在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，把文本框的Text属性设置为空白，然后编写如下事件过程；运行程序后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是____。PrivateSubCommand1_Click()a=InputBox(“Enteraninteger”)b=Text1.TextText1.Text=b+aEndSubA)579

B)123C)456123D)456√6520.在窗体上画1个命令按钮(名称为Command1)，然后编写如下事件过程；运行程序后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容是____。