Visual Basic程序设计项目化案例教程 教学课件 ppt 作者 王萍 1-7章 第3章

【案例3-1】 算术四则运算器 【案例3-2】 三角面积的计算 【本章小结】,一、案例效果 本案例是一个可以进行四则算术运算的程序，程序运行效果如图3-1所示，对输入文本框的数据可以进行加、减、乘、除等数学运算。,【案例3-1】 算术四则运算器,图3-1,二、技术分析 1数据的类型 数据类型决定了具有这种类型的常量、变量、字符串、数组等数据对象的存储形式、取值范围及能进行的运算。 Visual Basic的数据类型可分为标准数据类型和用户自定义数据类型两大类。标准数据类型又称为基本数据类型，它是由Visual Basic直接提供给用户的数据类型，用户不用定义就可以直接使用；用户自定义数据类型是由用户在程序中以标准数据类型为基础，并按照一定的语法规则创建的数据类型，它必须先定义，然后才能在程序中使用。 Visual Basic 6.0的标准数据类型见表3-1。,表3-1 Visual Basic 6.0的标准数据类型,上述基本数据类型中，Byte、Integer、Long、Single、Double和Currency等6种都是用来保存数值的数据类型，使用时应根据需要选择适当的数据类型，以节约存储空间和提高程序运行速度。 若用户事先知道要保存的数据为整型，则应将变量声明为Integer(整型)或Long(长整型)。整型的运算速度较快，而且比其他数据类型占用的内存要少。,若变量要保存的数据包含小数，则将其声明为Single(单精度浮点型)、Double(双精度浮点型)或Currency(货币型)。其中Currency类型支持小数点右边4位和小数点左边15位的精度，适用于货币的精确计算。Single类型和Double类型比Currency类型的有效范围大得多，但在进位时易产生小的误差，故不适合于货币的精确计算。单精度浮点数的运算速度优于双精度浮点数。 如果变量要保存的是二进制数，则可将它声明为Byte类型的数据来保存。该类型的变量不能表达负数。 所有数值型变量均可相互赋值。在将浮点数赋予整数之前，Visual Basic要将浮点数的小数部分四舍五入。,2常量与变量 在Visual Basic 中进行运算的对象有两大类：常量与变量。 1) 常量 常量是在程序运行过程中，其值保持不变的量，如数值、字符串等。 在Visual Basic中，常量可分为直接常量和符号常量。 直接常量就是在程序中，以直接明显的形式给出数据本身的数值。根据常量的数据类型，直接常量有数值常量、字符串常量、逻辑常量和日期常量，如：12、12.89、“中文Visual Basic 6.0”、False、#1999-10-23 3:10:25#等。,符号常量就是用一串字符来代替一个常数。在程序中凡是需要用到这个常数的地方，都可以用这个符号来代替。符号常量又可分为系统定义的符号常量和自定义符号常量。 系统定义的符号常量是Visual Basic系统提供的预定义常量，这些常量可与对象、属性和方法一起在应用程序中使用。 例如：窗体对象的WindowsState属性可接受的系统定义符号常量有vbNormal(正常)、vbMinimized(最小化)和vbMaximized(最大化)。,自定义符号常量是由程序设计人员按照规定的语法规则在编写程序时命名的。它必须先定义，然后才能在程序的代码中使用。 在定义自定义符号常量时，常量的名称最好应具有一定的含义，以便于理解和记忆。 自定义符号常量的定义格式如下： Public|Private Const 常量名 数据类型符 | As 数据类型关键字=表达式,其中，Const 为必须的定义关键字，说明该符号为常量；“=表达式”部分也是必须的，该表达式说明了常量的取值；“ ”内的关键字是可选的，Public 表示该常量为公用常量，Private表示该常量为私有常量，“|”符号表示其左右的关键字可任选其一。 例如：编程求一个半径为5的圆的周长和面积，就需要用这个常数，而计算机并不知道的值是多少，如果写成 A=2*3.141592*5 B=3.141592*5*5,就需要重复地输入3.14159 这个数，既费事又很容易出错。于是我们就用一个符号pai来代替3.14159，在程序中凡是用到3.14159的地方，都用pai来代替。例如： Private Sub Form_Activate( ) Const pai as Single=3.14159 A=2*pai*5 B=pai*5*5 Print A Print B End Sub,2) 变量 变量是在程序执行过程中其值可以变化的量。在应用程序的执行过程中，变量用来存储程序执行中的临时数据。变量随程序调入内存，并被分配一定的存储空间。所以，在使用变量之前，要考虑变量的名称和数据类型，即声明变量。 Visual Basic 语言中，提供了两种声明变量的方法。 (1) Dim 语句显式声明变量。 格式如下： Dim 变量名 As New 变量数据类型 ,变量数据类型可以是标准数据类型，也可以是用户自定义类型或一个对象类型，如果变量没有规定类型，则使用其默认值Variant，这说明变量可以用作任意类型。 例如： Dim n As Integer Dim str As String Dim str As String*30 在一行中，可声明多个变量，正确的语法格式是用逗号将各变量分隔。 例如： Dim x As Integer，y As String，z As Double Dim m1 As Integer，m2 As Integer，m3 As Integer,前句变量的数据类型不同，后句变量的数据类型相同，都需要用逗号分开，不能合写。例如，第二句不能写成： Dim m1,m2,m3 As Integer 这行语句表示m1和m2是变体数据，m3是整型数据。因此，这行语句与上面的语句不是等同的，不能表达原设计的用意。 New关键字可以创建一个对象。例如声明对象变量，加New选择项指定一个指向对象的对象句柄即可创建该对象。 例如： Dim a_object As New form 声明a_object为窗体对象 变量名用标识符代表的，按照标识符规则命名。,如果Dim声明的是局部变量，还可以用下面的语句声明变量的作用域： Public，全局变量关键字，全局变量在模块中声明，但不能用于过程。 Private，局部变量关键字，局部变量在模块和窗体中声明，同样不能在过程中使用。 Static，静态数组变量关键字，用于声明维数不变的静态数组变量或具有记忆功能的一般变量。 ReDim，动态数组变量关键字，声明的数组维数可变，需要重新分配内存空间。 Type，声明用户自定义类型。,Dim语句声明有以下特定的位置： 窗体模块的声明区。 标准模块的声明区。 在事件过程中的开始位置。 在一般过程中的开始位置。 在这些位置中，用Dim语句声明的变量，称为强制显式变量声明。,(2) 隐式声明和Option Explicit 显式声明。 使用变量时，Visual Basic不要求对所有变量事先声明，不加声明的变量系统默认为变体类型。对应于强制显式声明，在程序中不经声明而使用变量称作变量的隐式声明。隐式声明使用起来比较随意，但也会带来一些麻烦。例如，误拼一个变量名就会被隐式声明为另一个新变量，由此会产生问题。因此，建议对所有变量作显式声明。使用Option Explicit语句对普通对象进行的变量声明，必须写在模块中所有过程之前。,如果模块中使用了Option Explicit，则必须使用Dim、Private、Public、ReDim或Static来显式声明所有的变量。这时，如果使用了未声明的变量名，在编译时会出现错误。 如果没有使用Option Explicit语句，除非使用Deftype语句指定了缺省类型，否则所有未声明的变量都是隐含为Variant类型的。,三、操作步骤 1创建程序界面 新建一个“标准EXE”工程，并在窗体中添加6个文本框、4个命令按钮和2个标签控件，按图3-2所示进行设置。,图3-2,2设置对象的属性 请按表3-2所示设置各对象的属性值。,表3-2 设置对象属性,3程序代码编辑 在程序代码窗口中输入下面的代码： Private Sub Command1_Click() 加法 Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() 减法 Text4.Text = Val(Text1.Text)-Val(Text2.Text) End Sub,Private Sub Command3_Click() '乘法 Text5.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command4_Click() '除法 Text6.Text = Val(Text1.Text) / Val(Text2.Text) End Sub,Private Sub Form_Load() Text1.Text = “” Text2.Text = “” Text3.Text = “” Text4.Text = “” Text5.Text = “” Text6.Text = “” End Sub 4程序代码调试 输入程序代码后，完成程序代码的调试和修改。,四、探索与思考 (1) 添加求余运算。 (2) 考虑除数是零的情况。 五、学生自主设计商品价格折算 1设计要求 1) 基本部分模仿 要求程序运行后，在屏幕的中央显示一个窗体，窗体的画面参考图3-3所示，可以根据给出的商品原价和折扣标准，计算出此商品的优惠价。,图3-3,2) 拓展部分创意设计 设计程序，显示所有商品的价格以及在窗体上加上日期和时间，试试看。 2知识准备 要完成自主设计，需掌握以下知识： (1) 标签、命令按钮、文本框等控件的使用。 (2) 算术运算符和表达式的使用(具体参见本章【案例3-2】的技术分析)。 (3) 日期函数、字符串函数等函数的使用(具体参见本章【案例3-2】的技术分析)。 3效果评价标准 请对照表3-3完成自主设计的效果评价。,表3-3 效 果 评 价 表,4设计小结 请将你的设计过程、设计体会、在设计过程中遇到的问题以及解决方法写在下面。,一、案例效果 本案例运行界面如图3-4所示。根据输入的三条边的边长，判断其是否能构成一个三角形。如果能，则计算并显示该三角形的面积，如图3-5所示；如果不能，如图3-6所示，则给出相应的提示信息，如图3-7所示。,【案例3-2】 三角形面积的计算,图3-4,图3-5,图3-6,图3-7,二、技术分析 1表达式 表达式是关键字、运算符、变量、常量、数组元素及对象的组合，用于数学运算、操作字符或测试数据。 例如：变量x的值为2，y的值为8，则计算平均值的表达式为 (x+y)/2 其中x、y为变量，2为常量，+和/为运算符。 再如： Label1.Caption=“姓名“&“先生“,其中Label1为控件对象，Label1.Caption为属性(变量的另一种形式)，“姓名”为“先生”字符串数据类型的属性值，&是运算符。 2运算符 运算符是Visual Basic进行某种运算功能的操作符号。Visual Basic程序会按照运算符的含义和运算规则执行实际的运算操作。Visual Basic中的运算符包括算术运算符、字符串运算符、比较运算符和逻辑运算符。 1) 算术运算符 算术运算符用于算术运算，参加运算的数