面向对象程序设计VB
VB程序设计 第一章Visual Basic 程序设计概述
VB程序设计第一章Visual Basic 程序设计概述Visual Basic程序设计第一章 Visual Basic程序设计概述1.1 Visual Basic简介Visual Basic（简称VB）是一种面向对象的事件驱动编程语言，它是Microsoft公司开发的一种高级计算机程序设计语言。
VB的主要特点是简单易学、可视化编程、快速开发和广泛应用。
1.2 VB的历史发展VB最初于1991年推出，是作为Windows操作系统的开发工具而设计的。
经过多次版本更新，目前最新的版本是Visual Basic 2019.1.3 VB的编程环境VB使用Visual Studio作为主要的开发工具，提供了可视化的设计界面以及强大的编程功能。
开发者可以通过拖拽控件、设置属性以及添加事件来构建程序界面，并使用VB编写代码逻辑。
1.4 VB的基本语法VB的语法类似于英语，采用英语关键字和固定的语法规则。
VB程序由一系列语句构成，每个语句以换行符或分号结束。
1.4.1 变量和数据类型VB中的变量需要先声明才能使用，可以使用关键字Dim来声明变量。
VB支持多种数据类型，包括整型、浮点型、字符串型、布尔型等。
1.4.2 控制流程VB提供了多种控制流程语句，如条件语句（If-Then-Else语句）、循环语句（For循环、Do循环）以及跳转语句（GoTo语句）等，用于控制程序的执行流程。
1.4.3 函数和子程序VB可以定义函数和子程序来封装一段特定的代码逻辑。
函数可以返回一个值，而子程序则不返回任何值。
开发者可以在程序中调用函数和子程序来实现代码的重复利用。
1.5 VB的应用领域VB广泛应用于Windows环境下的软件开发，尤其在企业管理系统、数据库应用、人机交互界面等方面具有重要地位。
附录：本文档涉及附件本文档的附件包含了VB相关的示例代码、项目文件以及其他相关文档，可以帮助开发者更好地理解和学习VB程序设计。
法律名词及注释：1.Visual Basic（VB）：一种面向对象的事件驱动编程语言。
VB程序概述
Visual Basic 概述VB语言是一种面向对象的可视化程序设计语言一、面向对象程序设计的基本概念面向对象程序设计：面向对象的程序设计通过类、对象、继承、多态等机制形成一个完善的编程体系。
它是一种以对象为基础、以事件驱动对象对事件进行处理的程序设计技术。
对象：概念：对象既包含数据，又包含接受事件后对数据进行操作的方法，将两者封装起来的一个独立逻辑实体。
也就是说，对象都有自己的属性（数据）、方法、事件。
对象包含属性和方法，能够识别和响应一定的事件。
事件刺激对象，用一定方法处理数据，从而完成一定的功能任务。
属性：定义：用来描述对象的特征。
包括公共属性和专业属性。
设置：每个对象的属性都有一个默认值，可在属性窗口中设置改变，也可在代码窗口中通过编程设置改变（格式：对象名.属性名称=属性值）。
事件：定义：指对象能够识别并做出反应的外部刺激。
每个事件都有其事件名。
对象事件是由VB预先定义好的能被对象识别和响应的动作。
分类：系统事件：由系统或对象自己的产生的，如Load事件。
用户事件：由用户操作引起的事件，如Click事件。
驱动机制：事件发生→刺激对象→对象响应→执行事件代码→完成一定功能（所执行的事件代码称为事件过程）能由用户引发也可以由系统引发。
VB应用程序的运行过程就是对事件的处理过程。
事件过程格式：Private Sub 对象名_事件名()[括号不能省略]……End Sub方法：定义：指系统已设计好的、在编写事件过程中可以使用的一些特殊程序。
从而实现完成显示、隐藏、移动、聚焦、卸载、加载、打印等功能。
不同对象具有不同的方法，方法的内容是不可见的，用户只需要知道有哪些方法，完成哪些功能，熟悉其使用规则即可。
使用格式：对象名.方法名[参数1,][参数2,]…[参数n]常用方法：Print、Show、Cls、SetFocus类：概念：具有相同性质的对象的集合，类中的每个单个对象称为类的一个实例。
属于同一类的对象具有同一组属性、事件、方法，只是类的对象一旦建立，每个对象的属性值、响应事件、设计方法可以不同。
程序设计基础知识2(VB应用程序建立和面向对象程序设计)
20.有VB程序设计界面部分截图如第28题图所示，观察分析可知：
（1）该对象的名称是_。
（2）“Interval”是该对象的；“1920”是。（选填：对象名/属性名/属性值）。
C. Form_ClickD. Form_DblClick
3． 设置窗体标题时，应改变窗体的 ( )
A、Name属性B、Caption属性
C、BackColor属性D、Font属性
4．在Visual Basic中，语句List_11.AddItem "hello"中的“AddItem”是( )
A.对象名B.方法名C.属性值D.事件
B. Form VB程序 Caption
C. Form1 Caption VB程序
D. Form1 VB程序 Caption
8．下列关于对象的描述中，错误的是( )
A.对象的属性用于描述对象的状态
B.对象的属性与方法可以有多个
C.对象事件的发生会驱动对象相应事件处理过程的执行
D.对象的属性值只能在属性窗口中设置
5．有如下VB程序段：
Private Sub Command1_Click()
Dim s As String
s =Str(Val("20") + Len("student"))
Label1.Caption = s
End Sub
下列说法正确是 ( )
A．发生事件的对象名为“Label1”
B．这是一个“鼠标单击”事件
D.工程的名称是“圆”
17．某VB窗体上有一个文本框、一个命令按钮和一个标签，对象如下表所示：
对象类型
窗体
面向对象程序设计第1章 VB程序设计概述
1.3 VB的安装和启动
❖ 运行环境：586、16MB内存、100MB硬盘 Windows95/98以上
❖安装 ❖启动
1.4 集成开发环境
❖ 窗体与工具箱
界面设计示例
利用工具箱的工具在 窗体中画出各个对象
1.4 集成开发环境
❖ 属性窗口
在窗体中选中一 个对象，即可在属 性窗口中查看该对 象有哪些属性以及 属性的取值。
❖工具栏：常用菜单项的快捷工具（如运 行按纽）
1.4 集成开发环境
❖ 关于集成开发环境的说明
将鼠标置于工具栏和工具箱的工具一段时间， 可弹出该工具的简要说明。
对于各窗口，可执行视图菜单下的子菜单交 互显示。
面向对象程序设计
第1章 VB程序设计概述
➢1.1 VB简介 ➢1.2 VB功能特点 ➢1.3 VB的安装和启动 ➢1.4 集成开发环境
1.1 VB简介
❖程序欣赏
VB简介：Visual+Balsic
1.2 VB功能特点
❖1、提供了面向对象的可视化编程工具
程序员在界面设计时只需利用现有工具根据界面设计要 求在窗体中“画出”命令按纽、文本框等对象。
1.2 VB功能特点
❖2、事件驱动的编程机制
1.2 VB功能特点
❖3、界面友好、交互式开发
可视化的界面 强大的出错示功能 交互开发
鼠标双击按纽，代码 窗在输口入自代动码弹时出,并提完供成了 部强分大代 的码 提示。功能.
1.2 VB功能特点
❖4、完善的联机帮助功能
MSDN帮助：帮助>>内容\索引\搜索 对象浏览器帮助：视图>>对象浏览器 在线帮助
❖ 代码窗口
交互式开发：在 窗体中双击某个对 象，即可弹出代码 窗口并完成部分代 码。
第2章VB程序设计
2.类
类是创建对象实例的模板，是同种 对象的集合与抽象，它包含所创建对象 的属性描述和行为特征的定义。类含有 属性和方法，它封装了用于类的全部信 息。 在VB中，所见到的类大多是系统 已经设计完成的，我们只需使用就可以 了，如VB工具箱中的可视类图标是VB 系统设计好的标准类控件。
对象中的数据，所有对象都有自已的 属性。它们是用来描述和反映对象特征 的参数。例如：控件名称（Name)、标 题（Caption)、颜色（Color)、字体 （FontName)等属性决定了对象展现给 用户的界面具有什么样的外观及功能。
对象属性设置的方法：
方法一： 在设计模式下，通过属性窗口直 接设置对象的属性。 方法二： 在程序的代码中通过赋值实现， 其格式为：
注意：这四个 属性决定窗体 （或控件）的 大小，在容器 中的位置。如 右图。
3．Caption 标题属性： 决定出现在窗体的标题栏上的文本内容，也
是当窗体被最小化后出现在窗体图标下的文本。
4 字体Font属性组 FontName属性是字符型，决定对象上正文的字体（缺省 为宋体）。 FontSize属性是整型，决定对象上正文的字体大小。 FontBold属性是逻辑型，决定对象上正文是否是粗体。 FontItalic属性是逻辑型，决定对象上正文是否是斜体。 FontStrikeThru属性是逻辑型，决定对象上正文是否加 一删除线。 FontUnderLine属性是逻辑型，决定对象上正文是否带下 划线。
第11章 面向对象程序设计语言—VBA
对象
表示实体，如一个学生等。一种对象包含多种属性，如 学号、姓名、入学总分、所在班级等。对象还带自己的方法， 即对象所能执行的行为，如查询学生情况等。
典型Access应用程 序是由窗体、表、查询 和其他对象构成的集合。 数据库窗口把可供选择 的对象排列在一起，形 成不同的类。
换不同类的数据库对象
属性和方法
事件代码
窗体模块代码：
Option Compare Database Private Sub bClear_Click() Me!tText.SetFocus ' 聚焦文本框 Me!tText.Text =“ ” ' 清空文本框表面文字 End Sub Private Sub bOk_Click() Me!tText.SetFocus ‘ 聚焦文本框 Me!tText.Text = “欢迎学习VBA!” ' 显示文字 End Sub
变量、常量与数据类型
常量、变量与数据类型
数据类型：划分变量的种类，以表示不同种类的数据。
常量：数据的字面值。
字面常量：如3.721、“VBA”、#2006-7-1#
符号常量：用Const语句说明，可在模块中引用 系统定义常量：True、False、Null等
变量：数据代名词，变量名可随意定义，但不能与VBA关键
Dim a(10) As Integer, i As Integer For i = 0 to 10 a(i) = 0 Next i
默认地，数组下标从零开始。可使其从其他值开始： 在模块顶部添加 Option Base 语句。例如，语句 Option Base 1 Dim a(10) As Integer 声明的数组有10个元素。下标起始值为1。 也可用To子句对数组下标显示声明，例如，语句 Dim a(1 To 10) As Integer
VB程序设计面向对象程序设计初步
• Selected：选择属性。值为True或False。该 属性只能在程序代码中使用 。
✓常用属性：
•Name •Text：文本属性。值为用户从文本框输入的内容。 •PasswordChar：口令属性。 •MaxLength：最大长度属性。缺省值为0，表示 可接收任意个字符。 •MultiLine：多行属性。值为“True”可输入多行 文本。只在设计时设置。 •ScrollBars:滚动条属性。可设置值为0、1、2、3， 分别表示无滚动条、只有水平滚动条、只有垂直 滚动条、水平和垂直滚动条都有。
装载窗体时触发。 • Unload：用Unload语句卸载窗体时触发。 • Resize：窗体大小被改变时触发。 • Activate：当窗体变为当前窗体时触发。 • Deactivate：当窗体变为非当前窗体时触发。 • Paint：用Show方法显示窗体或窗体界面需要重绘
（如增大窗体宽度或高度等）时触发
5
2.2.3 窗体的常用方法
• Show：显示方法。此方法会自动将尚未装入内存的窗体装入，
并触发Load事件、Activate事件、Paint事件（注意先后次序）。
• Hide：隐藏方法。
• Print：打印方法。 • Cls: 清除屏幕上用Print方法输出的内容。 • Move：移动方法。用以移动窗体或控件。
6
常用的三条语句
Load语句：Load 窗体名
触发窗体的Load事件，把窗体装入内存，但不 显示它。
Unload语句：Unload 窗体名
触发窗体的Unload事件，把窗体从内存卸载。 如果卸载的对象是程序唯一的窗体，则将终止 程序的运行。
2.1面向对象程序设计方法简介
6．事件(event) 事件就是发生在对象上的事情，通常是由用户在对象上激发的一种动作。 一个事件的发生，可以引起某个对象上某个方法(事件处理过程)的执行，即由某 个事件驱动了相应的事件处理过程的执行。这就是面向对象程序设计中的事件驱 动概念。 事件处理过程一般格式如下：
Private Sub 对象名称_事件名称()
的信息：
其中的“Caption”是“Label1”的 )
(A
A．属性名
B．方法
C．属性值
D．事件名
9．在VB中，以下关于命令按钮的属性和事件说法错误的是
A．如果把一个命令按钮的Name属性设置为“True”，则( 程B序)
运 行过程中会发生不可预知的错误
B．命令按钮只能识别Click事件 C．通过设置命令按钮的Visible属性，可以使该按钮可视或不
③图中的对象Timer1，在程序运行 过程中会不会显示_____不__会_____。
12．数制转换程序运行界面如下图所示：
①窗体中共有______8______个对象，其中文本框有______3______个。 开始不②起“作转用换，”则按应钮将CoCmommamnadn1d的E1的部na_分_b_属l__e性_d_如__下__图_属所性示设，置若为F想a_使_l_此s_e_按__钮__一_。
③按钮Command2不起作用，原因是 _____C_o_m_m_a_n_d_2_的_E_n_a_b_l_e_d_默__认_属__性__值__设__置_成__F_a_l_s_e_____________________________。
第二章 Visual Basic程序设计
2．1 面向对象程序设计方法简介
1．面向对象程序设计 面向对象程序设计(简称OPP)方法，其核心是对象功能的实现 和表达。Visual Basic即是一种面向对象的程序设计语言。 2．Visual Basic Visual Basic简称VB，是一种Windows环境下应用程序开发 的工具。用VB开发的应用程序具有“可视化”和“事件驱动”两 个重要特征。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
江西财经大学考试试卷试卷代码：03694A 卷授课课时：80课程名称：面向对象程序设计（VB）适用对象：选课班一、填空题（每空1分，共16分）1. 构造函数和析构函数的意义分别是_________ 和 ______ 。
2. 命令窗口用于在集成开发环境中发出命令或调试和计算表示式，它有和______ 两种模式。
3. ReDim语句重定义数组大小时，缺省情况下原数组中的存储的数据会丢失，但能够使用关键字 _______ 来保证原数组中的数据能保留下来。
4. CLR的中文含义是 _______ 。
5. 为了方便用户操作，系统在FileDialog 的基础上，系统已派生了和_____ 文件对话框类。
6. ______ 过程为应用程序的启动点，也就是运行代码时最优先访问的函数。
7. ______ 语句允许用户直接使用在其它命名空间中定义的类及类型，而无需使用限定引用。
8. 窗体是继承.NET类库中的_______ 类。
9. ______ 类提供访问文件的方法，包括标准输入、输出和错误设备。
10. 要进行二进制文件存取，必须创立_________ 与 _______ 对象。
11. 在任何图形绘制之前，一定要先用_________ 类创立一个对象。
12. ______ 对象是DataSet对象和数据源之间的桥梁。
二、单项选择题（从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸相应位置处。
答案错选或未选者，该题不得分。
每小题2分,共16分。
）1. 以下关于静态成员正确的说法是________A. 静态成员能够不用Static修饰符修饰B. 静态成员只能用类名访问C. 静态成员和非静态成员不能同时在类中定义D. 静态成员能够被类的实例调用2. 的项目文件是以 ______ 扩展名来保存。
A. .sinB. .vbC. .vbprojD. .sou3. 在类视图窗口以_______ 结构显示当前项目中的所有类。
A. 树状结构B. 下拉列表C. 菜单D. 表4. 以下_______ 不是数据提供程序所提供的四个核心对象。
A. Conn ecti onB. DataReaderC. ParserD. DataAdapter5. 有关继承下列说法不正确的是________A. 所有类缺省都是可继承的，除非在类定义时使用Notlnheritable 关键字修饰。
B. 在中，一个类的基类可能有多个。
C. 为了防止基类中需要封装保密的成员在派生类中被泄露出来，派生类定义的访问权限必须比其基类更为严格或者至少与之相同。
D. 在Visaul Basic .NET 中，一个类的基类只能有一个。
6. 在中，关于构造函数的说法，下列说法不正确的是___________A. 能够指定构造函数的返回值B. 构造函数能够重载C. 构造函数的过程能够带有参数D. 构造函数的过程名一定是New7.菜单控件支持事件。
A. ClickB. MouseDow nC. KeyPressD. Leave8.Err 对象的属性返回了错误号A. NumberB. SourceC. Description资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
D．HlepContext三、阅读程序, 根据要求回答问题。
( 每小题每5分, 共20分)1. 指出以下文件操作程序代码的功能, 并画出Windows 窗体的界面图。
Pri vate Sub Butt on1_Cl i ck(ByVal sender As Syst em. Obj ect , ByVal e As Syst em. Event Args) Handl es But ton1.Cl i ckOpenFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 格式文件(*RTF)|*RTF"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.Title = " 打开文件"OpenFileDialog1.InitialDirectory = Application.StartupPathOpenFileDialog1.RestoreDirectory = TrueOpenFileDialog1.ShowDialog()Fname = OpenFileDialog1.FileNameIf (Fname <> "") ThenIf (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.LoadFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTextBox1.LoadFile(Fname,End IfRichTextBoxStreamType.RichText)资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
StatusBar1.Panels(0).Text = ”读状态”StatusBar1.Panels(1).Text = ”未保存”End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickSaveFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 件(*RTF)|*RTF"格式文SaveFileDialog1.FilterIndex = 1SaveFileDialog1.Title = " 保存文件"SaveFileDialog1.InitialDirectory = Application.StartupPathSaveFileDialog1.RestoreDirectory = TrueSaveFileDialog1.ShowDialog()Fname = SaveFileDialog1.FileNameIf (Fname <> "") ThenIf (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.RichText)End If资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
StatusBar1.Panels(0).Text = " 写状态"StatusBar1.Panels(1).Text = " 已保存"End IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickStatusBar1.Panels(2).Text = DateTime.Now.ToString("T")End SubPrivate Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged RichTextBox1.Modified=falseIf RichTextBox1.Modified ThenStatusBar1.Panels(1).Text = " 未保存"ElseStatusB ar1.Panels(1).Text = ”已保存”RichTextBox1.Modified=falseEnd IfEnd Sub2. 指出下列程序的运行结果, 并说明该程序的功能。
Module Module1WithEvents frm1 As New Form()Dim label1 As New Label()资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
Sub Main()label1.Size = New Size(80, 20)label1.BackColor = Color.Yellowlabel1.TextAlign = ContentAlignment.MiddleCenterlabel1.BorderStyle = BorderStyle.Fixed3D frm1.Controls.AddRange(NewSystem.Windows.Forms.Control(){label1})Application.Run(frm1)End SubPublic Sub frm1_MouseMove(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles frm1.MouseMovelabel1.Location = New Point(e.X, e.Y - 15) label1.Text = "X=" & e.X & ",Y=" & e.Y End SubEnd Module3. 分析下列程序的运行结果, 说明该程序的功能。
Public Class loginInherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的Code "‘系统自动创立的程序, 为了节省篇幅, 在此处省略。
#End RegionDim mymdimain As MainMDI资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.ClickIf txtUserName.Text.Trim = "" ThenshowMsg(" 用户名不许为空! ")txtUserName.Focus()Exit SubEnd IfIf txtPassWord.Text.Trim = "" ThenshowMsg(" 密码不许为空! ")txtPassWord.Focus()Exit SubEnd IfDim i As IntegerDim strsql As StringDim mydataset As New DataSetDim myTable As DataTableDim uname As StringDim psw As Stringuname = Trim(txtUserName.Text)psw = Trim(txtPassWord.Text)Trystrsql = "SELECT * FROM Operator WHERE Name= '" + uname资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。