面向对象程序设计VB.doc
《面向对象程序设计VB.doc》由会员分享,可在线阅读,更多相关《面向对象程序设计VB.doc(37页珍藏版)》请在咨信网上搜索。
1、江西财经大学考试试卷试卷代码: 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 静态成员只能
3、用类名访问C静态成员和非静态成员不能同时在类中定义D静态成员能够被类的实例调用2.VB.NET的项目文件是以 扩展名来保存。A.sln B.vb C. .vbproj D.sou3.在类视图窗口以 结构显示当前项目中的所有类。A 树状结构B 下拉列表C 菜单D 表4.以下 不是数据提供程序所提供的四个核心对象。A ConnectionB DataReaderC ParserD DataAdapter5.有关继承下列说法不正确的是 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分
5、) 1.指出以下文件操作程序代码的功能, 并画出Windows窗体的界面图。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.Filter = 文本文件(*.txt)|*.txt|RTF格式文件(*.RTF)|*.RTF OpenFileDialog1.FilterIndex = 1 OpenFileDialog1.Title = 打开文件 OpenFileDialog1.InitialDirect
6、ory = Application.StartupPath OpenFileDialog1.RestoreDirectory = True OpenFileDialog1.ShowDialog() Fname = OpenFileDialog1.FileNameIf (Fname ) Then If (OpenFileDialog1.FilterIndex = 1) Then RichTextBox1.LoadFile(Fname, RichTextBoxStreamType.PlainText) Else RichTextBox1.LoadFile(Fname, RichTextBoxStr
7、eamType.RichText) End If 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.Click SaveFileDialog1.Filter = 文本文件(*.txt)|*.txt|RTF格式文件(*.RTF)|*.RTF SaveFileDialog1.Filter
8、Index = 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, RichTextBoxS
9、treamType.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).Te
10、xt = 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 StatusBar1.Panels(1).Text = ”已保存” Ric
11、hTextBox1.Modified=false End If End Sub2.指出下列程序的运行结果, 并说明该程序的功能。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 f
12、rm1.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 Su
13、bEnd Module3. 分析下列程序的运行结果, 说明该程序的功能。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.T
14、ext.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(
15、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 T
16、hen 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 GlobalVariabl
17、e.PERMISSION = New ArrayList For i = 0 To myTable.Rows.Count - 1GlobalVariable.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 System.ComponentModel.CancelEventArgs) Handles MyBase.Closing mymdimain.setpo
18、wer() 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 SubE
19、nd Class其中: setpower()为权限设置方法, 在此省略了。4.指出下列程序的运行结果, 并说明该程序中使用了面向对象技术中的一个什么概念, 它实现了一个什么功能。Public Class ShapePublic Overridable Function GetArea() As Double Return (0) End Function Public Overridable Function GetPerim() As Double Return (0) End FunctionEnd ClassClass Rectangle Inherits Shape Public Wi
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 面向 对象 程序设计 VB
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【a199****6536】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【a199****6536】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。