面向对象程序设计VB

江西财经大学考试试卷

试卷代码：03694A 卷授课课时：80课程名称：面向对象程序设计（VB）适用对象：选课班

一、填空题（每空1分，共16分）

1. 构造函数和析构函数的意义分别是_________ 和 ______ 。

2. 命令窗口用于在集成开发环境中发出命令或调试和计算表示式，它有和______ 两种模式。

3. ReDim语句重定义数组大小时，缺省情况下原数组中的存储的数据会丢失

，

但能够使用关键字 _______ 来保证原数组中的数据能保留下来。

4. CLR的中文含义是 _______ 。

5. 为了方便用户操作，https://www.360docs.net/doc/079122955.html,系统在FileDialog 的基础上，系统已派生了

和_____ 文件对话框类。

6. ______ 过程为应用程序的启动点，也就是运行代码时最优先访问的函数。

7. ______ 语句允许用户直接使用在其它命名空间中定义的类及类型，而无需使用限定引用。

8. 窗体是继承.NET类库中的_______ 类。

9. ______ 类提供访问文件的方法，包括标准输入、输出和错误设备。

10. 要进行二进制文件存取，必须创立_________ 与 _______ 对象。

11. 在任何图形绘制之前，一定要先用_________ 类创立一个对象。

12. ______ 对象是DataSet对象和数据源之间的桥梁。

二、单项选择题（从下列各题四个备选答案中选出一个正确答案，并将其代

号写在答题纸相应位置处。答案错选或未选者，该题不得分。每小题2分,共16分。）

1. 以下关于静态成员正确的说法是________

A. 静态成员能够不用Static修饰符修饰

B. 静态成员只能用类名访问

C. 静态成员和非静态成员不能同时在类中定义

D. 静态成员能够被类的实例调用

2. https://www.360docs.net/doc/079122955.html,的项目文件是以 ______ 扩展名来保存。

A. .sin

B. .vb

C. .vbproj

D. .sou

3. 在类视图窗口以_______ 结构显示当前项目中的所有类。

A. 树状结构

B. 下拉列表

C. 菜单

D. 表

4. 以下_______ 不是数据提供程序所提供的四个核心对象。

A. Conn ecti on

B. DataReader

C. Parser

D. DataAdapter

5. 有关继承下列说法不正确的是________

A. 所有类缺省都是可继承的，除非在类定义时使用Notlnheritable 关键字修

饰。

B. 在https://www.360docs.net/doc/079122955.html,中，一个类的基类可能有多个。

C. 为了防止基类中需要封装保密的成员在派生类中被泄露出来，派生类定义的访问权限必须比其基类更为严格或者至少与之相同。

D. 在Visaul Basic .NET 中，一个类的基类只能有一个。

6. 在https://www.360docs.net/doc/079122955.html,中，关于构造函数的说法，下列说法不正确的是___________

A. 能够指定构造函数的返回值

B. 构造函数能够重载

C. 构造函数的过程能够带有参数

D. 构造函数的过程名一定是New

7.菜单控件支持事件。

A. Click

B. MouseDow n

C. KeyPress

D. Leave

8.Err 对象的属性返回了错误号

A. Number

B. Source

C. 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 ck

OpenFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 格式文

件(*RTF)|*RTF"

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.Title = " 打开文件"

OpenFileDialog1.InitialDirectory = Application.StartupPath

OpenFileDialog1.RestoreDirectory = True

OpenFileDialog1.ShowDialog()

Fname = OpenFileDialog1.FileName

If (Fname <> "") Then

If (OpenFileDialog1.FilterIndex = 1) Then

RichTextBox1.LoadFile(Fname,

RichTextBoxStreamType.PlainText)

Else

RichTextBox1.LoadFile(Fname,

End If

RichTextBoxStreamType.RichText)

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

StatusBar1.Panels(0).Text = ”读状态”

StatusBar1.Panels(1).Text = ”未保存”

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

SaveFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 件(*RTF)|*RTF"

格式文SaveFileDialog1.FilterIndex = 1

SaveFileDialog1.Title = " 保存文件"

SaveFileDialog1.InitialDirectory = Application.StartupPath

SaveFileDialog1.RestoreDirectory = True

SaveFileDialog1.ShowDialog()

Fname = SaveFileDialog1.FileName

If (Fname <> "") Then

If (OpenFileDialog1.FilterIndex = 1) Then

RichTextBox1.SaveFile(Fname,

RichTextBoxStreamType.PlainText)

Else

RichTextBox1.SaveFile(Fname,

RichTextBoxStreamType.RichText)

End If

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

StatusBar1.Panels(0).Text = " 写状态"

StatusBar1.Panels(1).Text = " 已保存"

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

StatusBar1.Panels(2).Text = DateTime.Now.ToString("T")

End Sub

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged RichTextBox1.Modified=false

If RichTextBox1.Modified Then

StatusBar1.Panels(1).Text = " 未保存"

Else

StatusB ar1.Panels(1).Text = ”已保存”

RichTextBox1.Modified=false

End If

End Sub

2. 指出下列程序的运行结果, 并说明该程序的功能。

Module Module1

WithEvents frm1 As New Form()

Dim label1 As New Label()

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

Sub Main()

label1.Size = New Size(80, 20)

label1.BackColor = Color.Yellow

label1.TextAlign = ContentAlignment.MiddleCenter

label1.BorderStyle = BorderStyle.Fixed3D frm1.Controls.AddRange(New

System.Windows.Forms.Control()

{label1})

Application.Run(frm1)

End Sub

Public Sub frm1_MouseMove(ByVal sender As Object, ByVal e As

System.Windows.Forms.MouseEventArgs) Handles frm1.MouseMove

label1.Location = New Point(e.X, e.Y - 15) label1.Text = "X=" & e.X & ",Y=" & e.Y End Sub

End Module

3. 分析下列程序的运行结果, 说明该程序的功能。Public Class login

Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的Code "

‘系统自动创立的程序, 为了节省篇幅, 在此处省略。

#End Region

Dim mymdimain As MainMDI

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click

If txtUserName.Text.Trim = "" Then

showMsg(" 用户名不许为空! ")

txtUserName.Focus()

Exit Sub

End If

If txtPassWord.Text.Trim = "" Then

showMsg(" 密码不许为空! ")

txtPassWord.Focus()

Exit Sub

End If

Dim i As Integer

Dim strsql As String

Dim mydataset As New DataSet

Dim myTable As DataTable

Dim uname As String

Dim psw As String

uname = Trim(txtUserName.Text)

psw = Trim(txtPassWord.Text)

Try

strsql = "SELECT * FROM Operator WHERE Name= '" + uname

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

+ "' and Password= '" + psw + "'"

mydataset = executeSelectQuery(strsql, "manager")

strsql = "SELECT * FROM Authority WHERE Name='" & uname

& "'"

myTable = executeSelectQuerygettable(strsql)

If mydataset Is Nothing Then

showMsg(" 用户名或密码错误! ",

MsgBoxStyle.Exclamation)

Return

End If

If myTable Is Nothing Then

showMsg(" 此用户无任何权限! ",

MsgBoxStyle.Exclamation)

Return

End If

Catch ex As Exception

Exit Sub

End Try

If mydataset.Tables("manager").Rows.Count = 0 Then showMsg(" 用户名或密码错误! ", MsgBoxStyle.Exclamation)

Else

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。

GlobalVariable.PERMISSION = New ArrayList

For i = 0 To myTable.Rows.Count - 1

GlobalVariable.PERMISSION.Add(myTable.Rows(i).Item("Permission") & "") Next

Me.Close()

End If

End Sub

Private Sub login_Closing(ByVal sender As Object, ByVal e As https://www.360docs.net/doc/079122955.html,ponentModel.CancelEventArgs) Handles MyBase.Closing mymdimain.setpower()

End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

PERMISSION = New ArrayList

mymdimain.setpower()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

Me.Close()

End Sub

End Class

其中: setpower() 为权限设置方法, 在此省略了。

4. 指出下列程序的运行结果, 并说明该程序中使用了面向对象技术中的一个什么概念, 它实现了一个什么功能。

Public Class Shape

Public Overridable Function GetArea() As Double

Return (0)

End Function

Public Overridable Function GetPerim() As Double

Return (0)

End Function

End Class

Class Rectangle

Inherits Shape

Public Width As Double

Public Length As Double

Public Sub New(ByVal a As Double, ByVal b As Double)

Width = a : Length = b

End Sub

Public Overrides Function GetArea() As Double

Return (Width * Length)

End Function

Public Overrides Function GetPerim() As Double

Return (2 * (Length + Width))

End Function

End Class

Class Circle

Inherits Shape

Public Radius As Double

Public Sub New(ByVal r As Double)

Radius = r

End Sub

Public Overrides Function GetArea() As Double

Return (Math.PI * Radius * Radius)

End Function

Public Overrides Function GetPerim() As Double

Return (2 * Math.PI * Radius)

End Function

End Class

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code " ‘系统自动创立的程序, 为了节省篇幅, 在此处省略。

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。System.EventArgs) Handles Button1.Click

Dim a, b As Double

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

Dim Rect As New Rectangle(a, b)

TextBox3.Text = CStr(Rect.GetPerim())

TextBox4.Text = CStr(Rect.GetArea())

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim r As Double

r = Val(TextBox5.Text)

Dim Cir As New Circle(r)

TextBox6.Text = CStr(Cir.GetPerim())

TextBox7.Text = CStr(Cir.GetArea())

End Sub

End Class

四、问答题( 第1小题8分, 第2小题10分, 共20分)

1. 简述.NET的特点。

2. 举例说明面向对象语言支持三种特性的应用。

五、程序设计题（第1 小题8分, 第2、 3 小题各10分, 共28分）

1. 编写一个关于自己的结构和类的程序。

2. 编写一个我最喜爱的国产轿车评选程序。程序设计界面图

5-1,程序运行

界面如图5-2所示。程序运行时，在ListBoxI 列表框中显示所有参评轿车列 表,单击按钮【＞】用户能够从中选择一量轿车，对于选完后不满意的轿车： 还能够经过单击按钮【＜】，移回到ListBoxI 列表框中，还可选中ListBoxI 列表中所有轿车（经过单击按钮【＞＞】实现）或将ListBox2框中所全的项目 全部移回至ListBoxI 框中（经过单击按钮【＜＜】实现）。

3.

请按照以

下（关于信息学院部分专业学生必修学习课程的情况 ）图形的

分析，制定每一个类所需要的数据成员与成员函数

，编写一个完整的程序，

实现在控制台方式下 ，按给出的学生实例值 （例如：①王行江，0138, 1985.10.25, 计算机，打球；②钟明华，0206,1986216, 信管，跳舞） 显示信管专业与计算机专业学生相关类的成员值。

君军列表：一：…二:..：.：选挥的轿车：

图5-1程序设计界面

面

程序运行界

慕瓯达

来 天畀颐腾

迪宝越威越施 刚戢址速與新君君=n

虹

5SSS5S 肓襲克兗克

汽 NI 肛肛一 一一別SI 别一

?

Jn|2d

5-2

江西财经大学末考试试卷

试卷代码：03694B卷授课课时：80课程名称：面向对象程序设计（VB）适用对象：选课班

二、填空题（每空1分，共16分）

1. 面向对象技术的主要特性表现在具有抽象化、 ___________________________ 、和 ______ 。

2. 接口是对类的可用_______ 、________ 和 ______ 等做一个规范描述，而且能够用它作为一种类型来使用，可是它并不真正实现代码，仅仅是一个描

述。

3. Visual https://www.360docs.net/doc/079122955.html, 默认的析构函数是________ 。

4. 在https://www.360docs.net/doc/079122955.html,中，你能够经过_____ 类来操作文件夹和驱动器。

5. 在https://www.360docs.net/doc/079122955.html,中，编译时的多态性是经过________ 实现，运行时的多态性是经过继承和 _______ 来实现的。

6. 说明以下在类所声明变量的差异。

Shared i As In teger ______

Protected x As Si ngle ______

Public y As Si ngle ______

7. 要在已知的项目中添加类或Windows窗体，能够经过选取菜单中的

来实现。

8. 要连接SQL Server7.0以上版本的数据库时，需要使用___________ 对象。

9. 在System.Drawing命名空间中，_________ 类是绘制图形的最核心的类。

六、单项选择题（从下列各题四个备选答案中选出一个正确答案，并将其代

号写在答题纸相应位置处。答案错选或未选者，该题不得分。每小题2分,共16分。）

1. 在使用MsgBox函数时，一定要给的参数是________ 。

A. title

B. prompt

C. butt on

D. 以上皆非

2. ___________________________________________________ 当参数指定为传址调用时，调用者能够利用下面的__________________________ 符号括住参数，强迫该参数的传递变成传值调用。

A、< >

B. ()

c.[]

3. 类中利用Dim所声明的变量为________

A. Private

B. Public

C. Protected

D. Shared

4. 要让继承的类也能使用的变量，必须以__________ 关键字声明。

A. Private

B. Dim

C. Protected

D. Used

5. 当类中的函数以MustOverride声明时，类必须以 __________ 关键字声明

A. NoIn heritable

B. Overridable

C. MustInherit

D. Overrides

6. 模块文件存储时，它的扩展名是________ 。

A. .mdl

B. .mod

C. .vb

D. .abs

7. 在StreamReader类中共定义了四种读取方式，其中从当前流中读取一行字符并将数据作为字符串返回的是_________

A. Read

B. ReadLine

C. ReadBlock

D. ReadtoEnd

8. 以下_______ 的级别能够使用Static语句

A. 过程级

B. 模块级

C. 类级

D. 命名空间

七、阅读程序，根据要求回答问题。(每小题每5分，共20分)

1. 分析下列程序的运行结果，说明该程序的功能，并画出Windows窗体界面。Imports System.Wi ndows.Forms

Imports System.Drawi ng

Module Module1

Dim frm1 As New Form()

Dim Mdifrm1 As New Form()

Dim Mdifrm2 As New Form()

WithEve nts btn1 As New Butt on

Sub Mai n()