江西财经大学考试试卷试卷代码：03694A 卷授课课时：80课程名称：面向对象程序设计（VB）适用对象：选课班一、填空题（每空1分，共16分）1. 构造函数和析构函数的意义分别是_________ 和 ______ 。
2. 命令窗口用于在集成开发环境中发出命令或调试和计算表示式，它有和______ 两种模式。
3. ReDim语句重定义数组大小时，缺省情况下原数组中的存储的数据会丢失，但能够使用关键字 _______ 来保证原数组中的数据能保留下来。
4. CLR的中文含义是 _______ 。
5. 为了方便用户操作，系统在FileDialog 的基础上，系统已派生了和_____ 文件对话框类。
6. ______ 过程为应用程序的启动点，也就是运行代码时最优先访问的函数。
7. ______ 语句允许用户直接使用在其它命名空间中定义的类及类型，而无需使用限定引用。
8. 窗体是继承.NET类库中的_______ 类。
9. ______ 类提供访问文件的方法，包括标准输入、输出和错误设备。
10. 要进行二进制文件存取，必须创立_________ 与 _______ 对象。
11. 在任何图形绘制之前，一定要先用_________ 类创立一个对象。
12. ______ 对象是DataSet对象和数据源之间的桥梁。
二、单项选择题（从下列各题四个备选答案中选出一个正确答案，并将其代号写在答题纸相应位置处。
答案错选或未选者，该题不得分。
每小题2分,共16分。
）1. 以下关于静态成员正确的说法是________A. 静态成员能够不用Static修饰符修饰B. 静态成员只能用类名访问C. 静态成员和非静态成员不能同时在类中定义D. 静态成员能够被类的实例调用2. 的项目文件是以 ______ 扩展名来保存。
A. .sinB. .vbC. .vbprojD. .sou3. 在类视图窗口以_______ 结构显示当前项目中的所有类。
A. 树状结构B. 下拉列表C. 菜单D. 表4. 以下_______ 不是数据提供程序所提供的四个核心对象。
A. Conn ecti onB. DataReaderC. ParserD. DataAdapter5. 有关继承下列说法不正确的是________A. 所有类缺省都是可继承的，除非在类定义时使用Notlnheritable 关键字修饰。
B. 在中，一个类的基类可能有多个。
C. 为了防止基类中需要封装保密的成员在派生类中被泄露出来，派生类定义的访问权限必须比其基类更为严格或者至少与之相同。
D. 在Visaul Basic .NET 中，一个类的基类只能有一个。
6. 在中，关于构造函数的说法，下列说法不正确的是___________A. 能够指定构造函数的返回值B. 构造函数能够重载C. 构造函数的过程能够带有参数D. 构造函数的过程名一定是New7.菜单控件支持事件。
A. ClickB. MouseDow nC. KeyPressD. Leave8.Err 对象的属性返回了错误号A. NumberB. SourceC. 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 ckOpenFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 格式文件(*RTF)|*RTF"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.Title = " 打开文件"OpenFileDialog1.InitialDirectory = Application.StartupPathOpenFileDialog1.RestoreDirectory = TrueOpenFileDialog1.ShowDialog()Fname = OpenFileDialog1.FileNameIf (Fname <> "") ThenIf (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.LoadFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTextBox1.LoadFile(Fname,End IfRichTextBoxStreamType.RichText)资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
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.ClickSaveFileDialog1.Filter = " 文本文件(*.txt)|*.txt|RTF 件(*RTF)|*RTF"格式文SaveFileDialog1.FilterIndex = 1SaveFileDialog1.Title = " 保存文件"SaveFileDialog1.InitialDirectory = Application.StartupPathSaveFileDialog1.RestoreDirectory = TrueSaveFileDialog1.ShowDialog()Fname = SaveFileDialog1.FileNameIf (Fname <> "") ThenIf (OpenFileDialog1.FilterIndex = 1) ThenRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.PlainText)ElseRichTextBox1.SaveFile(Fname,RichTextBoxStreamType.RichText)End If资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。
StatusBar1.Panels(0).Text = " 写状态"StatusBar1.Panels(1).Text = " 已保存"End IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.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.TextChanged RichTextBox1.Modified=falseIf RichTextBox1.Modified ThenStatusBar1.Panels(1).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.MiddleCenterlabel1.BorderStyle = BorderStyle.Fixed3D frm1.Controls.AddRange(NewSystem.Windows.Forms.Control(){label1})Application.Run(frm1)End SubPublic Sub frm1_MouseMove(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles frm1.MouseMovelabel1.Location = New Point(e.X, e.Y - 15) label1.Text = "X=" & e.X & ",Y=" & e.Y End 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.Object, ByVal e As System.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 As DataTableDim uname As StringDim psw As Stringuname = Trim(txtUserName.Text)psw = Trim(txtPassWord.Text)Trystrsql = "SELECT * FROM Operator WHERE Name= '" + uname资料内容仅供您学习参考，如有不当或者侵权，请联系改正或者删除。