1、（CommandButton）控件：是接受用户输入的命令。输入命令可以有三种方式： 鼠标单击 按Tab键焦点跳转到该按钮, 再按回车键 快捷键（Alt+有下划线的字母）一、属性（一）基本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font等与窗体的使用相同。 （二）常用属性1、Caption：标题属性命令按钮显示的内容，可在某字母前加“&”设置快捷键。例如：&Ok,显示Ok2、Default：确认属性（逻辑值），设置为True时，按Enter键相当于用鼠标器单击了该按钮。注意：一个窗体只能有一个按钮的Default设置为Ture。3、Cancel
2、：取消功能属性（逻辑值），当设置为Ture时，程序运行时按Esc键与单击此命令按钮的效果相同。注意：一个窗体只能有一个按钮的Cancel属性设置为Ture。4、Value：检查该按钮是否按下，该属性在设计时无效。5、Picture：按钮可显示图片文件(.bmp和.Ico)，只有当Style属性值设为1时有效。6、Style：确定显示的形。0只能显示文字,1文字、图形均可。7、ToolTipText：设置工具提示，和Picture结合使用。凡是使用过Windows应用软件的用户都非常熟悉这种情况，当自己不是十分清楚软件中某些图标按钮的作用时，可以把光标移到这个图标按钮上，停留片刻，在这个图标按钮
3、的下方就立即显示一个简短的文字提示行，说明这个图标按钮的作用，当把光标移开后，提示行立刻消失。Visual Basic为这一功能给命令按钮提供了属性“Text1中Text”，在运行或设计时，只需将该项属性设置为需要的提示行文本即可。二、常用方法在程序代码中，通过调用命令按钮的方法，来实现与命令按钮相关的功能。与命令按钮相关的常用方法主要有：（一）Move方法该方法的使用与窗体中的Move方法一样。Visual Basic系统中的所有可视控件都有该方法，不同的是窗体的移动是对屏幕而言，而控件的移动则是相对其“容器”对象而言。（二）SetFocus方法该方法设置指定的命令按钮获得焦点。一旦使用Se
4、tFocus方法，用户的输入（如按Enter键）被立即引导到成为焦点的按钮上。使用该方法之前，必须要保证命令按钮当前处于可见和可用状态，即其Visible和Enabled属性应设置为True。三、常用事件单击事件Click。对命令按钮控件来说，Click事件是最重要的触发方式。单击命令按钮时，将触发Click事件，并调用和执行已写入Click事件中的代码。多数情况下，主要是针对该事件过程来编写代码。2.4.2 标签控件（Label）标签控件Label：用于显示文本(输出)信息，不能作为输入信息的界面。一、基本属性Name、Height、Width、Top、Left、Enabled、Visibl
5、e、Font、ForeColor、BackColor等与窗体的使用相同。 二、常用属性1、Caption属性Caption属性用来改变Label控件中显示的文本。Caption属性允许文本的长度最多为1024字节。缺省情况下，当文本超过控件宽度时，文本会自动换行，而当文本超过控件高度时，超出部分将被裁剪掉。2、Alignment属性用于设置Caption属性中文本的对齐方式，共有三种可选值：0左对齐（Left Justify）1右对齐（Right Justify）2居中对齐（Center Justify）3、BackStyle属性该属性用于确定标签的背景是否透明。有两种情况可选：值为0时，表示
6、背景透明，标签后的背景和图形可见；值为1时，表示不透明，标签后的背景和图形不可见。4、AutoSize属性AutoSize属性确定标签是否会随标题内容的多少自动变化。如果值为True，则随Caption内容的大小自动调整控件本身的大小，且不换行；如果值为False，表示标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。5、WordWrap属性 例如：在窗体上，放置5个标签，其名称使用默认值Label1Label5，它们的高度与宽度相同，在属性窗口，按表2-1设置它们的属性：表2-1默认控件名Name标题Caption有关属性设置Label1左对齐 Alignment=0，BorderStyl
7、e=1 Label2水平居中Alignment=1，BorderStyle=1 Label3自动 AutoSize=True，WordWarp=False，BorderStyle=1Label4背景白 BackColor=&H00FFFFFF&，BorderStyle=0 Label5前景红 ForeColor=&H000000FF&，BorderStyle=0 设置后各标签的显示如图2-4：图2-4三、事件标签可响应单击（Click）和双击（DblClick）事件，但一般情况不对它进行编程。2.4.3 文本框（TextBox） 文本框控件TextBox：是一个文本编辑区域，可在该区域输入，编
8、辑和显示正文内容。一、属性（一）基本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与标签控件相同。 （二）常用属性1、Text文本属性字符型。返回或设置文本框中显示的内容。Text属性是文本框的默认属性。（文本框没有Caption属性）。例如：Text1Text“VISllal Bllsic程序设计”Printi Text1Text等价于Textl“visual Basic程序设计”Print Textl2、Maxlength：数值型。用于返回或设置在文本框中允许输入的最大字符数。默认值0为任意长度
9、值，表示在文本框中输入的字符数没有限制。例如：TextlMaxLength100 允许最大输入字符数为1003、MultiLine：逻辑型。决定控件是否允许接受多行文本。如果该属性被设置为False，文本框中只能输入一行文本：若设为True，可以使用多行文本，即在输入文本时可以用回车键换行输入。默认值为False。4、ScrollBars：数值型。决定控件中有没有滚动条，可以取0，1，2，3四个不同值，当MultiLine为True时,该属性才有效,滚动条的形式。其含义分别为：0None：无滚动条，默认值；1Horizontal：控件中只有水平滚动条；2Vertical控件中只有垂直滚动条；3
10、-Both同时具有水平滚动条和垂直滚动条。5、Locked：是否可被编辑属性，False，表示为可编辑。6、PassWordChar属性字符型。设置PasswordChar属性为了掩盖文本框中输入的字符。该属性的设置只有在MultiLine设为 False才有效。默认状态下，PasswordChar被设为空串（不是空格），用户输入的每个字符都显示在文本框中；如果把它设为一个字符，例如“”，则用户键入字符时，文本框中显示的只是“”号，但Text属性接收的是用户输入的文本。7、SelStart、SelLength和SelText属性这三个属性是文本框中对文本的编辑属性。SelStart：数值型。程
11、序运行期间设定或返回当前选择文本的起始位置，若未选择任何文本则为插入点位置。0表示选择第一个字符。该属性值随着用户操作而改变，也可通过赋值改变。SelLength：数值型。当前选中的字符数，只能在程序运行期间设定或返回。当在文本框中进行选择文本操作时，该属性值随着选择字符的多少而改变。也可以在程序代码中赋值。例如：Text1SelLength0 表示未选中任何字符SelText：字符型。表示当前所选取的文本字符串。如果当前没有选取文本，该属性返回一个空字符串。如果在程序中对该属性赋值，则用SelText属性值代替文本框中选取的文本。例如：设文本框Text1中有一行文本：Visual Basic
12、 programming并选择了“programming”，执行语句Text1SelText“程序设计”后，Text1中显示的文本，即Text属性值变成：Visual Basic程序设计这种情况下，属性SelLength的值将随着改变，而Selstart不会受影响。2.4.3 文本框（TextBox） 二、常用事件（一）Change当改变文本框的Text属性时会引发该事件。当用输入一个字符，就会触发一次Change事件。（二）KeyPress(KeyAscii As Integer)在键盘上按下某个键时触发该事件。并返回一个KeyAscii参数（字符的Ascii值）到该事件过程中。KeyPre
13、ss用来识别键入的字符，适用于窗体和大部分可接受键盘输入的控件。例如：输入“A”，则KeyAscii的值是65。可用函数Chr$(KeyAscii)可得到字符“A”。（三）LostFocus当按下Tab键使光标离开当前文本框，或者用鼠标选择窗体的其他对象时触发该事件，称为“失去焦点”事件。用Change事件过程和LostFocus事件过程都可检查文本框Text属性值，但后者更有效。（四）GotFocus当用Tab键或鼠标选择对象，或用SetFocus方法使光标落在控件（或窗体）上时，触发该事件，称为“获得焦点”。该事件适用于窗体和大部分可接受键盘输入的控件。三、常用方法 文本框最有用的方法是：
14、SetFocus，使用形式：对象.SetFocus功能：是把光标移到指定的文本框对象中。SetFocus方法的作用是把焦点移到指定的对象上，使对象获得焦点。该方法适用于文本框、窗体及大部分当前可见控件。Windows虽然允许同时运行多个程序，但只允许其中一个窗口处理键盘事件，这个窗口称为“当前窗口”。对于当前窗口来说，它也将会含有多个能够接受输入的控件或窗体，例如文本框、组合框、按钮和窗体本身都可接受键盘输入。若一个键盘事件同时让多个控件处理，显然是不合理的。因此，Windows规定当前窗口中也只允许一个控件或窗体处理键盘事件，而其他对象都不能接受键盘输入。这个处理键盘事件的对象称为“拥有焦点
15、”，而不能接受键盘输入的对象称为“不拥有焦点”。注意：一个对象原来不拥有焦点，现在能够接受键盘输入了，称为“获得焦点”，反之，称为“失去焦点”。【例】用Change事件改变文本框的Text属性。在窗体上建立两个命令按钮和三个文本框，其Name属性均取默认值：Commandl，Command2，Text1，Text2，Text3，然后编写如下事件过程：Private Sub Command1_Click（）TextlText“Visual Basic程序设计”End SubPrivate Sub Text1_Change（）Text2TextLCase（Text1Text）Text3TextUC
16、ase（Text1Text）End Sub程序运行后，单击命令按钮，在第一个文本框显示的是由Command1_Click 事件过程设定的内容。此时，触发控件Text1的Change事件，执行Text1_Change事件过程，分别在第二个、第三个文本框中用小写字母和大写字母显示文本框Text1中的内容。函数LCase和UCase对汉字不起作用。图2-52.5.1 VB应用程序的组成 工程文件（.Vbp）包含了一个应用程序的所有文件： 窗体文件（.frm）：控件及属性、事件过程和自定义过程 窗体的二进制数据文件（.frx）,自动产生同名的.frx文件。 标准模块文件（.bas） 类模块的文件（.c
17、ls） 资源文件（.res） ActiveX控件的文件（.ocx）一个VB应用程序中各主要文件的结构关系请参见动画演示：2.5.2 创建应用程序的步骤一、创建应用程序的步骤分析问题，确定程序要完成什么任务，按下面的步骤创建应用程序。1、新建工程。创建一个应用程序首先要打开一个新的工程。2、创建应用程序界面。3、设置属性值。4、对象事件过程的编程。5、保存文件。6、程序运行与调试。再次保存修改后的程序。 二、一个简单Visual Basic程序的创建（一）用工具箱绘制控件步骤如下：（二）调整控件大小、移动和锁定控件1、单击需要调整尺寸的控件，选定的控件上出现尺寸句柄。2、将鼠标指针定位到尺寸句柄
18、上，拖动该尺寸句柄直到控件达到所希望的大小为止。3、释放鼠标按钮。（三）设置属性属性窗口包含如下的元素：（四）编写代码1、打开代码编辑器窗口图2-9显示了在双击“命令按钮”控件后弹出的代码编辑器窗口，以及该命令的事件。图2-9 代码编辑器窗口2、事件过程的创建VB应用程序的代码被分为若干小的代码块，一个代码块称为过程。 在“对象”列表框中，选定活动窗体中的一个对象名。 在“过程”列表框中，选择指定对象的事件名。 在Sub和End Sub语句之间输入下面的代码：Text1.Text = Hello，world! 这个事件过程应该是：Private Sub Command1_Click()Text
19、1.Text = Hello，world!End Sub（五）保存应用程序在窗体和代码都设计好以后，应该保存文件，以防止调试或运行程序时发生死机或别的原因引起文件丢失。 （六）调试、运行应用程序为了运行应用程序，可以从“运行”菜单中选择“启动”，或者单击工具栏中的“启动”按钮，或按F5键。（七）生成可执行文件经调试，如果没有发现任何错误，就可以建立工程的可执行文件，见图2-10。图2-10第二章 Visual Basic基本控件及简单程序设计 本章主要教学内容总结VB集成开发环境是提供设计、运行和测试应用程序所需的各种工具的一个工作环境。使用可视化程序设计语言设计应用程序，主要完成界面设计和编
20、写事件驱动程序两部分工作。建立、编辑和运行一个简单的VB应用程序的全过程。熟悉VB的面向对象编程思想；掌握在VB中使用控件的基本方法。包括窗体、命令按钮、文本框和标签对象的常用属性、方法和事件。事件驱动机制的概念、作用。磄磄目立项申请报告 八、主要经济指标一览表八、主要经济指标一览表 序号序号项目项目单位单位指标指标备注备注 1 占地面积平方米 16308.15 24.45亩 1.1 容积率 1.37 1.2 建筑系数 51.04% 1.3 投资强度万元/亩 167.85 1.4 基底面积平方米 8323.68 1.5 总建筑面积平方米 22342.17 1.6 绿化面积平方米 1682.53
21、 绿化率7.53% 2 总投资万元 5303.52 2.1 固定资产投资万元 4103.93 2.1.1 土建工程投资万元 1707.87 2.1.1.1 土建工程投资占比万元 32.20% 2.1.2 设备投资万元 1244.63 2.1.2.1 设备投资占比 23.47% 2.1.3 其它投资万元 1151.43 2.1.3.1 其它投资占比 21.71% 2.1.4 固定资产投资占比 77.38% 2.2 流动资金万元 1199.59 2.2.1 流动资金占比 22.62% 3 收入万元 10832.00 4 总成本万元 8279.68 5 利润总额万元 2552.32 6 净利润万元
22、1914.24 7 所得税万元 1.37 泓域咨询MACRO/ 年产xxLED光色电综合测量系统项目立项申请报告 8 增值税万元 352.04 9 税金及附加万元 107.48 10 纳税总额万元 1097.60 11 利税总额万元 3011.84 12 投资利润率 48.13% 13 投资利税率 56.79% 14 投资回报率 36.09% 15 回收期年 4.27 16 设备数量台（套） 84 17 年用电量千瓦时 531645.44 18 年用水量立方米 6577.47 19 总能耗吨标准煤 65.90 20 节能率 20.25% 21 节能量吨标准煤 21.97 22 员工数量人 15
23、8 耗吨标准煤 141.16 20 节能率 24.82% 21 节能量吨标准煤 54.90 22 员工数量人 397 ,3 22 员工数量人 203 眗眗 建筑系数 64.47% 1.3 投资强度万元/亩 179.07 1.4 基底面积平方米 13536.87 1.5 总建筑面积平方米 29186.05 1.6 绿化面积平方米 1476.06 绿化率5.06% 2 总投资万元 6661.91 2.1 固定资产投资万元 5637.12 2.1.1 土建工程投资万元 2049.26 2.1.1.1 土建工程投资占比万元 30.76% 2.1.2 设备投资万元 1647.15 2.1.2.1 设备投
24、资占比 24.72% 2.1.3 其它投资万元 1940.71 2.1.3.1 其它投资占比 29.13% 2.1.4 固定资产投资占比 84.62% 2.2 流动资金万元 1024.79 2.2.1 流动资金占比 15.38% 3 收入万元 8978.00 4 总成本万元 6778.26 5 利润总额万元 2199.74 泓域咨询MACRO/ 年产xxLED器件、模组项目立项申请报告 6 净利润万元 1649.80 7 所得税万元 1.39 8 增值税万元 303.41 9 税金及附加万元 120.40 10 纳税总额万元 973.74 11 利税总额万元 2623.55 12 投资利润率
25、33.02% 13 投资利税率 39.38% 14 投资回报率 24.76% 15 回收期年 5.54 16 设备数量台（套） 88 17 年用电量千瓦时 954260.45 18 年用水量立方米 3853.25 19 总能耗吨标准煤 117.61 20 节能率 24.84% 21 节能量吨标准煤 35.13 22 员工数量人 134 4.1.1 算法概述及特性 一、算法概述广义地讲：算法是为完成一项任务所应当遵循的一步一步的规则的、精确的、无歧义的描述，它的总步数是有限的。狭义地讲：算法是解决一个问题采取的方法和步骤的描述。下面通过两个简单的例子加以说明：【例】输入10个数，打印输出其中最大
26、的数。其算法设计如下：1、输入1个数,存入变量A中,将记录数据个数的变量N赋值为1，即N=1。2、将A存入表示最大值的变量Max中，即Max=A。3、再输入一个值给A，如果AMax，则Max=A,否则Max不变。4、让记录数据个数的变量增加1，即N=N+1。5、判断N是否小于10，若成立则转到第3步执行，否则转到第6步。6、打印输出max。二、算法的特性 1、有穷性：一个算法必须在执行有穷多个计算步骤后终止。2、确定性：一个算法给出的每个计算步骤，必须都是精确定义的、无二义性的。3、有0个或多个输入：一个算法中可以没有输入，也可以有一个或多个输入信息，如果需要运行时输入不同数据，这些输入信息是
27、算法所需的初始数据。4、有一个或多个输出：一个算法应有一个或多个输出，一个算法得到的结果（中间结果或最后结果）就是算法的输出。没有输出的算法是没有意义的。5、有效性：算法中的每一个步骤必须有效地执行，并能得到确定结果。4.1.2 算法的表示一、自然语言与伪代码表示算法自然语言：就是指人们日常使用的语言，可以是汉语、英语或其它语言。用自然语言表示的优点是通俗易懂，缺点是文字冗长，容易出现“歧义性”。伪代码：是用介于自然语言和计算机语言之间的文字和符号（包括数学符号）来描述算法。【例】输入3个数，打印输出其中最大的数。可用如下的伪代码表示：Begin（算法开始）输入 A，B，CIF AB 则 AM
28、ax否则 BMaxIF CMax 则 CMaxPrint MaxEnd (算法结束)二、 用传统流程图表示算法三、三种基本结构的特点1、只有一个入口2、只有一个出口3、不存在死语句4、不存在死循环【例】输入10个数，打印输出其中的最大的数的流程图如下图4-4所示：图4-44.1.3 用NS流程图表示算法 NS流程图完全去掉了带箭头的流程线，将全部算法写在一个矩形框内，在矩形内还可包含其它从属于它的框。一、顺序结构顺序结构的NS流程图如下图4-5所示，执行顺序先后。语句A 语句B图4-5二、选择结构（a）（b）图4-6图4-6（a）所示为条件为真时执行语句块A，条件为假时执行语句块B。图4-6（
29、b）所示为条件为真时执行语句块，为假时什么都不做。三、循环结构图4-7其中图4-7（a）为 当型循环，图4-7（b）为直到循环。【例】画出从10个数中选出最大的数的NS流程图4-8：图4-8最后需要说明的是：上面介绍的算法表示是给人看的，即是为帮助程序开发人员阅读、编写程序而设计的一种辅助工具，而程序则必须符合计算机语言的语法规则。以下是上面例子的计算机程序，即为用计算机语言表示算法：Private Sub Form_Click()Dim a%, max%, i%a=Val(InputBox(A=?)max=aFor i=1 To 10a=Val(InputBox(A=?)If amax Th
30、en max=aNext iPrint Max=; maxEnd Sub4.2.1 赋值语句 计算机要完成指定的工作，首先要接收计算机内部或外界给予的各种数据，赋值语句是一种数据赋给计算机内部变量或属性的命令。一、赋值语句的格式格式1：let=格式2：let.=说明： 应符合Visual Basic的变量命名约定。 可以是常量、变量、表达式及带有属性的对象。 缺省时为当前窗体。二、赋值语句的功能将表达式的值赋值给变量名或指定对象的属性。一般用于给变量赋值或对控件设定属性值。三、赋值语句的几种形式（一）给变量赋值例如：Dim v As IntegerDim book As String*20v=
31、26book=Visual Basic 把数值26赋给整型变量v，把字符串“Visual Basic”赋给字符串变量book。26与“Visual Basic”都为常量，常量是表达式最简单的形式。可以将一个表达式的值赋给一个变量，所以下面的赋值语句是合法的：Dim sum1 As DoubleDim price1 As Single，price2 As Singleprice1=198.6price2=1386.95*0.8sum1=price1*23+price2*500（二）为对象的属性赋值在VB中可以在程序中用赋值语句为对象的属性设置属性值（有的属性则必须如此）。它的一般格式为：对象.属
32、性=属性值例如，为命令按钮cmdDisplay的Caption属性设置值：cmdDisplay.Caption=显示文本为文本框txtDisplay的FontName及FontSize属性设置值：txtDisplay.FontName=SystemtxtDisplay.FontSize=18（三）为用户自定义类型声明的变量的各元素赋值为用户自定义类型声明的变量的各元素赋值，它的一般格式为：变量名.元素名=表达式例如：Type bookname As String*30auther As String*10price As Singlepublisher As String*50End Type
33、 Dim bookMessage As bookbookMessage.name=Visual Basic程序设计教程bookMessage.auther=张洪bookMessage.price=26.80bookMessage.publisher=科学出版社四、注意点和常见错误 “=”赋值号与数学中的等号的含义不同。 赋值语句多次使用的结果为最后一次的赋值。例如：a=3a=4a=5 a的结果为5 类型相容。1、数值型的表达式可以直接赋值给任一类型的变量。2、数字字符串可以直接赋给数值型变量,也可以直接赋给逻辑型，日期型变量及可变类型的变量。3、逻辑型表达式可以直接赋给数值变量，也可赋给其他类
34、型的变量。例如：strs$=01 等价于 strs$=“false” 当赋值号“=”两边类型不同时，“向左看齐”。 赋值语句除了其本身用途以外，经常用于变量的累加，累乘及变量交换。错误1：赋值号两边的量左右互换。错误2：赋值号左边为常量，函数名，表达式。错误3：多个变量被同时赋予一个表达式，或多个值同时赋给同一个变量。4.2.2 数据的输出Print方法 格式：.Print;|,：窗体如：Form1.Print Hello图片框如：Picture1.Print Hello打印机如：Printer.Print Hello立即窗口如：Debug .Print Hello省略：默认为当前窗体。：是一
35、个或多个表达式，若为多个表达式，则各表达式之间用“，”或“；”隔开。省略此项，则输出一空行。逗号：用“，”分隔各表达式时，各项在以14个字符位置为单位划分出的区段中输出，每个区段输出一项。分号：用“；”分隔各表达式时，各项按紧凑格式输出。说明： 输出时，数值型数据前有一个符号位(正号不显)，后面留一个空格位；字符串原样输出，前后无空格。 如果在语句行末尾有“；”，则下一个Print输出的内容，将紧跟在当前Print输出内容后面；如果在语句行末尾有“，”，则下一个Print输出的内容，将在当前Print输出内容的下一区段输出；如果在语句行末尾无分隔符，则输出完本语句内容后换行，即在新的一行输出下一个Print的内容。【例】Private Sub Form_Load()Form1.ShowPrint 12345678901234567890Print产生空行Print 2+4=; 2 + 4,Print&#
