面向?qū)ο蟪绦蛟O(shè)計(jì)(VB)

1、江西財(cái)經(jīng)大學(xué)考試試卷試卷代碼： 03694A 卷授課課時(shí)： 80課程名稱： 面向?qū)ο蟪绦蛟O(shè)計(jì)（ VB）適用對(duì)象：選課班一、填空題（每空 1 分，共 16 分）1. 構(gòu)造函數(shù)和析構(gòu)函數(shù)的意義分別是和。2. 命令窗口用于在集成開發(fā)環(huán)境中發(fā)出命令或調(diào)試和計(jì)算表達(dá)式，它有和兩種模式。3.ReDim 語句重定義數(shù)組大小時(shí)，缺省情況下原數(shù)組中的存儲(chǔ)的數(shù)據(jù)會(huì)丟失，但可以使用關(guān)鍵字來保證原數(shù)組中的數(shù)據(jù)能保留下來。4.CLR 的中文含義是。5. 為了方便用戶操作， VS.NET 系統(tǒng)在 FileDialog 的基礎(chǔ)上，系統(tǒng)已派生了和文件對(duì)話框類。6. 過程為應(yīng)用程序的啟動(dòng)點(diǎn)，也就是運(yùn)行代碼時(shí)最優(yōu)先訪問的函數(shù)。7

2、. 語句允許用戶直接使用在其他命名空間中定義的類及類型，而無需使用限定引用。8. 窗體是繼承 .NET 類庫中的類。9. 類提供訪問文件的方法，包括標(biāo)準(zhǔn)輸入、輸出和錯(cuò)誤設(shè)備。10. 要進(jìn)行二進(jìn)制文件存取，必須創(chuàng)建與對(duì)象。11. 在任何圖形繪制之前，一定要先用類創(chuàng)建一個(gè)對(duì)象。12. 對(duì)象是 DataSet 對(duì)象和數(shù)據(jù)源之間的橋梁。二、單項(xiàng)選擇題 （從下列各題四個(gè)備選答案中選出一個(gè)正確答案，并將其代號(hào)寫在答題紙相應(yīng)位置處。答案錯(cuò)選或未選者，該題不得分。每小題2 分，共 16 分。）1. 以下關(guān)于靜態(tài)成員正確的說法是A 靜態(tài)成員可以不用Static修飾符修飾B 靜態(tài)成員只能用類名訪問C靜態(tài)成員和非靜

3、態(tài)成員不能同時(shí)在類中定義D靜態(tài)成員可以被類的實(shí)例調(diào)用的工程文件是以擴(kuò)展名來保存。A.slnB.vbC. .vbprojD.sou3. 在類視圖窗口以結(jié)構(gòu)顯示當(dāng)前工程中的所有類。A 樹狀結(jié)構(gòu)B 下拉列表C 菜單D 表1/214. 以下不是數(shù)據(jù)提供程序所提供的四個(gè)核心對(duì)象。AConnectionBDataReaderC ParserDDataAdapter5. 有關(guān)繼承下列說法不正確的是A 所有類缺省都是可繼承的，除非在類定義時(shí)使用 NotInheritable 關(guān)鍵字修飾。B 在 VB.NET中，一個(gè)類的基類可能有多個(gè)。C為了防止基類中需要封裝保密的成員在派生類中被泄露出來，派生類定義的訪問權(quán)限

4、必須比其基類更為嚴(yán)格或者至少與之相同。D在 Visaul Basic .NET中，一個(gè)類的基類只能有一個(gè)。6在 VB.NET中，關(guān)于構(gòu)造函數(shù)的說法，下列說法不正確的是A 可以指定構(gòu)造函數(shù)的返回值B 構(gòu)造函數(shù)可以重載C構(gòu)造函數(shù)的過程可以帶有參數(shù)D 構(gòu)造函數(shù)的過程名一定是New7. 菜單控件支持事件。A ClickB MouseDownC KeyPressD Leave8.Err對(duì)象的屬性返回了錯(cuò)誤號(hào)A NumberB SourceCDescriptionDHlepContext三、閱讀程序，根據(jù)要求回答問題。（每小題每 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 =“讀狀態(tài)”“未保存”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 = "寫狀態(tài) "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. 指出下列程序的運(yùn)行結(jié)果，并說明該程序的功能。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. 分析下列程序的運(yùn)行結(jié)果，說明該

12、程序的功能。Public Class login#Region " Windows窗體設(shè)計(jì)器生成的 Code "系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅，在此處省略。#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("用戶名或密碼錯(cuò)誤！ ", MsgBoxStyle.Exclamation)ReturnEnd IfIf myTable Is Nothing ThenshowMsg("此用戶無任何權(quán)限！ ", MsgBoxStyle.Exclamation)ReturnEnd IfCatch ex As ExceptionExit SubEnd TryIf mydataset.Tables("manager").Rows.Count = 0 ThenshowMsg("用戶名或密碼錯(cuò)誤！ ", 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() 為權(quán)限設(shè)置方法，在此省略了。4. 指出下列程序的運(yùn)行結(jié)果，并說明該程序中使用了面向?qū)ο蠹夹g(shù)中的一個(gè)什么概念，它實(shí)現(xiàn)了一個(gè)什么功能。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 "系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅，在此處省略。#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. 簡(jiǎn)述 .NET 的特點(diǎn)。2. 舉例說明面向?qū)ο笳Z言支持三種特性的應(yīng)用。五、程序設(shè)計(jì)題 （第 1 小題 8 分，第 2、3 小題各 10 分，共 28 分）1. 編寫一個(gè)關(guān)于自己的結(jié)構(gòu)和類的程序。7/212.編寫一個(gè)我最喜愛的國(guó)產(chǎn)轎車評(píng)選程序。程序設(shè)計(jì)界面圖5-1 ，程序運(yùn)行界面如圖5-2所示

23、。程序運(yùn)行時(shí)，在ListBox1列表框中顯示所有參評(píng)轎車列表，單擊按鈕【>】用戶可以從中選擇一量轎車，對(duì)于選完后不滿意的轎車，還可以通過單擊按鈕【<】，移回到ListBox1 列表框中，還可選中 ListBox1 列表中所有轎車（通過單擊按鈕【 >>】實(shí)現(xiàn)）或?qū)?ListBox2 框中所全的工程全部移回至 ListBox1 框中（通過單擊按鈕【 <<】實(shí)現(xiàn)）。圖 5-1 程序設(shè)計(jì)界面5-2程序運(yùn)行界面3. 請(qǐng)按照以下（關(guān)于信息學(xué)院部分專業(yè)學(xué)生必修學(xué)習(xí)課程的情況）圖形的分析，制定每一個(gè)類所需要的數(shù)據(jù)成員與成員函數(shù)，編寫一個(gè)完整的程序，實(shí)現(xiàn)在控制臺(tái)方式下，按給出

24、的學(xué)生實(shí)例值（例如：王行江，20030138，計(jì)算機(jī)，打球；鐘明華，20030206，信管，跳舞）顯示信管專業(yè)與計(jì)算機(jī)專業(yè)學(xué)生相關(guān)類的成員值。Student （屬性： Name、No、BirthDate 、Profession 、Love）（方法： English 、 Cprogram ）InfoStudenCompStudenVB.NET ProgramElectroniccommerceC+ ProgramNumericallogic8/21江西財(cái)經(jīng)大學(xué)末考試試卷試卷代碼： 03694B卷課程名稱： 面向?qū)ο蟪绦蛟O(shè)計(jì)（VB）授課課時(shí)： 80適用對(duì)象：選課班二、填空題（每空 1 分，共 16

25、 分）1. 面向?qū)ο蠹夹g(shù)的主要特性表現(xiàn)在具有抽象化、和。2. 接口是對(duì)類的可用、和等做一個(gè)規(guī)范描述，并且可以用它作為一種類型來使用，但是它并不真正實(shí)現(xiàn)代碼，僅僅是一個(gè)描述。3.Visual Basic.NET默認(rèn)的析構(gòu)函數(shù)是。4. 在 VB.NET中，你可以通過類來操作文件夾和驅(qū)動(dòng)器。5. 在 VB.NET中，編譯時(shí)的多態(tài)性是通過實(shí)現(xiàn)，運(yùn)行時(shí)的多態(tài)性是通過繼承和來實(shí)現(xiàn)的。6. 說明以下在類所聲明變量的差異。Shared i As Integer Protected x As SinglePublic y As Single7. 要在已知的工程中添加類或 Windows窗體，可以通過選取菜單中的

26、來實(shí)現(xiàn)。8. 要連接 SQL Server7.0 以上版本的數(shù)據(jù)庫時(shí)，需要使用對(duì)象。9. 在 System.Drawing 命名空間中， 類是繪制圖形的最核心的類。六、單項(xiàng)選擇題 （從下列各題四個(gè)備選答案中選出一個(gè)正確答案，并將其代號(hào)寫在答題紙相應(yīng)位置處。答案錯(cuò)選或未選者，該題不得分。每小題2 分，共 16 分。）1. 在使用 MsgBox函數(shù)時(shí)，一定要給的參數(shù)是 。AtitleBprompt C、button D以上皆非2. 當(dāng)參數(shù)指定為傳址調(diào)用時(shí)，調(diào)用者可以利用下面的符號(hào)括住參數(shù)，強(qiáng)迫該參數(shù)的傳遞變成傳值調(diào)用。A、< >B( )C D“”3. 類中利用 Dim所聲明的變量為A.

27、 PrivateB. PublicC. ProtectedD. Shared4. 要讓繼承的類也能使用的變量，必須以關(guān)鍵字聲明。9/21A. PrivateB. DimC. ProtectedD. Used5. 當(dāng)類中的函數(shù)以 MustOverride 聲明時(shí)，類必須以 關(guān)鍵字聲明。A NoInheritable B OverridableC MustInheritD Overrides6. 模塊文件存儲(chǔ)時(shí)，它的擴(kuò)展名是。A .mdl B .mod C .vb D .abs7. 在 StreamReader 類中共定義了四種讀取方式，其中從當(dāng)前流中讀取一行字符并將數(shù)據(jù)作為字符串返回的是A Re

28、adB ReadLineC ReadBlockDReadtoEnd8. 以下的級(jí)別可以使用 Static 語句A 過程級(jí)B 模塊級(jí)C 類級(jí)D命名空間七、閱讀程序，根據(jù)要求回答問題。（每小題每 5 分，共 20 分）1.分析下列程序的運(yùn)行結(jié)果，說明該程序的功能，并畫出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. 指出下列程序的運(yùn)行結(jié)果，并說明該程序的功能。Imports System.IO Class dirMethodSub create(ByVal path As String)If Directory.Exists(path) ThenConsole.WriteLine("文件夾已經(jīng)存在 !")ElseDirectory.CreateDirectory(path)If D

31、irectory.Exists(path) ThenConsole.WriteLine("文件夾創(chuàng)建成功End IfEnd IfEnd SubEnd ClassModule Module1Sub Main()Dim obj_dir As New dirMethod()Dim str_path As StringConsole.Write("請(qǐng)輸入文件夾名稱 : ")str_path = Console.ReadLine()obj_dir.create(str_path)End SubEnd Module!")假設(shè)輸入一個(gè)剛才已建立的文件夾：d:abc3.

32、分析下列程序的結(jié)果，說明該程序的功能（假設(shè)該程序的文件名是序運(yùn)行時(shí)的 Windows窗體層次結(jié)構(gòu)圖。ex3.vb ），并畫出程Public Class Form1#Region " Windows Form Designer generated code " 系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅，在此處省略。#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;關(guān)閉 ")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("您剛單擊了新建選項(xiàng) ")End SubPrivate Sub myMenuItemExit_Click(ByVal sender As Sys

35、tem.Object, ByVal e AsSystem.EventArgs)Close()End SubEnd Class4. 分析下列程序的運(yùn)行結(jié)果，并說明該程序中關(guān)鍵字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 的區(qū)別。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(“對(duì)象一Who “ )obj1.Who()Console.WriteLine(

37、“對(duì)象二Who “）obj2.Who()Console.WriteLine(“對(duì)象二Callwho “）obj2.Callwho()End SubEnd Module八、問答題（每小題 10 分，共 20 分）1. 簡(jiǎn)述 .NET Framework 的組成及其功能。2. 簡(jiǎn)述 ADO.NET模型組成和框架結(jié)構(gòu)。九、程序設(shè)計(jì)題 （第 1 小題 8 分，第 2 、3 小題各為 10 分，共 28 分）1. 編程實(shí)現(xiàn)窗體的繼承與應(yīng)用。2. 試采用文本移動(dòng)編程來模擬走馬燈。其中文本左右移動(dòng)的速度快慢，可通過水平滾動(dòng)條滑塊的移動(dòng)來調(diào)節(jié)。當(dāng)滑卡塊移至最左邊時(shí)，走馬燈移動(dòng)最慢，而當(dāng)滑塊移至最右邊時(shí)，走馬燈

38、移動(dòng)的最快。圖5-1窗體界面圖5-2程序運(yùn)行界面3. 創(chuàng)建名為 Math2D的類，它具有重載方法 Area，如果把單個(gè)參數(shù)傳遞給 Area，則認(rèn)為它是圓的半徑，它返回圓的面積（r 2）；如果向 Area 傳遞兩個(gè)參數(shù)，則認(rèn)為它們是三角形的底（ b）和高（ h），它將返回這個(gè)三角形的面積（bh/2 ）。請(qǐng)從 Math2D 派生一個(gè)新類Math3D，并重寫 Area 方法的兩個(gè)版本，以處理三維對(duì)象。如果向r 2Math3D 中的 Area 方法傳遞一個(gè)參數(shù)，則認(rèn)為它是球的半徑，它將返回球的表面積（4）。如果向 Math3D 中的13/21Area方法傳遞兩個(gè)參數(shù)，則認(rèn)為它們是圓錐的底部半徑（r ）

39、和邊線長(zhǎng)度（l ，頂部到底），它將返回圓錐的表面積（r l ）。通過上述類及其成員函數(shù)的定義，試編寫一個(gè)完整的程序，實(shí)現(xiàn)在工作臺(tái)方式下，當(dāng) r=h=l=2.5 ，b=3.8 時(shí)，分別調(diào)用過程輸出顯示這四種情況下的面積求算值。江西財(cái)經(jīng)大學(xué)期末考試試卷試卷代碼： 03694C 卷授課課時(shí)： 80課程名稱： 面向?qū)ο蟪绦蛟O(shè)計(jì)（ VB）適用對(duì)象：選課班三、填空題（每空 1 分，共 16 分）1. 對(duì)象的特征稱 ，對(duì)象能執(zhí)行的操作稱 ，對(duì)象能識(shí)別的操作稱為 。類中的五個(gè)訪問限定符為Privtae 、Public 、Shared、 和 。3. 當(dāng)調(diào)用的參數(shù)個(gè)數(shù)不確定，而且類型一致時(shí)，我們可以使用讓過程統(tǒng)一

40、接收這些參數(shù)。4.在.NET 中所有的異常都派生于類。5.窗體是繼承 .NET 類庫中的 類。6.在 VB.NET 的類中用戶自定義事件時(shí)，一般是在類中使用語句聲明一個(gè)事件，再在類的某個(gè)方法中，使用 語句激發(fā)事件。7.類提供創(chuàng)建、復(fù)制、刪除、移動(dòng)和打開文件的實(shí)例方法，并且?guī)椭鷦?chuàng)建FileStream 對(duì)象。要實(shí)現(xiàn)文本文件的讀寫，一般使用類和 類。8. 命名空間是涉及輸入，輸出設(shè)備的類庫集合。包括了所有進(jìn)行字符串、數(shù)據(jù)、文件操作的類庫。9. 在任何圖形繪制之前，一定要先用 類創(chuàng)建一個(gè)對(duì)象。10. 對(duì)象是 ADO.NET的核心，是數(shù)據(jù)的內(nèi)存駐留表示形式，無論數(shù)據(jù)源是什么，它都會(huì)提供一致的關(guān)系編程模

41、型。二、選擇題 （從下列各題四個(gè)備選答案中選出一個(gè)正確答案，并將其代號(hào)寫在答題紙相應(yīng)位置處。答案錯(cuò)選或未選者，該題不得分。每小題 2 分，共 16 分。）1.NET 應(yīng)用程序第二次執(zhí)行時(shí)，不需要在編譯的原因是。A已經(jīng)產(chǎn)生執(zhí)行文件BCache 的機(jī)制C通用語言規(guī)范本身D以上皆非2. 在.NET 的設(shè)計(jì)中，工程是由管理。A 幫助B 工程本身C 類庫D 解決方案14/213. 非共享成員的訪問只能使用的實(shí)例對(duì)象。A 模塊B 命名空間C 類D 以上皆是4 Select Case的 Case 后面，下面是正確的范圍條件。A1 to 5B5 to 1C1:3 to 6DIs>60:86 to 905

42、使用在 ForNext 的循環(huán)控制變量可以是數(shù)據(jù)類型。A LongB IntegerC DoubleD 以上皆可6. . 要顯示 VB.NET的標(biāo)準(zhǔn)對(duì)話框，需要調(diào)用的方法A MessageBox.ShowB MsgBoxC InputBoxD ShowDialog7. 若要把窗體設(shè)置為 MDI父窗體，應(yīng)該把它的屬性設(shè)置為 Ture。A MdiChildrenB IsMdiContainer C MdiParent D IsMdiChild8. 如果進(jìn)行二進(jìn)制讀文件，應(yīng)該實(shí)例化。A BinaryReader B BinaryWriter C StreamReader D StreamWriter

43、三、閱讀程序，根據(jù)各題的要求回答問題。（每題小題 5 分，共 20 分）1. 分析下列程序的運(yùn)行結(jié)果，說明該程序的功能。Public Class login#Region " Windows窗體設(shè)計(jì)器生成的 Code "系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅，在此處省略。#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("用戶名或密碼錯(cuò)誤！ ", MsgBoxStyle.Exclamation)ReturnEnd IfIf myTable Is Nothing ThenshowMsg("此用戶無任何權(quán)限！ ", MsgBoxStyle.Exclamation)ReturnEnd IfCatch ex As ExceptionExit SubEnd TryIf mydataset.Tables("manager").Row

47、s.Count = 0 ThenshowMsg("用戶名或密碼錯(cuò)誤！ ", 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() 為權(quán)限設(shè)置方法，在此省略了。2 給出下列程序的運(yùn)行結(jié)果，并說明該程序的功能。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("數(shù)據(jù)類型錯(cuò)誤 ")Catch e2 As OverflowExceptionConsole.WriteLine("溢出錯(cuò)誤 ")17/21Catch e3 As ExceptionConsole.WriteLine("其他錯(cuò)誤 ")End TryLoopCo

50、nsole.WriteLine(n & "! = " & f)Console.ReadLine()End SubEnd Module3. 分析下列程序，說明該程序的功能，并用層次圖表示。Public Class Form1#Region " Windows Form Designer generated code " 系統(tǒng)自動(dòng)創(chuàng)建的程序，為了節(jié)省篇幅，在此處省略。 #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("復(fù)制 ")MenuItem3 = New MenuItem("粘貼 ")MenuItem1.Sho