面向?qū)ο蟪绦蛟O計VB

資料內(nèi)容僅供您學習參考，如有不當或者侵權，請聯(lián)系改正或者刪除。江西財經(jīng)大學考試試卷試卷代碼:03694A卷授課課時:80課程名稱:面向?qū)ο蟪绦蛟O計(VB)適用對象:選課班填空題(每空1分,共16分)1.構造函數(shù)和析構函數(shù)的意義分別是和。2.命令窗口用于在集成開發(fā)環(huán)境中發(fā)出命令或調(diào)試和計算表示式,它有和兩種模式。3.ReDim語句重定義數(shù)組大小時,缺省情況下原數(shù)組中的存儲的數(shù)據(jù)會丟失,但能夠使用關鍵字來保證原數(shù)組中的數(shù)據(jù)能保留下來。4.CLR的中文含義是。5.為了方便用戶操作,VS.NET系統(tǒng)在FileDialog的基礎上,系統(tǒng)已派生了和文件對話框類。6.過程為應用程序的啟動點,也就是運行代碼時最優(yōu)先訪問的函數(shù)。7.語句允許用戶直接使用在其它命名空間中定義的類及類型,而無需使用限定引用。8.窗體是繼承.NET類庫中的類。9.類提供訪問文件的方法,包括標準輸入、輸出和錯誤設備。10.要進行二進制文件存取,必須創(chuàng)立與對象。11.在任何圖形繪制之前,一定要先用類創(chuàng)立一個對象。12.對象是DataSet對象和數(shù)據(jù)源之間的橋梁。單項選擇題(從下列各題四個備選答案中選出一個正確答案,并將其代號寫在答題紙相應位置處。答案錯選或未選者,該題不得分。每小題2分,共16分。)1.以下關于靜態(tài)成員正確的說法是靜態(tài)成員能夠不用Static修飾符修飾靜態(tài)成員只能用類名訪問C．靜態(tài)成員和非靜態(tài)成員不能同時在類中定義D．靜態(tài)成員能夠被類的實例調(diào)用2.VB.NET的項目文件是以擴展名來保存。A．.slnB．.vbC..vbprojD．.sou3.在類視圖窗口以結構顯示當前項目中的所有類。樹狀結構下拉列表菜單表4.以下不是數(shù)據(jù)提供程序所提供的四個核心對象。ConnectionDataReaderParserDataAdapter5.有關繼承下列說法不正確的是所有類缺省都是可繼承的,除非在類定義時使用NotInheritable關鍵字修飾。在VB.NET中,一個類的基類可能有多個。C．為了防止基類中需要封裝保密的成員在派生類中被泄露出來,派生類定義的訪問權限必須比其基類更為嚴格或者至少與之相同。D．在VisaulBasic.NET中,一個類的基類只能有一個。6．在VB.NET中,關于構造函數(shù)的說法,下列說法不正確的是能夠指定構造函數(shù)的返回值構造函數(shù)能夠重載構造函數(shù)的過程能夠帶有參數(shù)構造函數(shù)的過程名一定是New7.菜單控件支持事件。ClickMouseDownKeyPressLeave8.Err對象的屬性返回了錯誤號NumberSourceC．DescriptionD．HlepContext閱讀程序,根據(jù)要求回答問題。(每小題每5分,共20分)1.指出以下文件操作程序代碼的功能,并畫出Windows窗體的界面圖。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickOpenFileDialog1.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,RichTextBoxStreamType.RichText)EndIfStatusBar1.Panels(0).Text=”讀狀態(tài)”StatusBar1.Panels(1).Text=”未保存”EndIfEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.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)EndIfStatusBar1.Panels(0).Text="寫狀態(tài)"StatusBar1.Panels(1).Text="已保存"EndIfEndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickStatusBar1.Panels(2).Text=DateTime.Now.ToString("T")EndSubPrivateSubRichTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesRichTextBox1.TextChangedRichTextBox1.Modified=falseIfRichTextBox1.ModifiedThenStatusBar1.Panels(1).Text="未保存"ElseStatusBar1.Panels(1).Text=”已保存”RichTextBox1.Modified=falseEndIfEndSub2.指出下列程序的運行結果,并說明該程序的功能。ModuleModule1WithEventsfrm1AsNewForm()Dimlabel1AsNewLabel()SubMain()label1.Size=NewSize(80,20)label1.BackColor=Color.Yellowlabel1.TextAlign=ContentAlignment.MiddleCenterlabel1.BorderStyle=BorderStyle.Fixed3Dfrm1.Controls.AddRange(NewSystem.Windows.Forms.Control(){label1})Application.Run(frm1)EndSubPublicSubfrm1_MouseMove(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)Handlesfrm1.MouseMovelabel1.Location=NewPoint(e.X,e.Y-15)label1.Text="X="&e.X&",Y="&e.YEndSubEndModule3.分析下列程序的運行結果,說明該程序的功能。PublicClassloginInheritsSystem.Windows.Forms.Form#Region"Windows窗體設計器生成的Code"‘系統(tǒng)自動創(chuàng)立的程序,為了節(jié)省篇幅,在此處省略。#EndRegionDimmymdimainAsMainMDIPrivateSubbtnOk_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnOk.ClickIftxtUserName.Text.Trim=""ThenshowMsg("用戶名不許為空!")txtUserName.Focus()ExitSubEndIfIftxtPassWord.Text.Trim=""ThenshowMsg("密碼不許為空!")txtPassWord.Focus()ExitSubEndIfDimiAsIntegerDimstrsqlAsStringDimmydatasetAsNewDataSetDimmyTableAsDataTableDimunameAsStringDimpswAsStringuname=Trim(txtUserName.Text)psw=Trim(txtPassWord.Text)Trystrsql="SELECT*FROMOperatorWHEREName='"+uname+"'andPassword='"+psw+"'"mydataset=executeSelectQuery(strsql,"manager")strsql="SELECT*FROMAuthorityWHEREName='"&uname&"'"myTable=executeSelectQuerygettable(strsql)IfmydatasetIsNothingThenshowMsg("用戶名或密碼錯誤!",MsgBoxStyle.Exclamation)ReturnEndIfIfmyTableIsNothingThenshowMsg("此用戶無任何權限!",MsgBoxStyle.Exclamation)ReturnEndIfCatchexAsExceptionExitSubEndTryIfmydataset.Tables("manager").Rows.Count=0ThenshowMsg("用戶名或密碼錯誤!",MsgBoxStyle.Exclamation)ElseGlobalVariable.PERMISSION=NewArrayListFori=0TomyTable.Rows.Count-1GlobalVariable.PERMISSION.Add(myTable.Rows(i).Item("Permission")&"")NextMe.Close()EndIfEndSubPrivateSublogin_Closing(ByValsenderAsObject,ByValeAsSystem.ComponentModel.CancelEventArgs)HandlesMyBase.Closingmymdimain.setpower()EndSubPrivateSublogin_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadPERMISSION=NewArrayListmymdimain.setpower()EndSubPrivateSubbtnExit_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnExit.ClickMe.Close()EndSubEndClass其中:setpower()為權限設置方法,在此省略了。4.指出下列程序的運行結果,并說明該程序中使用了面向?qū)ο蠹夹g中的一個什么概念,它實現(xiàn)了一個什么功能。PublicClassShapePublicOverridableFunctionGetArea()AsDoubleReturn(0)EndFunctionPublicOverridableFunctionGetPerim()AsDoubleReturn(0)EndFunctionEndClassClassRectangleInheritsShapePublicWidthAsDoublePublicLengthAsDoublePublicSubNew(ByValaAsDouble,ByValbAsDouble)Width=a:Length=bEndSubPublicOverridesFunctionGetArea()AsDoubleReturn(Width*Length)EndFunctionPublicOverridesFunctionGetPerim()AsDoubleReturn(2*(Length+Width))EndFunctionEndClassClassCircleInheritsShapePublicRadiusAsDoublePublicSubNew(ByValrAsDouble)Radius=rEndSubPublicOverridesFunctionGetArea()AsDoubleReturn(Math.PI*Radius*Radius)EndFunctionPublicOverridesFunctionGetPerim()AsDoubleReturn(2*Math.PI*Radius)EndFunctionEndClassPublicClassForm1InheritsSystem.Windows.Forms.Form#Region"WindowsFormDesignergeneratedcode"‘系統(tǒng)自動創(chuàng)立的程序,為了節(jié)省篇幅,在此處省略。#EndRegionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDima,bAsDoublea=Val(TextBox1.Text)b=Val(TextBox2.Text)DimRectAsNewRectangle(a,b)TextBox3.Text=CStr(Rect.GetPerim())TextBox4.Text=CStr(Rect.GetArea())EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimrAsDoubler=Val(TextBox5.Text)DimCirAsNewCircle(r)TextBox6.Text=CStr(Cir.GetPerim())TextBox7.Text=CStr(Cir.GetArea())EndSubEndClass問答題(第1小題8分,第2小題10分,共20分)1.簡述.NET的特點。2.舉例說明面向?qū)ο笳Z言支持三種特性的應用。程序設計題(第1小題8分,第2、3小題各10分,共28分)1.編寫一個關于自己的結構和類的程序。2.編寫一個我最喜愛的國產(chǎn)轎車評選程序。程序設計界面圖5-1,程序運行界面如圖5-2所示。程序運行時,在ListBox1列表框中顯示所有參評轎車列表,單擊按鈕【>】用戶能夠從中選擇一量轎車,對于選完后不滿意的轎車,還能夠經(jīng)過單擊按鈕【<】,移回到ListBox1列表框中,還可選中ListBox1列表中所有轎車(經(jīng)過單擊按鈕【>>】實現(xiàn))或?qū)istBox2框中所全的項目全部移回至ListBox1框中(經(jīng)過單擊按鈕【<<】實現(xiàn))。圖5-1程序設計界面5-2程序運行界面3.請按照以下(關于信息學院部分專業(yè)學生必修學習課程的情況)圖形的分析,制定每一個類所需要的數(shù)據(jù)成員與成員函數(shù),編寫一個完整的程序,實現(xiàn)在控制臺方式下,按給出的學生實例值(例如:=1\*GB3①王行江,0138,1985.10.25,計算機,打球;=2\*GB3②鐘明華,0206,1986.2.16,信管,跳舞)顯示信管專業(yè)與計算機專業(yè)學生相關類的成員值。Student(屬性:Student(屬性:Name、No、BirthDate、Profession、Love)(方法:English、Cprogram)InfoStudenCompStudenVB.NETProgramElectroniccommerceC++ProgramNumericallogic江西財經(jīng)大學末考試試卷試卷代碼:03694B卷授課課時:80課程名稱:面向?qū)ο蟪绦蛟O計(VB)適用對象:選課班填空題(每空1分,共16分)1.面向?qū)ο蠹夹g的主要特性表現(xiàn)在具有抽象化、、和。2.接口是對類的可用、和等做一個規(guī)范描述,而且能夠用它作為一種類型來使用,可是它并不真正實現(xiàn)代碼,僅僅是一個描述。3.VisualBasic.NET默認的析構函數(shù)是。4.在VB.NET中,你能夠經(jīng)過類來操作文件夾和驅(qū)動器。5.在VB.NET中,編譯時的多態(tài)性是經(jīng)過實現(xiàn),運行時的多態(tài)性是經(jīng)過繼承和來實現(xiàn)的。6.說明以下在類所聲明變量的差異。SharediAsIntegerProtectedxAsSinglePublicyAsSingle7.要在已知的項目中添加類或Windows窗體,能夠經(jīng)過選取菜單中的來實現(xiàn)。8.要連接SQLServer7.0以上版本的數(shù)據(jù)庫時,需要使用對象。9.在System.Drawing命名空間中,類是繪制圖形的最核心的類。單項選擇題(從下列各題四個備選答案中選出一個正確答案,并將其代號寫在答題紙相應位置處。答案錯選或未選者,該題不得分。每小題2分,共16分。)1.在使用MsgBox函數(shù)時,一定要給的參數(shù)是。A．titleB．promptC、buttonD．以上皆非2.當參數(shù)指定為傳址調(diào)用時,調(diào)用者能夠利用下面的符號括住參數(shù),強迫該參數(shù)的傳遞變成傳值調(diào)用。A、<>B．()C．[]D．””3.類中利用Dim所聲明的變量為PrivatePublicProtectedShared4.要讓繼承的類也能使用的變量,必須以關鍵字聲明。PrivateDimProtectedUsed5.當類中的函數(shù)以MustOverride聲明時,類必須以關鍵字聲明。NoInheritableOverridableMustInheritOverrides6.模塊文件存儲時,它的擴展名是。.mdl.mod.vb.abs7.在StreamReader類中共定義了四種讀取方式,其中從當前流中讀取一行字符并將數(shù)據(jù)作為字符串返回的是ReadReadLineReadBlockD．ReadtoEnd8.以下的級別能夠使用Static語句過程級模塊級類級D．命名空間閱讀程序,根據(jù)要求回答問題。(每小題每5分,共20分)1.分析下列程序的運行結果,說明該程序的功能,并畫出Windows窗體界面。ImportsSystem.Windows.FormsImportsSystem.DrawingModuleModule1Dimfrm1AsNewForm()DimMdifrm1AsNewForm()DimMdifrm2AsNewForm()WithEventsbtn1AsNewButtonSubMain()frm1.IsMdiContainer=Truebtn1.Size=NewSize(0,40)btn1.Text="子窗體水平排列"btn1.Dock=DockStyle.Topfrm1.Controls.AddRange(NewSystem.Windows.Forms.Control(){btn1})Mdifrm1.MdiParent=frm1Mdifrm2.Text="MDI子窗體二"Mdifrm2.MdiParent=frm1frm1.Text="當前共有"&frm1.MdiChildren.Length&"個子窗體"Mdifrm1.Show()Mdifrm2.Show()Application.Run(frm1)EndSubPublicSubbtn1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesbtn1.Clickfrm1.LayoutMdi(MdiLayout.TileHorizontal)EndSubEndModule2.指出下列程序的運行結果,并說明該程序的功能。ImportsSystem.IOClassdirMethodSubcreate(ByValpathAsString)IfDirectory.Exists(path)ThenConsole.WriteLine("文件夾已經(jīng)存在!")ElseDirectory.CreateDirectory(path)IfDirectory.Exists(path)ThenConsole.WriteLine("文件夾創(chuàng)立成功!")EndIfEndIfEndSubEndClassModuleModule1SubMain()Dimobj_dirAsNewdirMethod()Dimstr_pathAsStringConsole.Write("請輸入文件夾名稱:")str_path=Console.ReadLine()obj_dir.create(str_path)EndSubEndModule假設輸入一個剛才已建立的文件夾:d:\abc3.分析下列程序的結果,說明該程序的功能(假設該程序的文件名是ex3.vb),并畫出程序運行時的Windows窗體層次結構圖。PublicClassForm1InheritsSystem.Windows.Forms.Form#Region"WindowsFormDesignergeneratedcode"‘系統(tǒng)自動創(chuàng)立的程序,為了節(jié)省篇幅,在此處省略。#EndRegionPrivateWithEventsMainMenu1AsNewMainMenu()PrivateWithEventsMenuItem1,MenuItem2,MenuItem3,MenuItem4,MenuItem5AsMenuItemPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMenuItem1=NewMenuItem("文件")MenuItem2=NewMenuItem("編輯")MenuItem3=NewMenuItem("新建")MenuItem4=NewMenuItem("-")MenuItem5=NewMenuItem("關閉")MainMenu1.MenuItems.Add(MenuItem1)MainMenu1.MenuItems.Add(MenuItem2)MenuItem1.MenuItems.Add(MenuItem3)MenuItem1.MenuItems.Add(MenuItem4)MenuItem1.MenuItems.Add(MenuItem5)MenuItem3.Shortcut=Shortcut.Alt0MenuItem5.Shortcut=Shortcut.Alt1Me.Menu=MainMenu1EndSubPrivateSubMenuItem3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMenuItem3.ClickMsgBox("您剛單擊了新建選項")EndSubPrivateSubmyMenuItemExit_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Close()EndSubEndClass4.分析下列程序的運行結果,并說明該程序中關鍵字MyBase與MyClass的區(qū)別。Classcls1PublicOverridableSubWhichOne()Console.WritrLine(”來自基類的方法?！?EndSubPublicOverridableSubWho()WhichOne()MyClass.WhichOne()EndSubEndClassClasscls2Inheritscls1PublicOverridesSubWhichOne()Console.WriteLine(”來自派生類的方法?！?EndSubPublicOverridesSubWho()WhichOne()MyBase.WhichOne()EndSubPublicSubCallwho()MyClass.Who()MyBase.Who()EndSubEndClassModuleModule1SubMain()Dimobj1AsNewcls1()Dimobj2AsNewcls2()Console.WriteLine(”對象一Who…”)obj1.Who()Console.WriteLine(”對象二Who…”)obj2.Who()Console.WriteLine(”對象二Callwho…”)obj2.Callwho()EndSubEndModule問答題(每小題10分,共20分)1.簡述.NETFramework的組成及其功能。2.簡述ADO.NET模型組成和框架結構。程序設計題(第1小題8分,第2、3小題各為10分,共28分)1.編程實現(xiàn)窗體的繼承與應用。2.試采用文本移動編程來模擬走馬燈。其中文本左右移動的速度快慢,可經(jīng)過水平滾動條滑塊的移動來調(diào)節(jié)。當滑卡塊移至最左邊時,走馬燈移動最慢,而當滑塊移至最右邊時,走馬燈移動的最快。圖5-1窗體界面圖5-2程序運行界面3.創(chuàng)立名為Math2D的類,它具有重載方法Area,如果把單個參數(shù)傳遞給Area,則認為它是圓的半徑,它返回圓的面積();如果向Area傳遞兩個參數(shù),則認為它們是三角形的底(b)和高(h),它將返回這個三角形的面積(bh/2)。請從Math2D派生一個新類Math3D,并重寫Area方法的兩個版本,以處理三維對象。如果向Math3D中的Area方法傳遞一個參數(shù),則認為它是球的半徑,它將返回球的表面積(4)。如果向Math3D中的Area方法傳遞兩個參數(shù),則認為它們是圓錐的底部半徑(r)和邊線長度(l,頂部到底),它將返回圓錐的表面積(l)。經(jīng)過上述類及其成員函數(shù)的定義,試編寫一個完整的程序,實現(xiàn)在工作臺方式下,當r=h=l=2.5,b=3.8時,分別調(diào)用過程輸出顯示這四種情況下的面積求算值。江西財經(jīng)大學期末考試試卷試卷代碼:03694C卷授課課時:80課程名稱:面向?qū)ο蟪绦蛟O計(VB)適用對象:選課班填空題(每空1分,共16分)1.對象的特征稱,對象能執(zhí)行的操作稱,對象能識別的操作稱為。2.VB.NET類中的五個訪問限定符為Privtae、Public、Shared、和。3.當調(diào)用的參數(shù)個數(shù)不確定,而且類型一致時,我們能夠使用讓過程統(tǒng)一接收這些參數(shù)。4.在.NET中所有的異常都派生于類。5.窗體是繼承.NET類庫中的類。6.在VB.NET的類中用戶自定義事件時,一般是在類中使用語句聲明一個事件,再在類的某個方法中,使用語句激發(fā)事件。7.類提供創(chuàng)立、復制、刪除、移動和打開文件的實例方法,而且?guī)椭鷦?chuàng)立FileStream對象。要實現(xiàn)文本文件的讀寫,一般使用類和類。8.命名空間是涉及輸入,輸出設備的類庫集合。包括了所有進行字符串、數(shù)據(jù)、文件操作的類庫。9.在任何圖形繪制之前,一定要先用類創(chuàng)立一個對象。10.對象是ADO.NET的核心,是數(shù)據(jù)的內(nèi)存駐留表示形式,無論數(shù)據(jù)源是什么,它都會提供一致的關系編程模型。二、選擇題(從下列各題四個備選答案中選出一個正確答案,并將其代號寫在答題紙相應位置處。答案錯選或未選者,該題不得分。每小題2分,共16分。)1..NET應用程序第二次執(zhí)行時,不需要在編譯的原因是。A．已經(jīng)產(chǎn)生執(zhí)行文件B．Cache的機制C．通用語言規(guī)范本身D．以上皆非2.在.NET的設計中,項目是由管理。幫助項目本身類庫解決方案3..非共享成員的訪問只能使用的實例對象。模塊命名空間類以上皆是4．SelectCase的Case后面,下面是正確的范圍條件。A．1to5B．5to1C．1:3to6D．Is>60:86to905．使用在For…Next的循環(huán)控制變量能夠是數(shù)據(jù)類型。LongIntegerDouble以上皆可6..要顯示VB.NET的標準對話框,需要調(diào)用的方法MessageBox.ShowMsgBoxInputBoxShowDialog7.若要把窗體設置為MDI父窗體,應該把它的屬性設置為Ture。MdiChildrenIsMdiContainerMdiParentIsMdiChild8.如果進行二進制讀文件,應該實例化。BinaryReaderBinaryWriterStreamReaderStreamWriter三、閱讀程序,根據(jù)各題的要求回答問題。(每題小題5分,共20分)1.分析下列程序的運行結果,說明該程序的功能。PublicClassloginInheritsSystem.Windows.Forms.Form#Region"Windows窗體設計器生成的Code"‘系統(tǒng)自動創(chuàng)立的程序,為了節(jié)省篇幅,在此處省略。#EndRegionDimmymdimainAsMainMDIPrivateSubbtnOk_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnOk.ClickIftxtUserName.Text.Trim=""ThenshowMsg("用戶名不許為空!")txtUserName.Focus()ExitSubEndIfIftxtPassWord.Text.Trim=""ThenshowMsg("密碼不許為空!")txtPassWord.Focus()ExitSubEndIfDimiAsIntegerDimstrsqlAsStringDimmydatasetAsNewDataSetDimmyTableAsDataTableDimunameAsStringDimpswAsStringuname=Trim(txtUserName.Text)psw=Trim(txtPassWord.Text)Trystrsql="SELECT*FROMOperatorWHEREName='"+uname+"'andPassword='"+psw+"'"mydataset=executeSelectQuery(strsql,"manager")strsql="SELECT*FROMAuthorityWHEREName='"&uname&"'"myTable=executeSelectQuerygettable(strsql)IfmydatasetIsNothingThenshowMsg("用戶名或密碼錯誤!",MsgBoxStyle.Exclamation)ReturnEndIfIfmyTableIsNothingThenshowMsg("此用戶無任何權限!",MsgBoxStyle.Exclamation)ReturnEndIfCatchexAsExceptionExitSubEndTryIfmydataset.Tables("manager").Rows.Count=0ThenshowMsg("用戶名或密碼錯誤!",MsgBoxStyle.Exclamation)ElseGlobalVariable.PERMISSION=NewArrayListFori=0TomyTable.Rows.Count-1GlobalVariable.PERMISSION.Add(myTable.Rows(i).Item("Permission")&"")NextMe.Close()EndIfEndSubPrivateSublogin_Closing(ByValsenderAsObject,ByValeAsSystem.ComponentModel.CancelEventArgs)HandlesMyBase.Closingmymdimain.setpower()EndSubPrivateSublogin_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadPERMISSION=NewArrayListmymdimain.setpower()EndSubPrivateSubbtnExit_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnExit.ClickMe.Close()EndSubEndClass其中:setpower()為權限設置方法,在此省略了。2給出下列程序的運行結果,并說明該程序的功能。ModuleModule1SubMain()Dimi,n,fAsShortDoWhile(True)TryConsole.Write("n=")n=Console.ReadLine()f=1Fori=1Tonf=f*iNextExitDoCatche1AsInvalidCastExceptionConsole.WriteLine("數(shù)據(jù)類型錯誤")Catche2AsOverflowExceptionConsole.WriteLine("溢出錯誤")Catche3AsExceptionConsole.WriteLine("其它錯誤")EndTryLoopConsole.WriteLine(n&"!="&f)Console.ReadLine()EndSubEndModule3.分析下列程序,說明該程序的功能,并用層次圖表示。PublicClassForm1InheritsSystem.Windows.Forms.Form#Region"WindowsFormDesignergeneratedcode"‘系統(tǒng)自動創(chuàng)立的程序,為了節(jié)省篇幅,在此處省略。#EndRegionPrivateContextMenu1AsNewContextMenu()PrivateWithEventsMenuItem1,MenuItem2,MenuItem3AsMenuItemPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadRichTextBox1.Dock=DockStyle.FillMenuItem1=NewMenuItem("剪切")MenuItem2=NewMenuItem("復制")MenuItem3=NewMenuItem("粘貼")MenuItem1.Shortcut=Shortcut.CtrlXMenuItem2.Shortcut=Shortcut.CtrlCMenuItem3.Shortcut=Shortcut.CtrlVContextMenu1.MenuItems.Add(MenuItem1)ContextMenu1.MenuItems.Add(MenuItem2)ContextMenu1.MenuItems.Add(MenuItem3)RichTextBox1.ContextMenu=ContextMenu1EndSubPrivateSubMenuItem1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMenuItem1.ClickRichTextBox1.Cut()EndSubPrivateSubMenuItem2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMenuItem2.ClickRichTextBox1.Copy()EndSubPrivateSubMenuItem3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMenuItem3.ClickRichTextBox1.P