《Visual Basic程序设计项目化教程》课件项目2 制作折扣计算器

项目二制作折扣计算器项目目标：本项目制作一个折扣的计算器，通过输入商品单价、数量和相应的折扣便可以计算出应付的金额；主要用来学习VB中控件的画法，控件的格式以及简单的计算等。项目二制作折扣计算器项目主要知识点：1．常用数据类型整型：特点、意义、表示范围单精度：特点、意义、精确度双精度：特点、意义、精确度字符型：特点、意义逻辑性：特点、取值2．变量定义和特点类型（与数据类型相对应）命名方法使用方法项目二制作折扣计算器3．常量定义和特点（大小写不敏感）4．单击事件和常用属性5．常用控件（容器）标签（Label）文本框（TextBox）属性、事件和方法命名按钮（CommandButton）6．窗体控件的画法7．快速正确输入程序代码技巧项目实施步骤：阅读相关基础知识界面设计窗体设计控件属性设置程序设计编程初步程序代码程序调试，功能完善保存项目工程和再次打开工程2.1第1步：基础知识概述2.1.1基本数据类型

VB中常用的数据类型见表2-1所示。1.整型数定义：可以是正整数、负整数或0。分类：整数Integer和长整数Long两种类型，Integer取值范围为：-32768~32767，long的取值范围：-2147483648~2147483647。2.浮点数定义：浮点数也称实型数或实数，是带有小数部分的数。分类：单精度数（Single），双精度数（Double）表示法：定点表示法（例：1.2，3，浮点表示法（如：1.2×10234.56E+28

）

2.1第1步：基础知识概述3.字符型（String）定义：字符型数据简称字符串，是一个字符的序列。通常理解为所有放在“”之间的若干个字符。组成：英文字母，汉字，数字以及特殊字符都可以作为字符分类：定长字符串和变长字符串

34.56E+28等价于34.546×1028

其他数据类型：日期型，字节型，对象型，货币型。注意：当把数值型数据转换为逻辑型时，0会转换为False，其他的非0值转换为True。当把逻辑型数据转换为数值型时，False转换为0，True转换为－1。4.逻辑型（Boolean）定义：逻辑型数据只有两个值：真（True），假（False），常用来表示逻辑判断的结果。2.1第1步：基础知识概述表2-1VB常用数据类型数据类型名称符号占用字节数表示范围整型Integer％2-32768~32767长整型Long﹠4-2147483648~2147483647单精度Single！4双精度Double﹟8字符型String＄任意0～65535个字符日期型Date8字节型Byte10～255逻辑型Boolean2True或False（真或假）货币型Currency＠8变体型Variant根据需要分配对象型Object4任何对象引用2.1.2常用控件1.标签（Label）标签控件作用主要是：输出文本，显示提示信息，输出文章、提示用户信息不能编辑、修改等等，所以Label控件常用来输出标题、显示处理结果、标识窗体上的对象，或标识那些本身不带Caption属性的控件，如文本框控件TextBox等。Label控件一般不用来触发事件，其常用的属性有：Name属性（不可缺省）、Caption属性（主要属性）、Alignment属性、AutoSize属性、BackStyle属性等。具体的参见下表2-2：表2-2Label标签常用属性名称说明Name标签对象名称，在编程时候使用，通过Name来调用某控件Alignment设置Caption属性值文本的对齐方式，0-左对齐，1-右对齐，2-中间对齐AutoSize设置控件的大小是否随Caption属性值文本内容的大小自动调整，取值为True/False，当AutoSize=true时，label标签的大小随着文本内容的多少而改变大小，当AutoSize=false时，label标签的大小固定不变BackStyle设置背景样式，0-不透明，1-透明BorderStyle设置边框样式，0-无边界线，1-固定单线框

Caption设置标题显示的文本

ForeColor设置标签上文本的前景色，即字体颜色

BackColor设置标签的背景色

Font设置字体（宋体、隶书等），字型，大小，效果等2.1.2常用控件2.文本框（TextBox）文本框控件用来接收用户输入的信息。通常用作接收输入的参数、变量和初值、查询的信息以及程序运行所必须的数据。TextBox接收到的信息会显示在文本框中，在文本框中可以编辑、修改输入的信息。TextBox具有多行显示功能，根据控件尺寸和输入信息的多少自动换行。也可在程序运行时为Text属性赋值，起输出信息的作用。TextBox控件常用的事件有：Change事件，在文本框中输入新信息或在程序中改变Text属性值时，都会触发该事件；LostFocus事件，按下Tab键或用鼠标单击其他对象使焦点离开该文本框时，触发该事件，通常可用该事件检查文本框的内容；文本框不支持鼠标事件。TextBox控件常用的属性如下表2-3所示。表2-3TextBox控件常用的属性名称说明Name设置文本框对象名称Text设置文本框中包含的内容Enabled设置控件是否对事件产生响应，取值为True/False，取值为False时图标模糊Locked设置是否锁住文本框的Text属性的内容，取值为True/FalseMaxLength设置文本框输入字符的最大个数

MultiLine设置一个值True/False，决定一个文本框是否可以接受多行文本

PasswordChar将Text的内容全部显示为该属性值，一般用作显示密码用

ScrollBars设置边框滚动条模式，0-无，1-水平，2-垂直，3-水平和垂直

Visible设置控件是否可见，取值为True/False2.1.2常用控件3.命令按钮（CommandButton）命令按钮用来接收用户操作的信息，触发相应的事件过程。它是用户与程序交互的最简便的方法。命令按钮触发的事件主要是Click（单击）和DblClick（双击）等。Command的常用属性如下表2-4所示。表2-4Command的常用属性设置光标在对象上时的形状，有0~15可选，取值为2时，光标移动到CommandButton控件上的时候变成十字线名称说明Name设置文本框对象名称Appearance是否要用立体效果绘制图像：0-Flat，1-3DCancel为了能够按ESC键时也选中CommandButton，则需要将CommandButton的Cancel属性设置成TrueCaption设置控件上的标题名称Style设置控件的外观形式：0-Standard（标准的），1-Graphical（图形的）

MousePointer。99为自定义

MouseIcon当MousePointer=99时，自定义一个鼠标的图标

Picture只有当Style=1时即1-Graphical，才可以设置此对象的图标0-None，1-Manual

Visible设置对象是否可见，取值为True/False2.1.2常用控件4.快速输入程序代码(1)当输入对象的属性时，对象名后输入“.”后，会自动提示该对象的所有属性，如果输入点号后系统没有任何反应，说明对象输入有误；(2)为了加快输入的速度，当输入一个对象名时，可以输入第一个字母后，按CTRL+J组合键，系统会自动提示所有的该字母开头的所有对象名，这样就避免读者输入错误的对象名，同时也能提高程序输入的速度。2.2第2步：界面设计 2.2.1任务1：窗体设计添加窗体Form1，在窗体上添加4个标签（Label1～Label4）和4个文本框（Text1～Text4）。添加两个命令按钮（Command1～Command2），从工具箱中拖动标签、文本框和按钮，并在Form1窗体上用鼠标画出大小适当位置合适的控件布局，如图2-1所示。2.2第2步：界面设计图2-1界面设计2.2第2步：界面设计2.2.2任务2：控件属性设置属性设置方法如下图（以Label1的设置方法为例）图2-2设置控件属性2.2第2步：界面设计所有控件属性设置参见下表2-5。表2-5案例控件属性设置参数控件名称属性值Form1Caption收款计算MaxButtonFalseMinButtonFalseLabel1Caption单价AutosizeTrueLabel2Caption数量AutosizeTrueLabel3Caption折扣AutosizeTrueLabel4Caption应付款AutosizeTrueText1～Text4TextCommand1Caption计算&CCommand2Caption清除&Q2.2第2步：界面设计界面设置完毕后如下图2-3所示：图2-3参数设置后的界面2.2第2步：界面设计在命令按钮中可以添加快捷方式，添加方式是在命令按钮的Caption属性的后面添加“&＋代码”后缀，例如：在项目一中的的设置方法如下图2-4所示：图2-4为按钮添加快捷方式2.3第3步：程序设计2.3.1任务1：编程初步变量定义：在程序运行中其值可以变化的量。在VB程序运行期间，对于输入的数据、中间结果以及最终的运算结果等，都用变量临时存储在计算机的内存中，每个不同的变量都用变量的标识符来区分，变量的标识符就是变量，它实际代表在程序执行过程中值可以改变的内存单元。可以这样理解：每个变量就是一个盒子（内存单元），它有一个名字，盒子中存放的东西就是数据。在程序中，变量就是输入的数据，参加运算的数据，运行结果等临时数据存放的内存单元的名称，本身没有实际意义，只是临时的代号。变量有两个特性：名字和数据类型。（举例：名字：a,sum,result等；数据类型：整型变量，实型变量，字符型变量等）分类：属性变量和内存变量（举例：label控件的Caption变量,Textbox控件的Name属性等为属性变量，a,sum,result等为内存变量）2.3第3步：程序设计变量的声明：语法格式{Dim|Private|Static|Public}<变量名>[As<类型>][,<变量名2>[As<类型2>]]……例：DimmAsInteger声明一个整型变量，变量名为mPrivatesumAsSingle声明一个单精度类型变量，变量名为sumStaticYnAsBoolean声明一个布尔型变量，变量名为Yn注意：

1、变量名有1～255个字符组成，是数字，英文字母或下划线的组合。

2、变量名必须以英文字母开头，中间不能有其他字符变量的命名规则

3、不能用VB的关键字作变量名，如：Print，Caption等

4、变量名在同一个范围内必须是唯一的

5、变量名中不能包含小数点，如不能为int.sum6、变量名尽量做到简单明了，VB中不区分大小写变量的类型：变量的类型对应于数据类型，即分为整型变量、单精度型变量、字符型变量等。2.3第3步：程序设计常量常量定义：在程序运行中，其值始终保持不变的量称为常量。用户自定义常量的格式：[public|private]const<符号常量名>[as<数据类型>]=<表达式>提示：“［］”中的内容是可以省略的。如：Constpi=3.1415926定义一个浮点型常量，常量名为piConststrName="John"定义一个字符型常量，常量名为strName

用法：常量一经声明，在其后的代码中只能引用，不能改变。2.3第3步：程序设计2.3.2任务2：程序代码在Form1窗体上右键，选择【查看代码】，进入代码窗口，在代码窗口的左面下拉框中选择“Command1”对象名，右边下拉框中选择“Click”事件，系统自动生成了如下的代码结构：

PrivateSubCommand1_Click()…用户写代码部分EndSub下面我们在“用户代码部分”补充结构以外的用户代码。2.3第3步：程序设计PrivateSubCommand1_Click()'单击“计算”按钮时执行下面代码DimUnitPriceAsSingle'声明UnitPrice变量用来存放商品单价DimQuantityAsInteger'声明Total变量用来存放商品数量DimDiscountAsSingle'声明Discount变量用来存放商品折扣DimMoneyAsSingle'声明Money变量用来存放实际付款UnitPrice=Val(Text1.Text)'val（）是一个函数，返回包含于字符串内的数字Quantity=Val(Text2.Text)Discount=Val(Text3.Text)IfText1.Text=""ThenMsgBox"请输入商品单价!",48,"警告"'若用户未输入单价，用消息输出框显示警告信息

Text1.SetFocus'将焦点移至指定的控件Text1ExitSubEndIfIfText2.Text=""ThenText2.Text=1'当用户未输入数量或折扣时，我们均认为是1，防止因用户忽略输入内容而导致程序无法继续IfText3.Text=""ThenText3.Text=1Money=UnitPrice*Quantity*Discount'计算实际付款金额Text4.Text=Money'将付款金额显示在Text4中EndSub2.3第3步：程序设计单击菜单【运行】/【启动】，运行程序，程序运行后如下图2-5所示：图2-5程序运行结果图2.3第3步：程序设计

PrivateSubCommand2_Click()'双击“清除”按钮后写代码，所有的Textbox清空Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSub2.4第4步：程序调试，功能完善理想情况测试输入一组合理数据，即输入合理的单价、数量和相应的折扣值，验证输出结果是否满足要求？