2011年软考系统分析师整理资料：面向对象(10)

会计考友 · 发表于 2012-8-2 08:48:37

　十、面向对象的例子　　这里我们将通过一个具体的实例来认识它的封装性! 在面向对象方法
　　中，对象可看成是属性(数据)以及这些属性上的专用操作的封装体。
　　封装是一种信息屏蔽技术，封装的目的是使对象的定义和实现分离。
　　Step1:
　　1.1新建一个工程命名为VBOOP;
　　1.2单击工程菜单，选择添加类模块后并单击确定按钮;
　　1.3在其属性窗口中将类的名称改为TScore。
　　Step2:编辑TScore类模块代码
　　2.1.这里为TScore类定义四个私有(Private)变量,它们只能在本模块
　　中是可见的,即类的一些成员被隐藏起来,用户只能通过属性过程
　　或函数等方法来访问,从而对对象进行封装。
　　定义变量的基本语法:
　　Private/Publc  As
　　代码部分：
　　Private FName As String\'学生的姓名
　　Private FMath As Single\'数学成绩
　　Private FEnglish As Single \'英语成绩
　　2.2.为TScore类定义六个公用(Public)的属性(Property)过程和一
　　个计算总分的方法函数。
　　定义方法的基本语法:
　　Private/Publc Property Get  As ;
　　Private/Public Property Let (ByVal 变量名 As 返回值类型);
　　Private/Publc Function  As ;
　　get: 将模块中的私有变量的值赋给属性过程,通常称为读;
　　Let: 通过属性过程给模块中的私有变量值赋,通常称为写。
　　代码部分：
　　Public Property Get GetName() As String
　　GetName = FName
　　End Property
　　Public Property Let SetName(ByVal Name As String)
　　FName = Name
　　End Property
　　Public Property Get GetMath() As Single
　　GetMath = FMath
　　End Property
　　Public Property Let SetMath(ByVal Math As Single)
　　FMath = Math
　　End Property
　　Public Property Get GetEnglish() As Single
　　GetEnglish = FEnglish
　　End Property
　　Public Property Let SetEnglish(ByVal English As Single)
　　FEnglish = English
　　End Property
　　Public Function Total() As Single\'计算总成绩函数
　　Total = GetMath + GetEnglish
　　End Function
　　Step3:回到Form1窗口，在窗口上添加12个控件:

会计考友 · 发表于 2012-8-2 08:48:38

3.1添加5个文本框txtName、txtMath、txtEN、txtTotal;　　3.2添加5个标签labName、labMath、labEN、labTotal
　　其Caption属性分别为姓名、数学、英语、总成绩;
　　3.3添加2个命令按钮ComSetValues、ComSearch
　　其Caption属性分别为赋值、查询。
　　Step4:编辑窗口事件
　　4.1.构造Score对象及查询关键字SearchKey。在面向对象方法
　　中，我们可以这样说定义类就是定义数据类型，而声明对
　　象就是声明变量。也就是说，对象实际上就是变量。
　　Dim Score As New TScore
　　Dim SearchKey As String
　　4.2.给模块中四个私有变量赋值的单击事件
　　Private Sub ComSetValues_Click()

　　If Val(txtMath.Text) >= 0 And Val(txtMath.Text) = 0 And Val(txtEN.Text)

		自动登录	找回密码
密码			立即注册

[系统分析师] 2011年软考系统分析师整理资料：面向对象(10)

2011年软考系统分析师整理资料：面向对象(10)