2023年程序設(shè)計(jì)復(fù)習(xí)題及參考答案

中南大學(xué)網(wǎng)絡(luò)教育課程（專科）考試復(fù)習(xí)題及答案《VisualＢasiｃ程序設(shè)計(jì)與應(yīng)用》一、選擇題:在每小題給出的四個(gè)選項(xiàng)中，只有一項(xiàng)是符合題目規(guī)定的,請把所選項(xiàng)前的字母填在題后的括號內(nèi)。1.ＶisualBaｓiｃ程序中分隔一行中各語句的字符是()。[]‘:\_2.下列可作為VisuaｌＢａsiｃ的變量名的是（）。 ? ??[]A：ＦilenameB:Ａ(A＋Ｂ)C:A%DD:Pｒint3.[] A.VisibleB．ＥｎabledC．Moveaｂle D．Chｅｃｋed４.以下過程是()事件。ＰｒvｉaｔeSｕｂFoｒm_Load()……EｎdSuｂ []A：命令按鈕的單擊?B：命令按鈕的裝載C；窗體的裝載 ??D:窗體的單擊５.Vb中描述文獻(xiàn)擴(kuò)展名的是(）屬性。 ??［]A：Dｒｉve ?B：PatｔernC:FｉleName ??D:Paｔh6.關(guān)于VisualＢasic中事件的說法中，不對的的為（)。[]事件是由VisuaｌBaｓiｃ預(yù)先定義好的，可以被對象辨認(rèn)的動(dòng)作 DblＣｌiｃk(雙擊)是VｉｓuaｌBａsic中的一種事件一個(gè)對象可以辨認(rèn)一個(gè)或多個(gè)事件對于一個(gè)系統(tǒng)提供的對象可以辨認(rèn)哪些事件,需要程序員自己定義7．下列控件中可設(shè)立滾動(dòng)條是(）。? ?[]A．檢查框(復(fù)選框) ? B.框架?C.文本框Ｄ.標(biāo)簽框8.在VｉsｕalＢaｓｉｃ中建立一個(gè)空窗體，(）不會(huì)是其默認(rèn)名。????[]A.Form1B.Ｆｏrm2C．FoｒmxＤ.9.ＣonｓtOｎe&=1，則One為(）類型的常數(shù)。[]整型 字節(jié)型長整型單精度型1０.關(guān)于邏輯型數(shù)據(jù)，下列說法錯(cuò)誤的是（)。? ??[］A．邏輯型數(shù)據(jù)只有兩種也許值:Tｒｕe或者ＦaｌseB.當(dāng)把邏輯值轉(zhuǎn)換為數(shù)值時(shí)Ｆａlsｅ轉(zhuǎn)為0，True轉(zhuǎn)為１Ｃ．當(dāng)把其他類型數(shù)據(jù)轉(zhuǎn)換為邏輯數(shù)據(jù)時(shí),非0數(shù)轉(zhuǎn)換為True,0轉(zhuǎn)換為FalseD.邏輯型數(shù)據(jù)以2個(gè)字節(jié)存儲(chǔ)１1．以下(）不是VisｕalBasiｃ的特點(diǎn)。 ? ［]A：結(jié)構(gòu)化程序設(shè)計(jì)??B:集成可視化程序開發(fā)環(huán)境??C:事件驅(qū)動(dòng)編程機(jī)制 ?D：可將用戶的編程思想自動(dòng)轉(zhuǎn)換成程序代碼12．窗體的loａd事件可以被用來實(shí)現(xiàn)的功能為(）。［］A:擬定窗體的位置Ｂ:從內(nèi)存中清楚一個(gè)窗體Ｃ:在程序啟動(dòng)時(shí)對屬性和變量初始化?D:重畫窗體13．單復(fù)選框的控件名稱為()。[]A.ＯｐtionＢotｔon?Ｂ.ＣheｃkBoxC．PictｕrｅBoｘD.Imａgｅ14.若要嚴(yán)禁窗體被移動(dòng),可設(shè)立窗體的（)屬性為Ｆalse。A.MoｖeabｌeB:MoveＣ:ＭｉｎBｕtｔon? D：CｏntｒoｌBox15．若要設(shè)立定期器的定期間隔設(shè)為１0秒，應(yīng)將（)屬性值設(shè)為10000。[］A．InｔervalＢ.ValｕeC.EnａbledD.Texｔ16.以下（)是文獻(xiàn)夾列表框。A.DirListBｏｘB.DｒｉveLｉstＢｏxC．FｉｌeListBｏｘD.ＣomboBox17．以下（)可從通用對話框的“字體”對話框中返回用戶選擇的字體名。Ａ.FilｅNameB.PathC.FｏnｔNameD.Ｃolor1８.下列哪個(gè)操作可以清除文本框?qū)ο螅詄xｔ1的內(nèi)容(）。A.Texｔ1．Tｅxｔ=""B.Tｅxt１.clsC.Ｔexｔ="＂D.cls１9．要想通過單擊Ｃomｍａｎd1彈出Form2窗體，則可在Coｍmａnｄ1的單擊事件中，使用（）命令。A.LoadFoｒm2Ｂ.Fｏrm2.ShｏwC.Form２．ＳeｔFocusD.Ｆｏｒm2.PoｐuｐＭeｎｕ20．以下屬性中只在運(yùn)營時(shí)起作用的為（）。A.Cａption屬性B.Visiblｅ屬性C.ＢordeｒStｙｌe屬性D.Pｉcturｅ屬性21．在運(yùn)營時(shí),若要使文本框獲得輸入焦點(diǎn)，可調(diào)用文本框?qū)ο蟮?）方法來實(shí)現(xiàn)。A.RefｒeｓhB.GｅtＦocusC.SetFoｃusD.Ｔab22．在窗體中運(yùn)用Prinｔ方法輸出文本信息時(shí),信息的輸出位置由(）屬性設(shè)立。Ａ.LeｆtB．TｏpＣ.x,ｙD.CurrentＸ,CurreｎtY23.語句：Dimstudeｎt(10,5ｔo１0０)定義的是一個(gè)(）維數(shù)組。A.2B.3C.2４.默認(rèn)情況下，語句：Ｄimstudeｎｔ(10ｔo１1,４)定義的數(shù)組有(）個(gè)元素。A.２0Ｂ.22C.1０Ｄ.1１25．已知Ｅng（1)=9０，Math（1)=８0，Coｍp(1)=95Ｔotal(1)=Eｎｇ(1)＋Math(１）＋Cｏｍp（１）,則Ｔｏｔal（1)=（)。A．26５B.90C.８0D.9526.已知在“通用”代碼有以下語句：DｉmA（)AsInｔeger則,在某一事件代碼中使用()是對的的。A.ＲeDimA(30,4)B.ReＤimＡ(４)AsＣ.ＲｅDｉｍA(1０0) D.ＲeDｉmＡ()27．Ｉnt（-２3.512)的值為（)。A．-２3Ｂ.－２４C.24D．23２8.將ASCII碼轉(zhuǎn)換成字符串的函數(shù)是（)。Ａ．Chr$B．Ｓtｒ$Ｃ.AscD.Ｖal29.表達(dá)式Miｄ("Ｂeijinｇ2０23",4,4)的值是（)。A.ＢｅiｊB.ｊiｎgＣ.ｉｎｊ2Ｄ.20２３3０.Ａ$="+3.１４＋2＂，則Vａl(A＄）的值為（)。A.+3．14+2Ｂ.+5.1４C.3.14Ｄ．二、填空題:請把答案填在題中橫線上。ＶisuａlＢasic中有一種控件組合了文本框和列表框的特性，這種控件是_____＿_(dá)。VisuａlBaｓic提供的對數(shù)據(jù)文獻(xiàn)的三種訪問方式為隨機(jī)訪問方式,＿_(dá)＿_(dá)___＿＿_(dá)和二進(jìn)制訪問方式。為了能在運(yùn)營時(shí)把d:\ｐｉｃ文獻(xiàn)夾下的圖形a.jpg裝入圖片框Picture1,所使用的語句為__＿_(dá)______＿。計(jì)時(shí)器控件能有規(guī)律的以一定期間間隔觸發(fā)_______事件，并執(zhí)行該事件過程中的程序代碼。ViｓualBasic應(yīng)用程序中標(biāo)準(zhǔn)模塊文獻(xiàn)的擴(kuò)展名是_＿＿_(dá)_____＿_(dá)_。與數(shù)學(xué)表達(dá)式cos2(a+b）÷(3+x)+5相應(yīng)的VisualBａｓiｃ表達(dá)式是____＿_(dá)_______．要同時(shí)選定窗體上的多個(gè)控件,可以按住______或_____＿＿鍵,然后依次單擊窗體上的各控件.在ViｓuaｌBａsｉc中最基本的對象是_＿_(dá)＿_(dá)_____.要在VisuａｌBasｉｃ工程中添加一個(gè)新的窗體,可以在主窗口的工具欄中選擇＿_(dá)_____按鈕.在代碼窗口中,輸入某行代碼并按回車鍵之后,假如代碼變成______顏色,說明該行代碼有語法錯(cuò)誤.三、程序改錯(cuò):程序功能:已知2４有8個(gè)正整數(shù)因子(即：1,2,3，4,６,8,12,２4)，而24正好被其因子個(gè)數(shù)8整除。問[100，3００]之間有多少個(gè)這樣的數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤,使它能輸出對的的結(jié)果。PrivａｔeSubComｍand1_Click()Ｄｉｍn1AsＩnteger,n2AsIntegｅｒＤimxＡsIntegeｒDimiAsInteｇern2=0Forx＝10０To300ｎ２=0Forｉ＝1To100ＩｆxMoｄi=0Tｈenｎ1＝n1＋1ＥndIfNexｔiIｆxMoｄn1=0Tｈenn2=n２+1EnｄIfNextxPｒｉntｎ2Endsｕb2.程序功能:運(yùn)用函數(shù)pd計(jì)算1~500０之間能被17和３7整除的數(shù)的個(gè)數(shù)。程序中有錯(cuò)誤,改正錯(cuò)誤，使程序能輸出對的的結(jié)果。PrivateSubCommanｄ1_Clｉck（)DimiAsInｔeｇerDｉmｓAsIｎtegeｒs=0Forｉ＝1Tｏ500０Ｉfpd(ｉ)Thens＝s＋1ＮextiPrintsEｎdSubＰrivateFｕnｃtｉonpd(ｘＡsInｔeger)ＡsBooleａｎＩfxMod17=0OrxＭod3７＝0Thenpｄ=TruｅElｓｅpd=FａlseEndIfEndＦucｔｉoｎ3.程序功能：根據(jù)整型參數(shù)m，計(jì)算10０－999的平方根的倒數(shù)之和。程序的函數(shù)fun()中有一行有錯(cuò)誤,改正錯(cuò)誤，使它能輸出對的的結(jié)果。PriｖateSubＣoｍmand１_Ｃｌiｃｋ(）PｒintFormat(fｕn(100,９99）,"#．#＃＃###"）ＥnｄＳuｂＰｒivateFｕncｔionfｕn(ｍAｓＩnteger，nＡｓＩｎteｇer)AsＳiｎgley＝0Foｒｉ=mTont=1／Sｑr(ｉ)y=y+tNextifｕn=ｔEndFunctiｏn四、程序填空題。１．士兵在演練過程中，隊(duì)伍變換成10、21、35、60行時(shí)，隊(duì)形都能成為矩形。問參與演練的士兵最少有多少人？ＰｒｉvateSubForm＿Ｃlick()Dima％,ｂ％,c%，d%，n%ａ=10b＝2１c=35ｄ＝６０n=６０ＤｏＷhile_＿_(dá)＿＿＿_(dá)__＿_(dá)_＿＿＿_(dá)＿_(dá)__＿_(dá)___＿＿_(dá)____n＝n+1ＬoｏpPｒiｎtnＥndSub２．用cos(x)≈1-x＾2/2!+x＾４/4!－……＋(-１)^（n)*（x^（2n)）／(２ｎ）!的公式求近似值,直到最后一項(xiàng)絕對值小于0.00０01為止。設(shè)x＝７。PrｉvatｅSｕbＦoｒm＿cliｃｋ()DimxAsＩnｔｅgｅr,ｉＡｓIｎtｅgerDimxpowｅrAｓSiｎglｅDimｙAｓSiｎｇlex=Vaｌ(ＩnputBox("請輸入x:"))i=0ｚ=１y=1DoWhileAbｓ（z）＞0．０0０01factor=1i＝i+1Forj＝1To2＊ifactoｒ＝faｃtｏr＊jＮｅxtjxpoｗｅr=x＾(２＊i）__＿_(dá)＿_(dá)_＿＿_(dá)＿_(dá)__＿_(dá)____＿_(dá)___＿_(dá)_＿_(dá)＿_(dá)y＝ｙ＋zLｏｏｐPrintｆormaｔ（ｙ,"０.##＃＃##"）EnｄＳub3．已知一個(gè)數(shù)列的前3項(xiàng)為０，0，１，從第4項(xiàng)開始,每項(xiàng)為前3項(xiàng)的和，編程求此數(shù)列的第39個(gè)數(shù)。ＰrivaｔeＳubＦorm_Clicｋ(）Dimｉ％,ｆ０&,f１&,f２＆,ｆ3＆FｏｎｔSｉze=14:FontBold=Ｔrｕef０=0f1=0f２=1Fori=４to39_＿_(dá)_＿_(dá)__＿_(dá)______f０=ｆ1ｆ1=f2ｆ2=ｆ３NextiPrinｔf3ＥndSub五、編程題:1、編寫程序，驗(yàn)證輸入的3位正整數(shù)是否為同構(gòu)數(shù)。Ｘ若出現(xiàn)在自己的平方數(shù)的末3位，則X是同構(gòu)數(shù)。如6２5的平方是3９0６25，則625為同構(gòu)數(shù)。2.設(shè)有如下兩組數(shù)據(jù):Ａ:1，２,3，4,５，6，7，8,9,1０B:１00,99,98,97,９６,95,94，９3，92,91,編寫一個(gè)程序,把上面兩級數(shù)據(jù)分別讀入兩個(gè)數(shù)組中，然后把兩個(gè)數(shù)組中相應(yīng)的元素相加,即1+100……10＋9１。并把相應(yīng)的結(jié)果放入三個(gè)數(shù)組中,最后輸出第3個(gè)數(shù)組的值。3.用Ｃircｌe方法畫圓弧和橢圓弧。如下圖所示。規(guī)定：中心點(diǎn)相同,圓弧長度和角度隨機(jī)，顏色隨機(jī)，圓弧數(shù)為２０。4．在圖片框中用PSet方法隨機(jī)地產(chǎn)生若干個(gè)彩色的點(diǎn)。窗體上有3個(gè)命令按鈕：“畫點(diǎn)”、“清除”、和“退出”。如下圖所示。PSｅｔ方法：[對象名.］Pseｔ［Step](ｘ,y）[,顏色］六、問答題(１5分）簡述多文檔及其特性。簡述對話框的分類和特點(diǎn)。《VB程序設(shè)計(jì)與應(yīng)用》答案一、選擇題：在每小題給出的四個(gè)選項(xiàng)中，只有一項(xiàng)是符合題目規(guī)定的,請把所選項(xiàng)前的字母填在題后的括號內(nèi)。1234５BABＣB６789１0ＤCCCD1１1２１３1４１５DＣAＡＡ1６1７１819２0AＣAAB２１22232４2５CＤACA262７28２930CBABC二、填空題：請把答案填在題中橫線上。組合框順序訪問方式Piｃｔｕre1.pｉcture=ＬoadPｉcture(“ｄ:\pic\ａ．jpｇ”)Tiｍｅr．bas(ｃos(a＋b))^2/（３＊x）+５SｈiftCtrｌ窗體添加窗體紅色三、程序改錯(cuò)題第七行n2=0改成n1＝0? 第八行Fori＝1Ｔo100改成Foｒi=１Tox第十一行Or?改成And第十行ｆｕｎ＝ｔ改成fｕn=y四、程序填空題?(ａ*10０0＋ｂ*100＋c*１0+d)＊e=b＊１0００+c＊10０+d＊10+e100-i-j=(100-5＊ｉ-j)*2c=（iMod100）＼1０

五、編程題：1.編程代碼為：Ｐrivａt(yī)ｅSｕbCommａnｄ1＿Clｉｃｋ()Dｉmｉ,ｍＡsIntegerＦorｉ＝1０0Tｏ9９9m=(i*i）Moｄ１00０Ifi=mThenＰriｎtｉEndIfNｅxtiＥndSub２.編程代碼PriｖateSｕbComｍａnｄ1_Clｉｃｋ()Dima(10)，ｂ()，c（１0）AｓIntegｅrFori＝1Tｏ10ａ(i)=iＮeｘtib=Aｒｒay(１00,99,９8,９7,9６,95，94,93,92，91）Foｒｉ=１Tｏ1０c(ｉ)=ａ(ｉ)+b(i－1)Priｎtc(i)NｅxtｉEｎｄＳuｂ3．用Ｃiｒcle方法畫圓弧和橢圓弧。如下圖所示。規(guī)定：中心點(diǎn)相同,圓弧長度和角度隨機(jī),顏色隨機(jī),圓弧數(shù)為２０。PrｉvaｔeSuｂCommand2_Cliｃｋ()pｉ=3．1415926a１＝０c＝1DrawＷidｔｈ＝1Ｆｏrｒ＝1０0To2０23Ｓtep１０0a2=(a2＋(ｐi/２))Mｏｄ(２*pi)Cｉrcｌe(1800,1２00)，ｒ,ＱBCｏlor(c）,ａ1,a２a１=a1＋(pi/4)ｃ=c+1DrawWiｄth＝ＤrawWｉdtｈ+1ＮextrEndSｕbPｒivateSｕbCoｍmaｎd３＿Click()ＣlｓEnｄＳub4.編程代碼為:PｒiｖatｅＳｕbＣoｍmaｎd1_Ｃlick()Piｃｔｕrｅ1.DrａｗＷiｄth=10Fori＝1Ｔo100r=Int（256*Rnd)g＝Ｉnt(25６*Rnｄ)b=Ｉnt(２5６*Rｎd）ｘ=Ｒnd*Wｉdｔhy＝Ｒnd*HeiｇｈtPicture1.PＳet(x,y),RＧB（r,g，b)ＮexｔiEndSuｂPｒivateSubCoｍmand2_Cｌiｃk(）Picｔure１．ClsEｎdSubPrivateSubＣomｍanｄ３_Clicｋ()EndEndＳub六、問答題簡述多文檔及其特性。答：定義：多文檔界面