面向对象程序设计VB.docx

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

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

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

4、出来 ，派生类定 义的访问权限必须比其基类更为严格或者至少与之相同。D.在Visaul Basic .NET 中，一个类的基类只能有一个。6.在VB.NET中，关于构造函数的说法，下列说法不正确的是 A.能够指定构造函数的返回值B.构造函数能够重载C.构造函数的过程能够带有参数D.构造函数的过程名一定是 New7.菜单控件支持 事件。A.ClickB.MouseDow nC.KeyPressD.Leave8.Err对象的 属性返回了错误号A.NumberB.SourceC. Description资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。DHlepContext三、 阅读程

5、序 , 根据要求回答问题。 ( 每小题每 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)|*RTFOpenFileDialog1.FilterIndex = 1OpenFileDialog

6、1.Title = 打开文件 OpenFileDialog1.InitialDirectory = Application.StartupPathOpenFileDialog1.RestoreDirectory = TrueOpenFileDialog1.ShowDialog()Fname = OpenFileDialog1.FileNameIf (Fname ) ThenIf (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.LoadFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTex

7、tBox1.LoadFile(Fname,RichTextBoxStreamType.RichText)资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。StatusBar1.Panels(0).Text = ”读状态”StatusBar1.Panels(1).Text = ”未保存”End IfEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click格式文SaveFileDialog1.Filter = 文本文件

8、 (*.txt)|*.txt|RTF 件(*RTF)|*RTFSaveFileDialog1.FilterIndex = 1SaveFileDialog1.Title = 保存文件 SaveFileDialog1.InitialDirectory = Application.StartupPathSaveFileDialog1.RestoreDirectory = TrueSaveFileDialog1.ShowDialog()Fname = SaveFileDialog1.FileNameIf (Fname ) ThenIf (OpenFileDialog1.FilterIndex = 1)

9、 ThenRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.RichText)资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。StatusBar1.Panels(0).Text = 写状态 StatusBar1.Panels(1).Text = 已保存 End IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e A

10、sSystem.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.TextChangedRichTextBox1.Modified=falseIf RichTextBox1.Modified ThenStatusBar1.Panels(1

11、).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.MiddleCe

12、nterlabel1.BorderStyle = BorderStyle.Fixed3D frm1.Controls.AddRange(New System.Windows.Forms.Control()label1)Application.Run(frm1)End SubPublic 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)

13、 label1.Text = X= & e.X & ,Y= & e.YEnd 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

14、.Object, ByVal e AsSystem.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 A

15、s DataTableDim uname As StringDim psw As Stringuname = Trim(txtUserName.Text)psw = Trim(txtPassWord.Text)Trystrsql = SELECT * FROM Operator WHERE Name= + uname资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。+ and Password= + psw + mydataset = executeSelectQuery(strsql, manager)strsql = SELECT * FROM Authority WHERE

16、Name= & uname& myTable = executeSelectQuerygettable(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).Rows.Cou

17、nt = 0 Then showMsg( 用户名或密码错误 ! , MsgBoxStyle.Exclamation)Else资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。GlobalVariable.PERMISSION = New ArrayListFor i = 0 To myTable.Rows.Count - 1 GlobalVariable.PERMISSION.Add(myTable.Rows(i).Item(Permission) & )NextMe.Close()End IfEnd SubPrivate Sub login_Closing(ByVal sende

18、r As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing mymdimain.setpower()End 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(ByVal

19、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

20、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

21、rides Function GetPerim() As Double资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。Return (2 * (Length + Width)End FunctionEnd ClassClass CircleInherits ShapePublic Radius As DoublePublic Sub New(ByVal r As Double)Radius = rEnd SubPublic Overrides Function GetArea() As DoubleReturn (Math.PI * Radius * Radius)End Fun

22、ctionPublic Overrides Function GetPerim() As DoubleReturn (2 * Math.PI * Radius)End FunctionEnd ClassPublic Class Form1Inherits System.Windows.Forms.Form#Region Windows Form Designer generated code 系统自动创立的程序 , 为了节省篇幅 , 在此处省略。#End RegionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e

23、 As资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。System.EventArgs) Handles Button1.ClickDim a, b 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,

24、 ByVal eAs System.EventArgs) Handles Button2.ClickDim r As Doubler = Val(TextBox5.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分, 共

25、 28分）1.编写一个关于自己的结构和类的程序。2.编写一个我最喜爱的国产轿车评选程序。程序设计界面图 5-1,程序运行3.界面如图5-2所示。程序运行时，在ListBoxI列表框中显示所有参评轿车列 表,单击按钮【】用户能够从中选择一量轿车，对于选完后不满意的轿车： 还能够经过单击按钮【】，移回到ListBoxI列表框中，还可选中ListBoxI 列表中所有轿车（经过单击按钮【】实现）或将ListBox2框中所全的项目 全部移回至ListBoxI框中（经过单击按钮【】实现）。4.请按照以下（关于信息学院部分专业学生必修学习课程的情况 ）图形的分析，制定每一个类所需要的数据成员与成员函数 ，编

26、写一个完整的程序，实现在控制台方式下 ，按给出的学生实例值 （例如：王行江，0138,1985.10.25, 计算机，打球；钟明华，0206,1986216, 信管，跳舞） 显示信管专业与计算机专业学生相关类的成员值。江西财经大学末考试试卷试卷代码：03694B卷 授课课时：80课程名称：面向对象程序设计（VB） 适用对象：选课班二、填空题（每空1分，共16分）1.面向对象技术的主要特性表现在具有抽象化、 、和 。2.接口是对类的可用 、 和 等做一个规范描述，而且能够用它作为一种类型来使用 ，可是它并不真正实现代码，仅仅是一个描述。3.Visual Basic.NET 默认的析构函数是 。4

27、.在VB.NET中，你能够经过 类来操作文件夹和驱动器。5.在VB.NET中，编译时的多态性是经过 实现，运行时的多态性是经过继承和 来实现的。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命名空间中， 类是绘制图形的最核心的类。六、单项选择题（从下列各题四个备选答案中选出一个正确答案 ，并将其代号

28、写在答题纸相应位置处。 答案错选或未选者，该题不得分。每小题2分,共16分。）1.在使用MsgBox函数时，一定要给的参数是 。A.titleB.promptC.butt onD.以上皆非2. 当参数指定为传址调用时，调用者能够利用下面的 符号括住参数， 强迫该参数的传递变成传值调用。A、 B.()c.3.类中利用Dim所声明的变量为 A.PrivateB.PublicC.ProtectedD.Shared4.要让继承的类也能使用的变量，必须以 关键字声明。A.PrivateB.DimC.ProtectedD.Used5.当类中的函数以 MustOverride声明时，类必须以 关键字声明A.

29、NoIn heritableB.OverridableC.MustInheritD.Overrides6.模块文件存储时，它的扩展名是 。A.mdlB.modC.vbD.abs7.在StreamReader类中共定义了四种读取方式，其中从当前流中读取一行字符并将数据作为字符串返回的是 A.ReadB.ReadLineC.ReadBlockD.ReadtoEnd8.以下 的级别能够使用Static语句A.过程级B.模块级C.类级D.命名空间七、阅读程序，根据要求回答问题。(每小题每5分，共20分)1.分析下列程序的运行结果，说明该程序的功能，并画出Windows窗体界 面。Imports Sys

30、tem.Wi ndows.FormsImports System.Drawi ngModule Module1Dim frm1 As New Form()Dim Mdifrm1 As New Form()Dim Mdifrm2 As New Form()WithEve nts btn1 As New Butt onSub Mai n()资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。 frm1.IsMdiContainer = True btn1.Size = New Size(0, 40) btn1.Text = 子窗体水平排列 btn1.Dock = DockStyle.Top frm1.Controls.AddRange(New System.Windows.Forms.Control() btn1)Mdifrm1.MdiParent = frm1Mdifrm2.Text = MDI 子窗体