面向对象程序设计(VB)

1、江西财经大学考试试卷试卷代码： 03694A 卷授课课时： 80课程名称： 面向对象程序设计（ VB）适用对象：选课班一、填空题（每空 1 分，共 16 分）1. 构造函数和析构函数的意义分别是和。2. 命令窗口用于在集成开发环境中发出命令或调试和计算表达式，它有和两种模式。3.ReDim 语句重定义数组大小时，缺省情况下原数组中的存储的数据会丢失，但可以使用关键字来保证原数组中的数据能保留下来。4.CLR 的中文含义是。5. 为了方便用户操作， VS.NET 系统在 FileDialog 的基础上，系统已派生了和文件对话框类。6. 过程为应用程序的启动点，也就是运行代码时最优先访问的函数。7

2、. 语句允许用户直接使用在其他命名空间中定义的类及类型，而无需使用限定引用。8. 窗体是继承 .NET 类库中的类。9. 类提供访问文件的方法，包括标准输入、输出和错误设备。10. 要进行二进制文件存取，必须创建与对象。11. 在任何图形绘制之前，一定要先用类创建一个对象。12. 对象是 DataSet 对象和数据源之间的桥梁。二、单项选择题 （从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸相应位置处。答案错选或未选者，该题不得分。每小题2 分，共 16 分。）1. 以下关于静态成员正确的说法是A 静态成员可以不用Static修饰符修饰B 静态成员只能用类名访问C静态成员和非静

3、态成员不能同时在类中定义D静态成员可以被类的实例调用的工程文件是以扩展名来保存。A.slnB.vbC. .vbprojD.sou3. 在类视图窗口以结构显示当前工程中的所有类。A 树状结构B 下拉列表C 菜单D 表1/214. 以下不是数据提供程序所提供的四个核心对象。AConnectionBDataReaderC ParserDDataAdapter5. 有关继承下列说法不正确的是A 所有类缺省都是可继承的，除非在类定义时使用 NotInheritable 关键字修饰。B 在 VB.NET中，一个类的基类可能有多个。C为了防止基类中需要封装保密的成员在派生类中被泄露出来，派生类定义的访问权限

4、必须比其基类更为严格或者至少与之相同。D在 Visaul Basic .NET中，一个类的基类只能有一个。6在 VB.NET中，关于构造函数的说法，下列说法不正确的是A 可以指定构造函数的返回值B 构造函数可以重载C构造函数的过程可以带有参数D 构造函数的过程名一定是New7. 菜单控件支持事件。A ClickB MouseDownC KeyPressD Leave8.Err对象的属性返回了错误号A NumberB SourceCDescriptionDHlepContext三、阅读程序，根据要求回答问题。（每小题每 5 分，共 20 分）1. 指出以下文件操作程序代码的功能，并画出Windo

5、ws窗体的界面图。Pr i vat eSubBut t on1_Cl i ck( ByValsenderAsSyst em. Obj ect ,Syst em. Event Ar gs) Handl es But t on1. Cl i ckByValeAsOpenFileDialog1.Filter="文本(*.RTF)|*.RTF"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.Title = "打开文件 "文 件(*.txt)|*.txt|RTF格 式文 件OpenFileDialog1.Initial

6、Directory = Application.StartupPathOpenFileDialog1.RestoreDirectory = TrueOpenFileDialog1.ShowDialog()Fname = OpenFileDialog1.FileNameIf (Fname <> "") Then2/21If (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.LoadFile(Fname, RichTextBoxStreamType.PlainText)ElseRichTextBox1.LoadFi

7、le(Fname, RichTextBoxStreamType.RichText)End IfStatusBar1.Panels(0).Text = StatusBar1.Panels(1).Text =“读状态”“未保存”End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.ClickSaveFileDialog1.Filter=" 文 本 文 件 (*.txt)|*.txt|RTF(*.RTF)|*.RTF&

8、quot;SaveFileDialog1.FilterIndex = 1SaveFileDialog1.Title = "保存文件 "格式文件Fname = SaveFileDialog1.FileNameIf (Fname <> "") ThenIf (OpenFileDialog1.FilterIndex = 1) Then RichTextBox1.SaveFile(Fname, RichTextBoxStreamType.PlainText)StatusBar1.Panels(0).Text = "写状态 "Sta

9、tusBar1.Panels(1).Text = "已保存 "End IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickEnd SubPrivate Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChangedRichTex

10、tBox1.Modified=falseIf RichTextBox1.Modified ThenStatusBar1.Panels(1).Text = "未保存 "ElseStatusBar1.Panels(1).Text =“已保存”3/21RichTextBox1.Modified=falseEnd IfEnd Sub2. 指出下列程序的运行结果，并说明该程序的功能。Module Module1WithEvents frm1 As New Form()Dim label1 As New Label()Sub Main()label1.Size = New Size(8

11、0, 20)label1.BackColor = Color.Yellowlabel1.TextAlign = ContentAlignment.MiddleCenterlabel1.BorderStyle = BorderStyle.Fixed3DApplication.Run(frm1)End Sublabel1.Location = New Point(e.X, e.Y - 15)label1.Text = "X=" & e.X & ",Y=" & e.YEnd SubEnd Module3. 分析下列程序的运行结果，说明该

12、程序的功能。Public Class login#Region " Windows窗体设计器生成的 Code "系统自动创建的程序，为了节省篇幅，在此处省略。#End RegionDim mymdimain As MainMDIPrivate Sub btnOk_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnOk.ClickshowMsg("用户名不许为空！ ")txtUserName.Focus()Exit SubEnd IfshowMsg(&qu

13、ot;密码不许为空！ ")txtPassWord.Focus()4/21Exit 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= '"

14、; + uname + "' and Password= '" + psw + "'"mydataset = executeSelectQuery(strsql, "manager")strsql = "SELECT * FROM Authority WHERE Name='" & uname & "'"myTable = executeSelectQuerygettable(strsql)If mydataset Is Nothing T

15、henshowMsg("用户名或密码错误！ ", MsgBoxStyle.Exclamation)ReturnEnd IfIf myTable Is Nothing ThenshowMsg("此用户无任何权限！ ", MsgBoxStyle.Exclamation)ReturnEnd IfCatch ex As ExceptionExit SubEnd TryIf mydataset.Tables("manager").Rows.Count = 0 ThenshowMsg("用户名或密码错误！ ", MsgBoxS

16、tyle.Exclamation)ElseGlobalVariable.PERMISSION = New ArrayListNextMe.Close()End IfEnd Submymdimain.setpower()5/21End SubPrivate Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadPERMISSION = New ArrayListmymdimain.setpower()End SubPrivate Sub btnExit_Click

17、(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.ClickMe.Close()End SubEnd Class其中： setpower() 为权限设置方法，在此省略了。4. 指出下列程序的运行结果，并说明该程序中使用了面向对象技术中的一个什么概念，它实现了一个什么功能。Public Class ShapePublic Overridable Function GetArea() As DoubleReturn (0)End FunctionPublic Overridable Functi

18、on GetPerim() As DoubleReturn (0)End FunctionEnd ClassClass RectangleInherits ShapePublic Width As DoublePublic Length As DoublePublic Sub New(ByVal a As Double, ByVal b As Double)Width = a : Length = bEnd SubPublic Overrides Function GetArea() As DoubleReturn (Width * Length)End FunctionPublic Over

19、rides Function GetPerim() As DoubleReturn (2 * (Length + Width)End FunctionEnd ClassClass CircleInherits ShapePublic Radius As Double6/21Public Sub New(ByVal r As Double)Radius = rEnd SubPublic Overrides Function GetArea() As DoubleReturn (Math.PI * Radius * Radius)End FunctionPublic Overrides Funct

20、ion GetPerim() As DoubleReturn (2 * Math.PI * Radius)End FunctionEnd ClassPublic Class Form1#Region " Windows Form Designer generated code "系统自动创建的程序，为了节省篇幅，在此处省略。#End RegionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b

21、As Doublea = 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 SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim r As Doubler = Val(TextBox5

22、.Text)Dim Cir As New Circle(r)TextBox6.Text = CStr(Cir.GetPerim()TextBox7.Text = CStr(Cir.GetArea()End SubEnd Class四、问答题（第 1 小题 8 分，第 2 小题 10 分，共 20 分）1. 简述 .NET 的特点。2. 举例说明面向对象语言支持三种特性的应用。五、程序设计题 （第 1 小题 8 分，第 2、3 小题各 10 分，共 28 分）1. 编写一个关于自己的结构和类的程序。7/212.编写一个我最喜爱的国产轿车评选程序。程序设计界面图5-1 ，程序运行界面如图5-2所示

23、。程序运行时，在ListBox1列表框中显示所有参评轿车列表，单击按钮【>】用户可以从中选择一量轿车，对于选完后不满意的轿车，还可以通过单击按钮【<】，移回到ListBox1 列表框中，还可选中 ListBox1 列表中所有轿车（通过单击按钮【 >>】实现）或将 ListBox2 框中所全的工程全部移回至 ListBox1 框中（通过单击按钮【 <<】实现）。图 5-1 程序设计界面5-2程序运行界面3. 请按照以下（关于信息学院部分专业学生必修学习课程的情况）图形的分析，制定每一个类所需要的数据成员与成员函数，编写一个完整的程序，实现在控制台方式下，按给出

24、的学生实例值（例如：王行江，20030138，计算机，打球；钟明华，20030206，信管，跳舞）显示信管专业与计算机专业学生相关类的成员值。Student （属性： Name、No、BirthDate 、Profession 、Love）（方法： English 、 Cprogram ）InfoStudenCompStudenVB.NET ProgramElectroniccommerceC+ ProgramNumericallogic8/21江西财经大学末考试试卷试卷代码： 03694B卷课程名称： 面向对象程序设计（VB）授课课时： 80适用对象：选课班二、填空题（每空 1 分，共 16

25、 分）1. 面向对象技术的主要特性表现在具有抽象化、和。2. 接口是对类的可用、和等做一个规范描述，并且可以用它作为一种类型来使用，但是它并不真正实现代码，仅仅是一个描述。3.Visual Basic.NET默认的析构函数是。4. 在 VB.NET中，你可以通过类来操作文件夹和驱动器。5. 在 VB.NET中，编译时的多态性是通过实现，运行时的多态性是通过继承和来实现的。6. 说明以下在类所声明变量的差异。Shared i As Integer Protected x As SinglePublic y As Single7. 要在已知的工程中添加类或 Windows窗体，可以通过选取菜单中的

26、来实现。8. 要连接 SQL Server7.0 以上版本的数据库时，需要使用对象。9. 在 System.Drawing 命名空间中， 类是绘制图形的最核心的类。六、单项选择题 （从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸相应位置处。答案错选或未选者，该题不得分。每小题2 分，共 16 分。）1. 在使用 MsgBox函数时，一定要给的参数是 。AtitleBprompt C、button D以上皆非2. 当参数指定为传址调用时，调用者可以利用下面的符号括住参数，强迫该参数的传递变成传值调用。A、< >B( )C D“”3. 类中利用 Dim所声明的变量为A.

27、 PrivateB. PublicC. ProtectedD. Shared4. 要让继承的类也能使用的变量，必须以关键字声明。9/21A. PrivateB. DimC. ProtectedD. Used5. 当类中的函数以 MustOverride 声明时，类必须以 关键字声明。A NoInheritable B OverridableC MustInheritD Overrides6. 模块文件存储时，它的扩展名是。A .mdl B .mod C .vb D .abs7. 在 StreamReader 类中共定义了四种读取方式，其中从当前流中读取一行字符并将数据作为字符串返回的是A Re

28、adB ReadLineC ReadBlockDReadtoEnd8. 以下的级别可以使用 Static 语句A 过程级B 模块级C 类级D命名空间七、阅读程序，根据要求回答问题。（每小题每 5 分，共 20 分）1.分析下列程序的运行结果，说明该程序的功能，并画出Windows窗体界面。Imports System.DrawingModule Module1Dim frm1 As New Form()Dim Mdifrm1 As New Form()Dim Mdifrm2 As New Form()WithEvents btn1 As New ButtonSub Main()frm1.IsM

29、diContainer = Truebtn1.Size = New Size(0, 40)btn1.Text = "子窗体水平排列 "btn1.Dock = DockStyle.TopMdifrm1.MdiParent = frm1Mdifrm2.Text = "MDI子窗体二 "Mdifrm2.MdiParent = frm1"10/21Mdifrm1.Show()Mdifrm2.Show()Application.Run(frm1)End SubPublic Sub btn1_Click(ByVal sender As Object, By

30、Val e As System.EventArgs)Handles btn1.Clickfrm1.LayoutMdi(MdiLayout.TileHorizontal)End SubEnd Module2. 指出下列程序的运行结果，并说明该程序的功能。Imports System.IO Class dirMethodSub create(ByVal path As String)If Directory.Exists(path) ThenConsole.WriteLine("文件夹已经存在 !")ElseDirectory.CreateDirectory(path)If D

31、irectory.Exists(path) ThenConsole.WriteLine("文件夹创建成功End IfEnd IfEnd SubEnd ClassModule Module1Sub Main()Dim obj_dir As New dirMethod()Dim str_path As StringConsole.Write("请输入文件夹名称 : ")str_path = Console.ReadLine()obj_dir.create(str_path)End SubEnd Module!")假设输入一个刚才已建立的文件夹：d:abc3.

32、分析下列程序的结果，说明该程序的功能（假设该程序的文件名是序运行时的 Windows窗体层次结构图。ex3.vb ），并画出程Public Class Form1#Region " Windows Form Designer generated code " 系统自动创建的程序，为了节省篇幅，在此处省略。#End RegionPrivate WithEvents MainMenu1 As New MainMenu()Private WithEvents MenuItem1, MenuItem2, MenuItem3, MenuItem4, MenuItem5 As Menu

33、ItemPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As11/21System.EventArgs) Handles MyBase.LoadMenuItem1 = New MenuItem("文件 ")MenuItem2 = New MenuItem("编辑 ")MenuItem3 = New MenuItem("新建 ")MenuItem4 = New MenuItem("-")MenuItem5 = New MenuItem(&qu

34、ot;关闭 ")MenuItem3.Shortcut = Shortcut.Alt0MenuItem5.Shortcut = Shortcut.Alt1Me.Menu = MainMenu1End SubPrivate Sub MenuItem3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem3.ClickMsgBox("您刚单击了新建选项 ")End SubPrivate Sub myMenuItemExit_Click(ByVal sender As Sys

35、tem.Object, ByVal e AsSystem.EventArgs)Close()End SubEnd Class4. 分析下列程序的运行结果，并说明该程序中关键字MyBase与Class cls1Public Overridable Sub WhichOne()Console.WritrLine(“来自基类的方法。” )End SubPublic Overridable Sub Who()WhichOne()MyClass.WhichOne()End SubEnd ClassClass cls2Inherits cls1Public Overrides Sub WhichOne()

36、Console.WriteLine(“来自派生类的方法。”)End SubPublic Overrides Sub Who()MyClass 的区别。WhichOne()MyBase.WhichOne()End SubPublic Sub Callwho()MyClass.Who()12/21MyBase.Who()End SubEnd ClassModule Module1Sub Main()Dim obj1 As New cls1()Dim obj2 As New cls2()Console.WriteLine(“对象一Who “ )obj1.Who()Console.WriteLine(

37、“对象二Who “）obj2.Who()Console.WriteLine(“对象二Callwho “）obj2.Callwho()End SubEnd Module八、问答题（每小题 10 分，共 20 分）1. 简述 .NET Framework 的组成及其功能。2. 简述 ADO.NET模型组成和框架结构。九、程序设计题 （第 1 小题 8 分，第 2 、3 小题各为 10 分，共 28 分）1. 编程实现窗体的继承与应用。2. 试采用文本移动编程来模拟走马灯。其中文本左右移动的速度快慢，可通过水平滚动条滑块的移动来调节。当滑卡块移至最左边时，走马灯移动最慢，而当滑块移至最右边时，走马灯

38、移动的最快。图5-1窗体界面图5-2程序运行界面3. 创建名为 Math2D的类，它具有重载方法 Area，如果把单个参数传递给 Area，则认为它是圆的半径，它返回圆的面积（r 2）；如果向 Area 传递两个参数，则认为它们是三角形的底（ b）和高（ h），它将返回这个三角形的面积（bh/2 ）。请从 Math2D 派生一个新类Math3D，并重写 Area 方法的两个版本，以处理三维对象。如果向r 2Math3D 中的 Area 方法传递一个参数，则认为它是球的半径，它将返回球的表面积（4）。如果向 Math3D 中的13/21Area方法传递两个参数，则认为它们是圆锥的底部半径（r ）

39、和边线长度（l ，顶部到底），它将返回圆锥的表面积（r l ）。通过上述类及其成员函数的定义，试编写一个完整的程序，实现在工作台方式下，当 r=h=l=2.5 ，b=3.8 时，分别调用过程输出显示这四种情况下的面积求算值。江西财经大学期末考试试卷试卷代码： 03694C 卷授课课时： 80课程名称： 面向对象程序设计（ VB）适用对象：选课班三、填空题（每空 1 分，共 16 分）1. 对象的特征称 ，对象能执行的操作称 ，对象能识别的操作称为 。类中的五个访问限定符为Privtae 、Public 、Shared、 和 。3. 当调用的参数个数不确定，而且类型一致时，我们可以使用让过程统一

40、接收这些参数。4.在.NET 中所有的异常都派生于类。5.窗体是继承 .NET 类库中的 类。6.在 VB.NET 的类中用户自定义事件时，一般是在类中使用语句声明一个事件，再在类的某个方法中，使用 语句激发事件。7.类提供创建、复制、删除、移动和打开文件的实例方法，并且帮助创建FileStream 对象。要实现文本文件的读写，一般使用类和 类。8. 命名空间是涉及输入，输出设备的类库集合。包括了所有进行字符串、数据、文件操作的类库。9. 在任何图形绘制之前，一定要先用 类创建一个对象。10. 对象是 ADO.NET的核心，是数据的内存驻留表示形式，无论数据源是什么，它都会提供一致的关系编程模

41、型。二、选择题 （从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸相应位置处。答案错选或未选者，该题不得分。每小题 2 分，共 16 分。）1.NET 应用程序第二次执行时，不需要在编译的原因是。A已经产生执行文件BCache 的机制C通用语言规范本身D以上皆非2. 在.NET 的设计中，工程是由管理。A 帮助B 工程本身C 类库D 解决方案14/213. 非共享成员的访问只能使用的实例对象。A 模块B 命名空间C 类D 以上皆是4 Select Case的 Case 后面，下面是正确的范围条件。A1 to 5B5 to 1C1:3 to 6DIs>60:86 to 905

42、使用在 ForNext 的循环控制变量可以是数据类型。A LongB IntegerC DoubleD 以上皆可6. . 要显示 VB.NET的标准对话框，需要调用的方法A MessageBox.ShowB MsgBoxC InputBoxD ShowDialog7. 若要把窗体设置为 MDI父窗体，应该把它的属性设置为 Ture。A MdiChildrenB IsMdiContainer C MdiParent D IsMdiChild8. 如果进行二进制读文件，应该实例化。A BinaryReader B BinaryWriter C StreamReader D StreamWriter

43、三、阅读程序，根据各题的要求回答问题。（每题小题 5 分，共 20 分）1. 分析下列程序的运行结果，说明该程序的功能。Public Class login#Region " Windows窗体设计器生成的 Code "系统自动创建的程序，为了节省篇幅，在此处省略。#End RegionDim mymdimain As MainMDIPrivate Sub btnOk_Click(ByVal sender As System.Object, ByVal e As15/21System.EventArgs) Handles btnOk.ClickshowMsg("用

44、户名不许为空！ ")txtUserName.Focus()Exit SubEnd IfshowMsg("密码不许为空！ ")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)Trystrsq

45、l = "SELECT * FROM Operator WHERE Name= '" + uname + "' and Password= '" + psw + "'"mydataset = executeSelectQuery(strsql, "manager")strsql = "SELECT * FROM Authority WHERE Name='" & uname & "'"myTable = exec

46、uteSelectQuerygettable(strsql)If mydataset Is Nothing ThenshowMsg("用户名或密码错误！ ", MsgBoxStyle.Exclamation)ReturnEnd IfIf myTable Is Nothing ThenshowMsg("此用户无任何权限！ ", MsgBoxStyle.Exclamation)ReturnEnd IfCatch ex As ExceptionExit SubEnd TryIf mydataset.Tables("manager").Row

47、s.Count = 0 ThenshowMsg("用户名或密码错误！ ", MsgBoxStyle.Exclamation)ElseGlobalVariable.PERMISSION = New ArrayList16/21& "")NextMe.Close()End IfEnd Submymdimain.setpower()End SubPrivate Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadPER

48、MISSION = New ArrayListmymdimain.setpower()End SubPrivate Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.ClickMe.Close()End SubEnd Class其中： setpower() 为权限设置方法，在此省略了。2 给出下列程序的运行结果，并说明该程序的功能。Module Module1Sub Main()Dim i, n, f As ShortDo While (True)TryCo

49、nsole.Write("n = ")n = Console.ReadLine()f = 1For i = 1 To nf = f * iNextExit DoCatch e1 As InvalidCastExceptionConsole.WriteLine("数据类型错误 ")Catch e2 As OverflowExceptionConsole.WriteLine("溢出错误 ")17/21Catch e3 As ExceptionConsole.WriteLine("其他错误 ")End TryLoopCo

50、nsole.WriteLine(n & "! = " & f)Console.ReadLine()End SubEnd Module3. 分析下列程序，说明该程序的功能，并用层次图表示。Public Class Form1#Region " Windows Form Designer generated code " 系统自动创建的程序，为了节省篇幅，在此处省略。 #End RegionPrivate ContextMenu1 As New ContextMenu()Private WithEvents MenuItem1, MenuItem2, MenuItem3 As MenuItemPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.LoadRichTextBox1.Dock = DockStyle.FillMenuItem1 = New MenuItem("剪切 ")MenuItem2 = New MenuItem("复制 ")MenuItem3 = New MenuItem("粘贴 ")MenuItem1.Sho