2022年面向对象程序设计3.docx

精选学习资料 - - - - - - - - - 江西财经高校考试试卷试卷代码： 03694A 卷 授课课时： 80 一、课程名称： 面对对象程序设计（ VB）适用对象：选课班填空题 （每空 1 分,共 16 分）1. 构造函数和析构函数的意义分别是和；2. 命令窗口用于在集成开发环境中发出命令或调试和运算表达式,它有和两种模式；3.ReDim 语句重定义数组大小时,缺省情形下原数组中的储备的数据会丢失,但可以使用关 键字来保证原数组中的数据能保留下来；4.CLR的中文含义是；5. 为了便利用户操作,VS.NET 系统在 FileDialog的基础上,系统已派生了和文件对话框类；6. 过程为应用程序的启动点,也就是运行代码时最优先拜访的函数；7. 语句答应用户直接使用在其他命名空间中定义的类及类型,而无需使用限定引用；8. 窗体是继承 .NET 类库中的类；9. 类供应拜访文件的方法,包括标准输入、输出和错误设备；10. 要进行二进制文件存取,必需创建与对象；11. 在任何图形绘制之前,肯定要先用类创建一个对象；12. 对象是 DataSet 对象和数据源之间的桥梁；二、单项挑选题 （从以下各题四个备选答案中选出一个正确答案,并将其代号写在答题纸相应位置处；答案错选或未选者,该题不得分；每道题 1. 以下关于静态成员正确的说法是A 静态成员可以不用Static修饰符修饰B 静态成员只能用类名拜访 C静态成员和非静态成员不能同时在类中定义 D静态成员可以被类的实例调用 2.VB.NET的工程文件是以 扩展名来储存；A.sln B.vb C. .vbproj D.sou 3. 在类视图窗口以结构显示当前工程中的全部类；A 树状结构 B 下拉列表 C 菜单 D 表1 / 21 2 分,共 16 分；）名师归纳总结 - - - - - - -第 1 页,共 21 页精选学习资料 - - - - - - - - - 4. 以下不是数据供应程序所供应的四个核心对象；A Connection B DataReader C Parser D DataAdapter 5. 有关继承以下说法不正确选项A 全部类缺省都是可继承的,除非在类定义时使用NotInheritable关键字修饰；B 在 VB.NET中,一个类的基类可能有多个；C为了防止基类中需要封装保密的成员在派生类中被泄露出来,派生类定义的拜访权限 必需比其基类更为严格或者至少与之相同；D在 Visaul Basic .NET 中,一个类的基类只能有一个；6在 VB.NET中,关于构造函数的说法,以下说法不正确选项 A 可以指定构造函数的返回值 B 构造函数可以重载 C 构造函数的过程可以带有参数 D 构造函数的过程名肯定是 New 7. 菜单控件支持大事；A Click B MouseDown C KeyPress D Leave 8.Err 对象的属性返回了错误号 A Number B Source CDescription DHlepContext 三、阅读程序,依据要求回答疑题；（每道题每 5 分,共 20 分）1. 指出以下文件操作程序代码的功能,并画出Windows窗体的界面图；Pr i vat eSubBut t on1_Cl i ck ByValsenderAsSyst em. Obj ect ,ByValeAsSyst em. Event Ar gs Handl es But t on1. 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 2 / 21 名师归纳总结 - - - - - - -第 2 页,共 21 页精选学习资料 - - - - - - - - - If OpenFileDialog1.FilterIndex = 1 Then RichTextBox1.LoadFileFname, RichTextBoxStreamType.PlainText Else RichTextBox1.LoadFileFname, RichTextBoxStreamType.RichText End If StatusBar1.Panels0.Text = “ 读状态” StatusBar1.Panels1.Text = “ 未储存” End If End Sub Private Sub Button3_ClickByVal 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.SaveFileFname, RichTextBoxStreamType.PlainText Else RichTextBox1.SaveFileFname, RichTextBoxStreamType.RichText End If StatusBar1.Panels0.Text = "写状态 " 已储存 " StatusBar1.Panels1.Text = " End If End Sub Private Sub Timer1_TickByVal sender As System.Object, ByVal e As System.EventArgs Handles Timer1.Tick StatusBar1.Panels2.Text = DateTime.Now.ToString"T" End Sub Private Sub RichTextBox1_TextChangedByVal sender As System.Object, ByVal e As System.EventArgs Handles RichTextBox1.TextChanged RichTextBox1.Modified=false If RichTextBox1.Modified Then StatusBar1.Panels1.Text = " 未储存 " Else StatusBar1.Panels1.Text = “ 已储存”3 / 21 名师归纳总结 - - - - - - -第 3 页,共 21 页精选学习资料 - - - - - - - - - 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 Size80, 20 label1.BackColor = Color.Yellow label1.TextAlign = ContentAlignment.MiddleCenter label1.BorderStyle = BorderStyle.Fixed3D frm1.Controls.AddRangeNew System.Windows.Forms.Control label1 Application.Runfrm1 End Sub Public Sub frm1_MouseMoveByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs Handles frm1.MouseMove label1.Location = New Pointe.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_ClickByVal 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 4 / 21 名师归纳总结 - - - - - - -第 4 页,共 21 页精选学习资料 - - - - - - - - - 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 = TrimtxtUserName.Text psw = TrimtxtPassWord.Text Try strsql = "SELECT * FROM Operator WHERE Name= '" + uname + "' and Password= '" + psw + "'" mydataset = executeSelectQuerystrsql, "manager" strsql = "SELECT * FROM Authority WHERE Name='" & uname & "'" myTable = executeSelectQuerygettablestrsql 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.AddmyTable.Rowsi.Item"Permission" & "" Next Me.Close End If End Sub Private Sub login_ClosingByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs Handles MyBase.Closing mymdimain.setpower 5 / 21 名师归纳总结 - - - - - - -第 5 页,共 21 页精选学习资料 - - - - - - - - - End Sub Private Sub login_LoadByVal sender As System.Object, ByVal e As System.EventArgs Handles MyBase.Load PERMISSION = New ArrayList mymdimain.setpower End Sub Private Sub btnExit_ClickByVal 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 NewByVal 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 6 / 21 名师归纳总结 - - - - - - -第 6 页,共 21 页精选学习资料 - - - - - - - - - Public Sub NewByVal 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_ClickByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.Click Dim a, b As Double a = ValTextBox1.Text b = ValTextBox2.Text Dim Rect As New Rectanglea, b TextBox3.Text = CStrRect.GetPerim TextBox4.Text = CStrRect.GetArea End Sub Private Sub Button2_ClickByVal sender As System.Object, ByVal e As System.EventArgs Handles Button2.Click Dim r As Double r = ValTextBox5.Text Dim Cir As New Circler TextBox6.Text = CStrCir.GetPerim TextBox7.Text = CStrCir.GetArea End Sub End Class 四、问答题 （第 1 小题 8 分,第 2 小题 10 分,共 20 分）1. 简述.NET 的特点；2. 举例说明面对对象语言支持三种特性的应用；五、程序设计题 （第 1 小题 8 分,第 2、3 小题各 10 分,共 28 分）1. 编写一个关于自己的结构和类的程序；7 / 21 名师归纳总结 - - - - - - -第 7 页,共 21 页精选学习资料 - - - - - - - - - 2. 编写一个我最宠爱的国产轿车评比程序；程序设计界面图5-1 ,程序运行界面如图5-2所示；程序运行时,在 ListBox1 列表框中显示全部参评轿车列表,单击按钮【>】用户可以从中挑选一量轿车,对于选完后不中意的轿车,仍可以通过单击按钮【<】,移回到ListBox1 列表框中,仍可选中 ListBox1 列表中全部轿车（通过单击按钮【>>】实现）或将ListBox2 框中所全的工程全部移回至ListBox1 框中（通过单击按钮【 <<】实现）；图 5-1 程序设计界面 5-2 程序运行界面3. 请依据以下（关于信息学院部分专业同学必修学习课程的情形）图形的分析,制定每一个类所需要的数据成员与成员函数,编写一个完整的程序,实现在掌握台方式下,按给出的同学实例值（例如：王行江,20030138, 1985.10.25 ,运算机,打球；钟明华,20030206,1986.2.16 ,信管,跳舞）显示信管专业与运算机专业同学相关类的成员值；Student （属性： Name、No、BirthDate 、Profession 、Love）（方法： English 、Cprogram ） InfoStuden CompStudenVB.NET Program Electronic commerce C+ Program Numerical logic8 / 21 名师归纳总结 - - - - - - -第 8 页,共 21 页精选学习资料 - - - - - - - - - 江西财经高校末考试试卷试卷代码： 03694B卷 授课课时： 80 二、课程名称： 面对对象程序设计（ VB）适用对象：选课班填空题 （每空 1 分,共 16 分）1. 面对对象技术的主要特性表现在具有抽象化、和；2. 接口是对类的可用、和等做一个规范描述,并且可以用它作为一种类型来使用,但是它并不真正实现代码,仅仅是一个描述；3.Visual Basic.NET 默认的析构函数是；4. 在 VB.NET中,你可以通过类来操作文件夹和驱动器；5. 在 VB.NET中,编译时的多态性是通过实现,运行时的多态性是通过继承和 来实现的；6. 说明以下在类所声明变量的差异； Shared i As Integer Protected x As Single Public y As Single 7. 要在已知的工程中添加类或Windows窗体,可以通过选取菜单中的来实现；8. 要连接 SQL Server7.0 以上版本的数据库时,需要使用对象；9. 在 System.Drawing 命名空间中,类是绘制图形的最核心的类；六、单项挑选题 （从以下各题四个备选答案中选出一个正确答案,并将其代号写在答题纸相应位置处；答案错选或未选者,该题不得分；每道题 1. 在使用 MsgBox函数时,肯定要给的参数是；Atitle Bprompt C、button 2 分,共 16 分；）D以上皆非 2. 当参数指定为传址调用时,调用者可以利用下面的符号括住参数,强迫该参数的传递变成传值调用；A、< > B C D“ ”3. 类中利用 Dim所声明的变量为 A. Private B. Public C. Protected D. Shared 4. 要让继承的类也能使用的变量,必需以关键字声明；9 / 21 名师归纳总结 - - - - - - -第 9 页,共 21 页精选学习资料 - - - - - - - - - A. Private B. Dim C. Protected D. Used 5. 当类中的函数以 MustOverride 声明时,类必需以 A NoInheritable 关键字声明；B Overridable C MustInherit DOverrides 6. 模块文件储备时,它的扩展名是；A.mdl B.mod C .vb D.abs 7. 在 StreamReader 类中共定义了四种读取方式,其中从当前流中读取一行字符并将数据作 为字符串返回的是 A Read B ReadLine C ReadBlock DReadtoEnd 8. 以下的级别可以使用Static语句A 过程级 B 模块级 C 类级 D命名空间七、阅读程序,依据要求回答疑题；（每道题每 5 分,共 20 分）1. 分析以下程序的运行结果,说明该程序的功能,并画出 Windows窗体界面；Imports System.Windows.Forms Imports System.Drawing Module Module1 Dim frm1 As New Form Dim Mdifrm1 As New Form Dim Mdifrm2 As New Form WithEvents btn1 As New Button Sub Main frm1.IsMdiContainer = True btn1.Size = New Size0, 40 btn1.Text = " 子窗体水平排列 " btn1.Dock = DockStyle.Top frm1.Controls.AddRangeNew System.Windows.Forms.Control btn1 Mdifrm1.MdiParent = frm1 Mdifrm2.Text = "MDI子窗体二 " 个子窗体 " Mdifrm2.MdiParent = frm1 frm1.Text = "目前共有 " & frm1.MdiChildren.Length & "10 / 21 名师归纳总结 - - - - - - -第 10 页,共 21 页精选学习资料 - - - - - - - - - Mdifrm1.Show Mdifrm2.Show Application.Runfrm1 End Sub Public Sub btn1_ClickByVal sender As Object, ByVal e As System.EventArgs Handles btn1.Click frm1.LayoutMdiMdiLayout.TileHorizontal End Sub End Module 2. 指出以下程序的运行结果,并说明该程序的功能；Imports System.IO Class dirMethod Sub createByVal path As String If Directory.Existspath Then Console.WriteLine"文件夹已经存在 ." Else Directory.CreateDirectorypath If Directory.Existspath Then Console.WriteLine" 文件夹创建胜利 ." End If End If End Sub End Class Module Module1 Sub Main Dim obj_dir As New dirMethod Dim str_path As String Console.Write" 请输入文件夹名称 : " str_path = Console.ReadLine obj_dir.createstr_path End Sub End Module 假设输入一个刚才已建立的文件夹：d:abc 3. 分析以下程序的结果,说明该程序的功能（假设该程序的文件名是 ex3.vb ）,并画出程 序运行时的 Windows窗体层次结构图；Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code " 系统自动创建的程序,为了节约篇幅,在此处省略；#End Region Private WithEvents MainMenu1 As New MainMenu Private WithEvents MenuItem1, MenuItem2, MenuItem3, MenuItem4, MenuItem5 As MenuItem Private Sub Form1_LoadByVal sender As System.Object, ByVal e As 11 / 21 名师归纳总结 - - - - - - -第 11 页,共 21 页精选学习资料 - - - - - - - - - System.EventArgs Handles MyBase.Load MenuItem1 = New MenuItem" MenuItem2 = New MenuItem" MenuItem3 = New MenuItem" MenuItem4 = New MenuItem"-" MenuItem5 = New MenuItem"文件 " 编辑 " 新建 " 关闭 " MainMenu1.MenuItems.AddMenuItem1 MainMenu1.MenuItems.AddMenuItem2 MenuItem1.MenuItems.AddMenuItem3 MenuItem1.MenuItems.AddMenuItem4 MenuItem1.MenuItems.AddMenuItem5 MenuItem3.Shortcut = Shortcut.Alt0 MenuItem5.Shortcut = Shortcut.Alt1 Me.Menu = MainMenu1 End Sub Private Sub MenuItem3_ClickByVal sender As Object, ByVal e As System.EventArgs Handles MenuItem3.Click MsgBox" End Sub 您刚单击了新建选项 " Private Sub myMenuItemExit_ClickByVal sender As System.Object, ByVal e As System.EventArgs Close End Sub End Class 4. 分析以下程序的运行结果,并说明该程序中关键字 Class cls1 Public Overridable Sub WhichOne MyBase与 MyClass 的区分； Console.WritrLine“ 来自基类的方法；” End Sub Public Overridable Sub Who WhichOne MyClass.WhichOne End Sub End Class Class cls2 Inherits cls1 Public Overrides Sub WhichOne Console.WriteLine“ 来自派生类的方法；” End Sub Public Overrides Sub Who WhichOne MyBase.WhichOne End Sub Public Sub Callwho MyClass.Who 12 / 21 名师归纳总结 - - - - - - -第 12 页,共 21 页精选学习资料 - - - - - - - - - MyBase.Who End Sub End Class Module Module1 Sub Main Dim obj1 As New cls1 Dim obj2 As New cls2 Console.WriteLine obj1.Who Console.WriteLine“ 对象一 Who “ “ 对象二 Who “ ） obj2.Who Console.WriteLine“ 对象二 Callwho “ ） obj2.Callwho End Sub End Module 八、问答题 （每道题 10 分,共 20 分）1. 简述 .NET Framework 的组成及其功能；2. 简述 ADO.NET模型组成和框架结构；九