2023年程序設(shè)計基礎(chǔ)期末復習指導

《程序設(shè)計基礎(chǔ)》期末復習指導２023-１1一、程序設(shè)計基本知識點(選3道)在ViｓualSｔudｉoNＥT的集成開發(fā)環(huán)境中,下面不屬于該環(huán)境編程語言的是（C)。A.VBＢ．Ｃ＋+C.ＰaｓcａｌD.C#下面哪個字符串是合法的變量名。（Ａ)。Ａ.X＿yｚB.１2３abcC.inｔegerD.x-ｙ下面哪個字符串是合法的變量名。（A)。A＿zB.eC.6yD.t/t下面哪個字符串是合法的變量名。(A）。AｚB.A-zC.SｔｒinｇD.x＋y＼、/、moｄ、＊四個算術(shù)運算符中，優(yōu)先級別最低的是（C）。 A．\??Ｂ./??C．mod D.*Int(198.555*100＋0．5）/10０的值是(C)。?A.19８??Ｂ.１99.6 C．198.56??D.20０在一行內(nèi)寫多條語句時,每個語句之間用（Ｂ)符號分隔。 A．，??B．： C．、?D．;一條句語句要在下一行繼續(xù)寫，應(yīng)在第１行最后加上（Ｃ)符號作為續(xù)行符。 Ａ．＋??B．-??C．＿??D.…已知a=12,b＝2０，復合賦值語句“ａ*=ｂ＋10”執(zhí)行后,a變量中的值是（D) Ａ．５0??B．2５0 C.3０? D．３60已知a＝3.５,ｂ＝5.0，c=2.５,d=Ｔrue,則表達式：ａ>=０ANDa+c＞b＋3ORＮOTｄ的值為（Ｄ)。５.０Ｂ．3.5C.TｒueD.Fａlse下面對的的賦值語句是(C)。x+y=3０B.y*ｘ=５Ｃ.y=x＋３0Ｄ.３y=x1５除以4余數(shù)的-３次方的ＶB.NEＴ表達式為（B）。mod(1５,4)^(-３）B．(15mod4）(－3)Ｃ.1５．0mｏd4^-３.0D.mod(1５．０,4）＾－３將變量K四舍五入保存2位小數(shù)的表達式是(C)。Int（(k+0.5)*100)／100B.Ｉnｔ（k*１０0)／10０+0.5Ｃ.Iｎt（k*１00+０.5)/10０D．Int（k＊(100+０.5）)/1０0表達式16/4-2^5*8／4MOD5\２的值為（B)。14B．４C.20表達x是5的倍數(shù)或是９的倍數(shù)的邏輯表達式為（C）。x／5OＲx／9B.x/5AＮDｘ／9Ｂ.xMOD５ORxMOD９D.ｘMＯＤ5ＡNＤｘMOD9ｗhｉle語句后面的表達式應(yīng)當是（A）。邏輯或關(guān)系表達式B.字符表達式Ｃ．算術(shù)表達D.任意表達式IF語句后面的表達式應(yīng)當是：(A)。邏輯或關(guān)系表達式Ｂ.字符表達式Ｃ.任意表達式D．算術(shù)表達式下面程序段的運營后，n的值為(C)。n=1fori=1to3n=n*Inext３B.2C.6D.５數(shù)學關(guān)系3≤x<１0表達為對的的ＶＢ.NＥT表達式為(B）。3<=x＜10B.3＜＝xANDx＜1０Ｃ為了給x,y,z三個變量賦初值1,下面對的的賦值語句是（A)。ｘ=1:ｙ=１：z=１B．x＝y(tǒng)=z＝1Ｃ．x=１,y=1,z=1計算分段函數(shù)值：，下面程序段對的的是(B）。IFX>=1TＨＥＮY=X^2＋1IFX＞0ＴHENY=1ＩＦX<0THＥＮY=０IFＸ>=1THENＹ=X＾2＋1ＥLSＥIFＸ＞０THENＹ=1ELSEY=０ENDIFIＦＸ>＝1THＥNY=X＾2+1ＩFX＞0TＨENY=1IFX＜0ＴＨENＹ＝0ENDIFIFX>＝１THＥＮY=X^2＋1IＦX>0THEＮY＝１ELSEY=0EＮDＩFENDIF要退出應(yīng)用程序的執(zhí)行，不能執(zhí)行下列的（D）語句。EndB．Me.CｌosｅC．Apｐliｃaｔｉon.Exit()D．Exｉt（)二、屬性（選3道）當文本框的SｃrｏllBars屬性設(shè)立了非None值,卻沒有效果，因素是(B）。A.文本框中沒有內(nèi)容B.文本框的ＭｕliLｉne屬性為ＦalｓeC.文本框的MｕlｉLｉne屬性為ＴrｕｅD．文本框的Lｏcked屬性為Truｅ要使窗體在運營時最大化按鈕不可操作,只要對窗體中哪個(A)屬性進行設(shè)立。MaｘiｍiｚeＢｏｘＢ.BｏrderStyｌeＣ．WidthD.ＭｉnimｉzeBｏｘ要使窗體在運營時最小化按鈕不可操作,只要對窗體中哪個(Ｄ）屬性進行設(shè)立。MaｘｉmｉｚeBoxB．BordeｒStyleC．ＷiｄthD.MｉnimizeBｏx要使窗體在運營時最大化按鈕不可操作,只要將窗體中ＭaxｉｍiｚeBoｘ屬性設(shè)立為（B）。TｒuｅＢ.ＦlasｅC.BoolｅａnD.Ｙes要使窗體在運營時最小化按鈕不可操作，只要將窗體中MinimizeBｏx屬性設(shè)立為（B)。TｒueＢ.FｌaseC．ＢooleａnD.Yeｓ修改窗體Form的標題顯示內(nèi)容,要對（D)屬性進行設(shè)立。NameB．ForeColorC.BackColｏrD．Tｅxt若要使命令按鈕不可見,要對(B)屬性進行設(shè)立。ＥnabledB.ViｓibleC.BackCｏｌoｒD.Text要增長組合框Coｍｂo控件中選項,應(yīng)使用Items集合的(Ｃ)方法。SuｂB.ＲｅmoveＣ.AddD.Cｌear要增長列表框LｉsｔBox控件中選項，應(yīng)使用Itｅmｓ集合的(C)方法。SｕbB.RemｏveC.AdｄD.Cleａｒ要刪除組合框Combo控件中選項,應(yīng)使用Iteｍs集合的（B)方法。SｕｂB．RｅmoｖeC．AddD.Cｌｅar要刪除列表框LisｔBｏx控件中選項，應(yīng)使用Ｉtems集合的(B)方法。SubB.RemoｖｅC.AddD.Ｃlear要選擇LinkＬabel標簽中要呈現(xiàn)為超級鏈接的文本部分，要對（A）屬性進行設(shè)立。LinkArｅaB.LinｋBeｈａvioｒC.LinｋColｏｒD．Text要修改GrｏｕpBｏx控件的標題內(nèi)容，應(yīng)對(A）屬性進行設(shè)立。ＴextB.BaｃkgroundImageC.GｒidＳizeD.Cuｒｓor調(diào)整PicｔureBｏx控件大小,使其等于所包含的圖像大小，則其ＳizeMode屬性應(yīng)設(shè)立為（Ａ）值。AuｔｏSizeB.CenterＩmａgｅC.NｏrmaｌD.SｔreｔcｈImage設(shè)立Tiｍe控件的事件發(fā)生間隔為0.1秒，則Intｅrval屬性應(yīng)設(shè)立為(B）。10B.100C.１000Ｄ.設(shè)立Time控件的事件發(fā)生間隔為1秒，則Inteｒｖal屬性應(yīng)設(shè)立為(C)。10B.10０Ｃ.1０00要使窗體剛運營時，顯示在屏幕的中央，應(yīng)設(shè)立窗體的（Ｂ)屬性。WindｏｗsStateＢ.StarｔPosiｔionC．CenterScreenＤ.CenterPaｒeｎt要使文本框控件可以顯示多行,應(yīng)設(shè)立文本框的（B）屬性。ＭaxLengｔhB.ＭｕltｉLineC．ＰａｓsｗordCｈarD．ＷordWrap要使文本框中的內(nèi)容所有顯示為星號(即為“＊****”），應(yīng)設(shè)立文本框的(Ｃ)屬性。MaxLeｎgthB.MuｌtiLineC.PａssworｄＣhaｒD.WｏrｄWrap要使文本框中的內(nèi)容最多只能輸入20個字符，應(yīng)設(shè)立文本框的(Ａ）屬性。MaxLeｎgthB．MultiLineC.PasswordCharD.WordWrａp在用對話框控件時，假如需要指定“打開”或“保存”文獻對話框的中文獻列表框所列出的文獻類型是文本文獻（即．ｔxt文獻),則對的的描述格式是（Ａ）?！皌ｅxt(*．txt)|*.tｘt”B.“文本文獻（＊．tｘｔ)｜．txt”C.“tｅxt（.txt)｜|*．ｔｘt”D.“teｘｔ(.txt)(＊．ｔxｔ)”在“打開”文獻對話框中,若只想獲得選定文獻的文獻名,則應(yīng)當使用（A）屬性。FilｅNaｍeB.FiltｅrC.TitleD.SaｆeＦiｌeNａｍe三、數(shù)組(選1道）如下數(shù)組聲明語句，則數(shù)組包含元素的個數(shù)是(Ｃ)。Dima(６)AsIntegeｒ5B6C．７Ｄ.下面數(shù)組初始化對的的是（B）。Dimａ（３)ａｓInｔegｅr=｛12，34,5６,78｝B.Ｄiｍa()aｓInteｇeｒ={１2,３4,56,７8}C.Dima(３)asＩnteger:ａ（1)＝1２:ａ(2)=34：ａ(３)=5６：a(4）=7８D.Diｍa(3）asIntｅgｅｒ：a（0)=０：a(1)=12:a(2)=３4:a(3）=56：a(4)=７８可通過設(shè)立MDI子窗體的(D）屬性來制定該子窗體的MDI父窗體。AｃtiveMdｉCｈildＢ.IsMdiChｉｌdC.MdiChｉlｄrenD.MdiＰａrent要使復選框控件可以顯示三種狀態(tài),應(yīng)一方面設(shè)立它的(Ａ）屬性。ThreeSｔaｔｅB.CheckedＣ．ChecｋStaｔeD.Inｄeterminaｔe如下數(shù)組聲明語句對的的是(Ｂ）。Dimａ［３,4]AsIｎｔegerB．Dima(3,4)AsＩntegeｒＣ．Ｄｉma（n，n)AsＩntｅgerD.Dｉma(３4)ＡsInteｇｅr如下數(shù)組聲明語句，則數(shù)組包含元素的個數(shù)是（D）。Dimａ(７)ＡsIntegｅr５Ｂ.6C.７B．“DimＡ(２，3)asIntｅgeｒ”數(shù)組聲明語句中,數(shù)組包含元素的個數(shù)是（B)。A．8B．１２C.24D．10下列數(shù)組聲明語句對的的是(Ｂ）。A．Dima［３，４]AsInteｇeｒB．Dima（3,4)ＡsInｔegerＣ.Dｉma(ｎ,ｎ）AsIｎtegerD.Ｄima(３４)ＡｓIntegｅr四、過程（選1道)對于過程，下列敘述中對的的是（Ａ)。過程的定義不能嵌套，但過程調(diào)用可以嵌套過程的定義可以嵌套,但過程調(diào)用不能嵌套過程的定義和過程調(diào)都可以嵌套D.過程的定義和過程調(diào)都不能嵌套在過程中定義的變量,假如希望在離開該過程后,還能保存過程中局部變量的值,就應(yīng)當使用（B)關(guān)鍵字在過程中定義局部變量。DimB.StaticC．PuｂlｉcD.Ｐrｉvate在過程內(nèi)定義的變量（不在語句塊中）為（C）。A.全局變量B.模塊級變量C.局部變量D．靜態(tài)變量在定義過程時,假如希望某形參按引用傳遞，則應(yīng)在該形參前加上關(guān)鍵字（B）。A．ByValB．ByRefＣ.ValueD．Refｅrｅnｃe在定義過程時,假如希望某形參為可選參數(shù),則應(yīng)在該形參前加上關(guān)鍵字(Ｂ）。Ａ．ＢyＶalB．OｐｔiｏnalC.choosｅD．Sub定義函數(shù)時，使用的關(guān)鍵字是(C)。A．ＰｕｂlｉcＢ.PriｖaｔｅC．FunctioｎD.Sub有過程定義如下:ＰrivateSubfun(ＢｙVaｌxasＩntegeｒ，ByVａlyａsIntｅger,ByValzasInｔｅger)則下列調(diào)用語句不對的的是（C）Callfun(ａ，b,ｃ)B．Ｃallfun（3,4，a）C.ｆuｎa,,５D.fｕn(a,b，ｃ）五、面向?qū)ο蠛彤惓＃ㄟx1道）對象的特性稱（A），對象可以執(zhí)行的操作稱方法，對象可以辨認的操作稱事件。屬性B.類C.方法D.事件對象的特性稱屬性，對象可以執(zhí)行的操作稱(C)，對象可以辨認的操作稱事件。屬性B.類C.方法D.事件對象的特性稱屬性,對象可以執(zhí)行的操作稱方法,對象可以辨認的操作稱（Ｄ）。屬性B．類C.方法D.事件面向?qū)ο蟮某绦蛟O(shè)計語言的基本編程模式是（A)驅(qū)動事件B.對象C.方法D．類驅(qū)動下列關(guān)于Try…Caｔcｈ…Ｆiｎａllｙ…EｎdＴrｙ語句的說明中，不對的的是(D）。Cａt(yī)ch塊可以有多個B.Finａｌly塊是可選的C.Catch塊是可選的D.可以只有Tｒｙ塊在代碼窗口，代碼下方有藍色波浪線表達（B）。A．編譯錯誤B.語法錯誤C.邏輯錯誤D．運營時錯誤在程序設(shè)計中，異常解決重要是用來解決(D）。A.編譯錯誤B.語法錯誤C．邏輯錯誤D．運營時錯誤六、數(shù)據(jù)庫（選1道）要連接數(shù)據(jù)庫,需要設(shè)立BindｉｎｇSｏurce控件中的（Ｃ)屬性。ＤataＭｅmbｅrB.SｑlConnectＣ.DataＳourｃeＤ．DatａSetADO.NEＴ中記錄集的顯示是通過ＤaｔaAｄaｐter對象的（Ｂ)方法填充記錄集。SelectＢ.ＦｉlｌＣ.UpｄatｅＤ.Ｄelete要設(shè)立DataＧridＶiｅｗ控件中顯示的字段名稱,應(yīng)修改(B)屬性。ColuｍnsHｅadeｒTeｘtB.CoｌuｍnｓC.ＣaptionD.TｉtleＡDＯ.NET中通過（D）對象保存當前數(shù)據(jù)集。ＣonｎectＢ.CoｍmandC.Ｄａt(yī)aＡdapterD.DaｔaSetAＤO.NET中通過DaｔaＡdaｐter對象的(C)方法更新數(shù)據(jù)庫。SeｌectB．FｉｌlC.UpdateD.DｅleteBｉnｄiｎgＮａvigatｏr控件的功能（D）。連接數(shù)據(jù)庫B．取數(shù)據(jù)Ｃ.寫數(shù)據(jù)Ｄ.記錄導航操作題(80分)1、新建項目test0１,將其保存在考試目錄下,規(guī)定:程序運營界面如下圖;編寫程序?qū)崿F(xiàn)“計算”按鈕的功能：在第一個文本框中輸入購物金額后,單擊“計算”按鈕,計算出實收金額，并顯示在第二個文本框中(第二個文本框不可修改）。若購物金額小于100０元（含1０00元），實收金額等于購物金額；若購物金額大于１000元，則超過1000的金額打9折；單擊“退出”按鈕退出該程序。(10分)第二個文本框不可修改,選中第二個文本框,將其RｅadOnly屬性設(shè)立為Tｒue參考代碼:ＰrivateSｕbBuｔｔon1_Click(ByValsｅndeｒAsSｙstem.Ｏbject,ＢｙVａleAsSysｔem.EventAｒgs)HandlesBuｔｔon１.Ｃlick計算按鈕的代碼Dimgwｊｅ，ssjｅAsＳingle計算按鈕的代碼gｗje=Val(Me．TextＢox1．Tｅｘt)Ifgwje<=1０0０Thｅnｓｓｊe＝gwjeElｓessje=1000+(ｇwｊe－100０)*0.9EndIfMｅ．TｅxtBox2.Teｘt＝ssje.ＴoStrinｇEnｄSub退出按鈕代碼PrｉvateSubButｔｏn2_Ｃlｉck(ＢｙValsenｄerＡsSystem.Oｂject,ByValeＡｓＳystｅm.ＥｖentArｇs)HaｎdlesButton２.Clｉck退出按鈕代碼EndEｎｄＳｕｂ2、新建項目tesｔ０２，將其保存在考試目錄下，規(guī)定：程序運營界面如下圖；單擊“產(chǎn)生數(shù)組”按鈕,隨機產(chǎn)生8個整數(shù)，整數(shù)的范圍為0－5０,并顯示在第一個文本框中;(用數(shù)組實現(xiàn)）單擊“求最大值”按鈕，計算出8個整數(shù)中最大的整數(shù),并顯示在第二個文本框中;將2個文本框改為不可修改狀態(tài)。(１0分)2個文本框改為不可修改狀態(tài),將兩個文本框的ReadOｎｌy屬性設(shè)立為ＴｒuｅＤima（7)AsIｎｔｅgerPrivaｔeSｕbBｕtｔｏn1_Click(ByValsenderAsSｙｓtｅｍ.Object，ＢyValeAsＳystｅm.EｖeｎtＡrgs)HanｄｌeｓBｕｔton1.ＣｌiｃkDimiAsIntegeｒ產(chǎn)生數(shù)組按鈕的代碼ＤimrdAsNewＲanｄom產(chǎn)生數(shù)組按鈕的代碼Me.TｅxtBox１.Ｃleaｒ()Fori=0Toa.Leｎgth－1ａ(i)＝rd.Next（0,50)Ｍｅ.TｅxｔBox1.Texｔ=Me.TextBox1.Text＆a(i）&＂"NextMｅ．TeｘｔBｏx２.Clear()ＥｎdSuｂPｒiｖaｔeSubBuｔtoｎ2＿Cliｃk(ByVaｌsenderAsSｙsteｍ.Oｂject,ＢyＶaleAsSystem.EvｅntArｇs）HａndｌeｓButton2.ＣｌickＤiｍi,mAsInteger計算按鈕的代碼m=a(0）計算按鈕的代碼Fori＝0Toa.Lengtｈ-1Ifm＜a(i)Then假如是求最小值，只要將<換成>就可以了。m=a(i）假如是求最小值，只要將<換成>就可以了。ＥnｄIfNextＭe.TexｔBox2.Text＝m.ToSｔringＥndSｕｂＰｒivａt(yī)eSｕｂBuｔｔoｎ３_Clicｋ(ByVａlseｎdeｒＡsSystem.Ｏbject,BｙＶaleAsSysteｍ.ＥventＡrgｓ)ＨandleｓBuｔton3.CliｃkＥｎdＥｎdＳuｂ假如是求平均值代碼如下:Dimi，suｍAsＩntｅgersum=0Fｏri=0Toa.Ｌength-1Sum=ｓum+a(i）NｅxtMe.TextBox2．Tｅxｔ=Cstr(sum/a.Lｅnｇｔh）2.新建項目tesｔ０2-１,將其保存在目錄下，規(guī)定：定義一個具有1０個元素的一維數(shù)組，給它的每一個元素賦一個隨機數(shù)(范圍:0～10０)。然后求出該數(shù)組的所有元素的平均值及比平均值小的元素個數(shù)。Ｄima(９)AsＩｎｔeger‘定義一維數(shù)組ＰrivateSubBｕｔtｏn1_Cｌiｃk(ＢyValseｎdｅrＡsSystem．Obｊｅct,ByＶaｌｅAsＳystｅｍ.EventArgｓ)HandｌesBｕtｔon1.ClickDiｍiＡsIntｅgeｒDimrｄAsNｅwRandom產(chǎn)生數(shù)組按鈕的代碼Mｅ．TeｘtBox１.Cleａｒ()產(chǎn)生數(shù)組按鈕的代碼Fｏｒi＝0Ｔoa．Ｌeｎｇｔｈ－1a(i)=ｒd．Nexｔ(0，1０1）Ｍe.TextBｏｘ1.Tｅｘt＝Ｍｅ.ＴextBox1.Text&a(ｉ）&"＂NexｔＭｅ．TextBｏx2．Clｅaｒ()Mｅ．TextBｏx３.Cleaｒ()EndＳｕbPrivatｅＳubＢｕｔton2_Click(ByＶaｌsｅｎdｅrAsSｙstｅm.Obｊｅct,ByValeＡsＳysteｍ.EvenｔAｒｇs)HandlesＢuｔｔon２．ClｉｃｋDimi,sum,gsAsInｔeｇerDｉmｐｊzAｓSinglｅsum=0求平均值幾個數(shù)按鈕的代碼gs=0求平均值幾個數(shù)按鈕的代碼Ｆori=０Tｏａ．Lｅｎｇｔｈ-1sum=sｕm+a(i)Nextpjz=CStr（ｓum/a.Ｌeｎgｔh）Ｆｏri=0Toａ.Leｎｇth－1Iｆa(ｉ）>pjzTheｎgｓ＝gｓ+1EndIｆNｅxtMe．TexｔBox２．Tｅxt=pjz.ＴoStｒingMe．TextBｏx3.Teｘt=gｓ．ＴｏStrｉnｇEndSｕｂPrivaｔｅSubＢutton3＿Clｉｃｋ(ByVaｌsenｄｅｒAｓSyｓｔem.Obｊect,ByVａleAsＳysｔeｍ.EvｅｎｔArｇs)HandlｅsButton３．ClｉcｋClose()EndSub3、新建項目teｓt０3，將其保存在考試目錄下,規(guī)定:輸入任意正整數(shù)（最多９位正整數(shù)），求各位數(shù)之和，并顯示在第二個文本框中（第二個文本框不可修改）,程序運營界面如下圖;求整數(shù)各位數(shù)之和的功能用函數(shù)實現(xiàn),“計算”按鈕事件中只要調(diào)用該函數(shù)即可,函數(shù)框架如下所示:ＦunctionF（BｙValnAsIntｅgeｒ)ＡｓＩntegｅｒ? ‘函數(shù)體EndFunctｉｏn當?shù)谝粋€文本框中輸入非整數(shù)時，在第二個文本框中顯示提醒，如下圖。(15分)最多9位正整數(shù)的做法,將文本框1的MaxLength屬性值設(shè)立為9，第二個文本框不可修改,選中第二個文本框,將其ReadＯnly屬性設(shè)立為TｒueＦunctionＦ(ByVａlnAｓInｔeger)ＡsInｔｅgeｒ函數(shù)體代碼Dimｓum,tAｓInｔeｇeｒ函數(shù)體代碼sum＝0DoWhilen<>0t＝nMoｄ10ｓum=sｕm+tn=n\10LoopＲeｔｕrnsuｍEndＦｕｎctｉonPrivateSubBuｔtｏn1_Click(ByValｓeｎderAsSｙstem.Objｅcｔ,ByＶaleＡsSｙstｅｍ.EvｅntArgs）HaｎdlesButtoｎ1.CｌicｋDiｍaＡsLｏngＤimsumAｓInｔeger計算按鈕的代碼Try計算按鈕的代碼a＝Cｏnvert．TｏIｎt32(Ｍe．TextBox1.Ｔｅxｔ）sｕm=F(a)Mｅ.TｅxtBｏx2.Ｔeｘｔ＝suｍ.ＴoStｒinｇCａt(yī)cｈexAsExｃeptionMe.TextＢox2.Tｅxt="非正整數(shù)錯誤ＥｎdTｒyEndSubPｒｉvateＳuｂBuｔton2_Clｉcｋ（ByVａｌseｎｄerAsSystｅm.Ｏbｊect,ByVaｌeＡsＳystem．EventＡrgs)HanｄlｅsButton2.CliｃkEｎdEnｄSｕb4、新建項目ｔest0４,將其保存在考試目錄下，規(guī)定:程序運營界面如下圖;設(shè)立主菜單,其內(nèi)容（涉及快捷鍵等)如下圖所示（“編輯”、“格式”、“查看”和“幫助”下的二級菜單可認為空);設(shè)立快捷菜單如下圖所示(涉及：“剪切”、“復制”和“粘貼”)，即在窗體下單擊鼠標右鍵會出現(xiàn)的菜單；將主界面設(shè)立為MDＩ格式，單擊“新建”菜單，能打開第二個窗體，具體如下圖所示，第二個窗體是包含在第一個窗體中,第二個窗體中只有一個文本框控件,該文本框需要設(shè)立為多行。（15分）界面中主菜單界面中快捷菜單單擊“新建”菜單后的界面第二個窗體是包含在第一個窗體中是將form１的ＩsMｄicｏｎtaineｒ?qū)傩栽O(shè)立為Ture。文本框需要設(shè)立為多行，將fｏrm２上的TｅｘｔBｏx1的Multiline屬性設(shè)立為Tｕrｅ參考代碼：PｒivaｔｅSuｂ新建NTooｌStriｐＭenuItem_Ｃlｉｃk(ByValsｅnderＡsSｙｓtｅm．Objeｃt,ByＶaｌｅAsSｙstｅｍ.EｖｅntArｇs)Ｈａndles新建ＮToolStripＭenuIteｍ．Click“新建”“新建”菜單的代碼Fｏｒm2.Ｓhow(）EｎdSuｂPrｉvatｅSuｂ退出XTｏolSｔriｐMｅnuＩtem_Ｃlicｋ(ＢyValｓｅnderＡsＳysteｍ.Ｏｂｊecｔ,ByValeＡｓＳystem．EventＡrgs)Ｈandles退出ＸTooｌStripＭeｎuIｔem.Ｃlick在listbox1的Items屬性里輸入列表內(nèi)容End在listbox1的Items屬性里輸入列表內(nèi)容EndSub5、新建項目ｔeｓt０5，將其保存在考試目錄下,規(guī)定：初始狀態(tài)時，左邊列表框中的數(shù)據(jù)如下圖所示;單擊“添加”按鈕，可以把下面文本框中的內(nèi)容添加到左邊列表框中，規(guī)定不能添加反復的記錄；單擊左邊列表框中的記錄，然后單擊“刪除”按鈕,可以刪除選中的記錄，可以同時刪除多條記錄,如下圖所示。將兩個列表框的SelectionMode屬性值設(shè)立為MultiExtended將兩個列表框的SelectionMode屬性值設(shè)立為MultiExtended支持多選初始狀態(tài)考試假如沒添加規(guī)定下面的添加代碼就不要了。ＰrivaｔeSｕbButton1_Cｌｉck（ＢｙＶaｌｓeｎｄerAsＳyｓtem.Ｏｂjｅct，ByＶaｌeAsSystem．EｖentＡｒgｓ)HａｎｄlｅsBｕｔｔon1.ClickDimiAsInｔｅgｅrFori=Mｅ．ListBox1．SeleｃtedItｅｍs.Count-1To0Sｔep-1>的Mｅ.ListBox2.Items．Add(Ｍe．ListBｏｘ1.SeｌecｔedＩtｅms（i))代碼Me．LｉｓｔBoｘ1.Ｉｔems．Remove(Me．LiｓtBｏｘ１.ＳelecteｄItems(i))NexｔEnｄSuｂPrivaｔeSｕbＢuｔtｏn２＿Clｉcｋ(BｙＶａlｓendｅｒAsSｙsｔem.Objｅct,ByValｅAsＳystem.ＥｖｅntAｒgs）ＨaｎdlesＢuｔton２．CｌiｃkDimiAsIｎtegｅｒFｏrｉ=Ｍe.ＬｉstＢox2.SｅｌectedItems.Coｕnt-1To０Ｓtep-1<的Me.ListBｏx1.Items.Add(Me.ＬiｓtBox2.SelectedＩｔems(i))代碼Me．ListBox２.Items.Rｅmove(Ｍe．ＬistBｏx2.ＳelecteｄIteｍs(ｉ))NｅxｔＥｎdＳuｂPriｖateSuｂButton3_Ｃlick(ByValseｎdeｒAsSyｓteｍ.Object,ＢｙＶaleAsSystem．EvenｔArgs)HandleｓＢuttｏn3.ClｉｃｋMe.ＬｉｓｔBox2.Ｉtems.AddRangｅ(Me.LisｔBox1.Itemｓ)>>的代碼Me．ListBox1．Itemｓ.Cｌear()EnｄSuｂPｒiｖateSubＢuttoｎ4_Cｌｉck(ByValｓendｅrＡsSysteｍ．Object,ByＶaleAsSysｔem.EventArgs)HandlesButtｏn4.CｌｉcｋMｅ．ListBox1.Iｔems．AddRａngｅ(Me．ListBｏx2.Items)<＜的代碼Ｍe.ListBoｘ２.Iｔems.Clear(）EnｄSuｂPrｉvateSubBｕｔｔｏn5＿Cliｃk（ＢyValseｎderＡｓSｙsteｍ．Oｂjeｃt，ByＶaleAsＳｙstｅm.ＥveｎtＡrgs)HanｄlesBuｔton5.ClickIfMｅ．TextBox１.Tｅｘt<>""ThenＩfMe.ＬistBｏx1.FｉndStriｎｇExａｃt(Me.TextＢox１.Ｔext)<0TｈenMe.ListBox１.Iteｍs．Add(Ｍe．TeｘtBox１.Teｘｔ)Eｌsｅ添加的MｓgBox(＂該項已經(jīng)存在!＂)代碼EｎdIfＥndＩｆＥnｄSｕｂ考試題目假如沒有刪除操作,下面代碼也就不要了。PｒivaｔｅSubButtｏn6_Ｃlick（ＢyValｓendｅｒAsＳystｅm．Ｏbｊect，BｙValeAｓSysteｍ.ＥventArgｓ）HandlｅsＢutｔoｎ6.CｌicｋDiｍiＡsIｎtegｅrFori=Me.LｉｓtBox１．SelｅctedIteｍs.Cｏuｎt-1Tｏ0Ｓtep-1刪除的代碼Mｅ.ListＢox１．Iteｍs.Remｏｖｅ(Me.LｉstBｏｘ1.SｅｌecｔedItems(i))NｅxtEnｄSub6、新建項目test０6，將其保存在考試目錄下，規(guī)定:在teｓt0６目錄下新建acｃｅss數(shù)據(jù)庫Ｓｔuｄent.mdb,在access數(shù)據(jù)庫中創(chuàng)建一個表ｓｔudenｔ,表結(jié)構(gòu)如下圖所示,并按下圖錄入５條記錄;studｅｎt表結(jié)構(gòu)stｕdeｎｔ表中的記錄在vb20２3環(huán)境下,連接Stuｄent．mｄb數(shù)據(jù)庫，在窗體中顯示sｔudenｔ表中記錄；按網(wǎng)格方式顯示,具體如下圖所示。(1５分)運營界面操作環(huán)節(jié):1)新建項目tｅst062）單擊全面保存如下圖所示,輸入保存信息。3)運營MicroｓoftOfficeAccess2023,如下圖所示。４）打開文獻菜單，選擇新建,如下圖所示。5）如下圖所示,選擇空數(shù)據(jù)庫。6)選擇test０6文獻夾保存數(shù)據(jù)庫,如下圖所示。7)單擊創(chuàng)建后出現(xiàn)下圖所示界面，雙擊使用“設(shè)計視圖創(chuàng)建表”8）按題目規(guī)定輸入表的結(jié)構(gòu)，如下圖所示。9)輸入完畢成后,選擇題目規(guī)定中帶鑰匙的字段,將其設(shè)立為主鍵。1０）點擊保存按鈕，出現(xiàn)如下圖所示界面,輸入表名。點擊擬定按鈕。1１）保存好后，出現(xiàn)如下圖所示界面,雙擊表名，輸入題目規(guī)定的記錄內(nèi)容。1２)輸入完畢后，點擊保存按鈕，關(guān)閉Ａcceｓｓ軟件。１3）關(guān)閉Acｃeｓs軟件后，回到vｂ編輯界面，打開“數(shù)據(jù)”菜單,選擇“添加新數(shù)據(jù)源”,如下圖所示。14)出現(xiàn)下圖所示,選擇數(shù)據(jù)庫,點擊下一步。15)點擊新建連接按鈕。連接數(shù)據(jù)庫。如下圖所示。16）點擊新建連接后出現(xiàn)如下圖所示界面，選擇ＭicｒosｏfｔAccess數(shù)據(jù)庫文獻。17）點擊擬定后，出現(xiàn)下圖所示,點擊瀏覽選擇前面建好的數(shù)據(jù)庫文獻。單擊擬定按鈕１8）點擊下一步按鈕。19）出現(xiàn)下圖所示界面,單擊“是”按鈕。20)在單擊下一步。２1)出現(xiàn)下圖界面,在“表”左面打勾，點擊完畢按鈕,完畢數(shù)據(jù)源連接。２2）點擊“數(shù)據(jù)”菜單，選擇“顯示數(shù)據(jù)源”。23)出現(xiàn)如下圖所示界面24)將數(shù)據(jù)庫表拖曳到ｆorｍ1的上，出現(xiàn)如下圖所示的界面，調(diào)整界面。點擊所有保存。7、新建項目tｅsｔ07，將其保存在目錄下，規(guī)定：程序執(zhí)行結(jié)果如下圖;此程序功能是：隨機產(chǎn)生1個整數(shù)(整數(shù)的范圍為０-100),并顯示在第1個文本框中,單擊“判斷”按鈕，能判斷該整數(shù)是奇數(shù)還是偶數(shù),并顯示在第2個文本框中;將其ReadOnly屬性設(shè)立為True第2個文本框設(shè)立為不可修改；將其ReadOnly屬性設(shè)立為True單擊“退出”按鈕退出該程序。單擊“判斷”按鈕界面PｒivatｅSubＦorm１＿Load(ByValｓenｄeｒAsSｙsｔｅm.Objecｔ,BｙValeAsSystem.EｖenｔArgs)HandｌesMyＢａsｅ.LoａdRandｏmize(）Ｍe.TexｔＢｏx1.Text=Ｉnｔ（１０0*Rnd())產(chǎn)生一個隨機數(shù)的代碼EndSubPrｉｖateSｕbBｕtton1＿Cliｃk(ByValsｅndeｒAｓＳystem．Oｂｊect,ＢyVaｌeＡsSyｓｔｅm.EveｎtＡrgs)HandlｅsButtoｎ1.ClｉckDiｍxAｓIntｅgｅｒ判斷按鈕的代碼x=ＣIｎt（Mｅ.TeｘtBox1.Teｘt）判斷按鈕的代碼IｆxMod2=０TheｎMe.TｅxｔBoｘ２.Ｔext="偶數(shù)"ＥlseMe.TextＢox2.Texｔ="奇數(shù)"EndIfEndSuｂPrivateＳubＢｕtton２_Cliｃｋ(BｙVaｌsenderＡｓＳｙstｅｍ.Objeｃｔ,ＢyＶaｌeＡsSystem.EventArｇs)HanｄlesButｔon2.ClｉckＥnｄEndＳｕb8、新建項目test08。超市為了促銷,按購買貨品的款數(shù)多少分別給予不同的優(yōu)惠折扣,具體折扣情況如下:購物局限性1０0元的,沒有折扣；購物滿１00元（含1００元,下同）,局限性５00元的,減價５%;購物滿500元，局限性10０0元的,減價8%；購物滿１00０元，局限性300０元的，減價10％；購物滿3000元的,減價15%。此程序功能是:根據(jù)輸入的購物款計算出應(yīng)付款，增長“清除”和“退出”按鈕。程序界面如下:PrｉvateＳubＢuｔtｏn１_Click(ByＶalseｎdｅrＡｓＳystem.Ｏbject,ByVａleAsSystem.EventArgs)HａnｄleｓBｕｔton1.ClickDimｍ,dAsSinglem=ＣＩnt(Me.ＴｅｘtBｏx１.Tｅxｔ)Ifｍ<=100Then計算按鈕的代碼d=0計算按鈕的代碼ElseIfm<=5０0Theｎd=0．0５ＥlseIfm<＝１0０0Tｈｅnｄ＝0．０8ElｓｅIfm<=30０0Theｎd＝0.１Elsed=0.15EｎｄIfMｅ.ＴｅｘtBｏx2.Ｔext=CSｔr（m*(１-ｄ))EnｄSub清除按鈕的代碼PｒivaｔeSuｂButｔon２_Click(ByValsｅndeｒAsSｙsｔem．Oｂjｅcｔ,ＢyVaｌeAsSｙｓｔem.EveｎtAｒｇs)ＨａｎdlesButｔon2．Clicｋ清除按鈕的代碼Me.ＴexｔBox１.Cｌeaｒ()Me．TextBｏx2．Ｃlｅar（)ＥndSubPrivａt(yī)eSuｂButｔon3_Click(ByVaｌsendeｒAｓSystｅm.Ｏｂjｅｃt,ＢyVaｌeＡsSｙsｔｅm.EvｅntＡrgs)HandleｓＢutton3.CliｃkEnｄEnｄＳub9、新建項目teｓt09，將其保存在目錄下,規(guī)定：求整數(shù)n到整數(shù)m之間所有奇數(shù)之和（ｎ<m），并顯示在第三個文本框中（第三個文本框不可修改），程序執(zhí)行結(jié)果如下圖;求n到m之間所有奇數(shù)之和的功能用函數(shù)實現(xiàn),“計算”按鈕事件中只要調(diào)用該函數(shù)即可,函數(shù)框架如下所示:Funｃｔioｎｓ（ByVａlnＡsInｔｅgeｒ，ByValｍAsInteger)AsInteger＇函數(shù)體EndFunction當輸入的ｎ大于m時(第１整數(shù)大于第2個整數(shù))，在第三個文本框中顯示提醒，如下圖。將將第三個文本框的ReadＯnlｙ屬性設(shè)立為TｒueＦｕnctiｏns(BｙVaｌｎAｓＩnteger，ByVaｌmAsInｔｅger)ＡsInｔegｅｒ函數(shù)體的代碼Diｍi,sｕmAsLong函數(shù)體的代碼ｓｕm=０Fori＝nＴoｍIfiMｏd2=1Thenｓum＝suｍ+ｉEｎdIfNｅxtRetｕｒnｓumEndFｕnctionＰrｉｖaｔeSubBｕttｏｎ1_Clｉck(ByValｓenderAsSysteｍ.Objｅct，BｙＶaleAsSysteｍ.EvｅntＡｒｇｓ）ＨandlesBｕｔtｏn1.Ｃliｃk計算按鈕的代碼Dima,bＡsIｎｔｅgｅｒ計算按鈕的代碼ａ=Vａl(Ｍe.TｅxtBox1.Ｔext)ｂ＝Vａｌ（Mｅ.TextBox２．Teｘt)Ifa>bThenMｅ．ＴexｔBox3.Ｔeｘｔ=＂n應(yīng)＜m"ＥlsｅMｅ.TextBox3.Text=s（a,b)ＥndＩfEndSuｂPriｖateSｕbBｕtton２＿Click(ＢyVaｌsenderＡsSystｅm.Obｊect，ByValｅAsSysteｍ.ＥｖentArｇs)HanｄｌｅｓButton２.ＣliｃkEndEndSuｂ1０、新建項目ｔeｓｔ１0,將其保存在目錄下,規(guī)定：求４個數(shù)字最大，并顯示在第五個文本框中（第五個文本框不可修改）,程序