版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
二級(jí)上機(jī)測(cè)試中VB程序設(shè)計(jì)及程序調(diào)試樣題浙江省計(jì)算機(jī)等級(jí)考試〔二級(jí)浙江省計(jì)算機(jī)等級(jí)考試〔二級(jí)VB〕上機(jī)測(cè)試的程序設(shè)計(jì)題,從2023年秋季開(kāi)頭,其題型及考試要求都有較大變化。要求考生在老考生名目中,依據(jù)題目要求,自己建一工程文件Design.Vbp,按題目要求完成界面設(shè)計(jì)和編寫(xiě)相應(yīng)大事代碼。程序設(shè)計(jì)題的操作步驟如下:留意:界面設(shè)計(jì)中,以默認(rèn)方式命名控件,從左至右,從上向下的挨次拖放控件。在調(diào)試過(guò)程中,考生可通過(guò)運(yùn)行考生名目下的Design.exe文件來(lái)查看程序的最終效果。把自己完成的程序運(yùn)行效果同它比較,假設(shè)有不同,再次檢查你的界面設(shè)計(jì)和程序代碼是Design.exe1VisualBasic6.0Design.exe文件,以便考生設(shè)計(jì)時(shí)隨時(shí)同程序設(shè)計(jì)要求最終效果比較。2.程序界面設(shè)計(jì),要求考生設(shè)置窗體指定的一些屬性,在窗體添加控件,并設(shè)置控件的某些屬性。3.編寫(xiě)程序代碼,依據(jù)題目的要求,在代碼窗口中編寫(xiě)相應(yīng)大事的程序代碼,調(diào)試運(yùn)行程序使其程序的運(yùn)行效果與運(yùn)行Design.exe的效果一樣。留意:界面設(shè)計(jì)中,以默認(rèn)方式命名控件,從左至右,從上向下的挨次拖放控件。在調(diào)試過(guò)程中,考生可通過(guò)運(yùn)行考生名目下的Design.exe文件來(lái)查看程序的最終效果。把自己完成的程序運(yùn)行效果同它比較,假設(shè)有不同,再次檢查你的界面設(shè)計(jì)和程序代碼是Design.exe下面是計(jì)算機(jī)等級(jí)考試〔二級(jí)VisualBasic程序設(shè)計(jì)〕上機(jī)測(cè)試的程序設(shè)計(jì)樣題。假設(shè)學(xué)生要上機(jī)做這些試題,由于你的計(jì)算機(jī)中沒(méi)有Design.EXE文件,你可自己?jiǎn)?dòng)VisualBasic6.0系統(tǒng),建一標(biāo)準(zhǔn)EXE工程,按題目的要求設(shè)計(jì)界面、添加所需控件并設(shè)置相關(guān)屬性,編寫(xiě)相應(yīng)大事代碼,使其程序運(yùn)行結(jié)果能實(shí)現(xiàn)題目的要求?!惨弧吵绦蛟O(shè)計(jì)題請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“添加與刪除”程序的設(shè)計(jì)。將工Design.VbpDesign.frm保存到考試名目下,具體要求如下:在窗體中引入一個(gè)文本框Text1,再在文本框的下面引入一個(gè)列表框List1,列表框內(nèi)容中有四項(xiàng),分別為“Wor、Exce、PowerPoint、Outlook。單擊“添加”按鈕Command1單擊“刪除”按鈕Command2其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-1所示。2-1“添加與刪除”程序運(yùn)行結(jié)果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“加法器”程序的設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:在窗體上從到下依次引入Text1、Text2、Text3三個(gè)文本框,三個(gè)文本框的對(duì)齊方式均為右對(duì)齊。上面兩個(gè)文本框用于輸入加數(shù),要求不承受非數(shù)字鍵下面一個(gè)文本框用于顯示和,它不能進(jìn)展編輯操作。單擊“=”按鈕〔Command1,將兩個(gè)加數(shù)的和顯示在下面一個(gè)文本框中。單擊“清空”按鈕Command2,三個(gè)文本框內(nèi)容都被清空,同時(shí)第一個(gè)文本框獲得焦點(diǎn)。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-2所示。2-2“加法器”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“字幕滾動(dòng)”程序設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:在屬性窗口中將標(biāo)簽(Label1)單擊“開(kāi)頭”按鈕,標(biāo)簽文字在定時(shí)器掌握下自動(dòng)地從左向右移動(dòng),移動(dòng)速度為每個(gè)時(shí)間間隔右移100緹,當(dāng)標(biāo)簽移動(dòng)到窗體外時(shí),再?gòu)拇绑w的左邊進(jìn)入,同時(shí)“開(kāi)頭”按鈕變?yōu)椤巴nD”按鈕。按鈕。定時(shí)器〔Timer1〕的時(shí)間間隔為0.1秒。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-3所示。2-3“字幕滾動(dòng)”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“轉(zhuǎn)變字號(hào)”程序設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體的下部有一個(gè)水平滾動(dòng)條Hscroll1,它的取值范圍為[12,72]。窗體的上部有一個(gè)標(biāo)簽Label1,水平滾動(dòng)條的上有一個(gè)標(biāo)簽Label2,Text112Text1最多承受兩個(gè)字符。Text1中顯示標(biāo)簽文字的大小轉(zhuǎn)變后的字號(hào)。在文本框Text1中輸入一個(gè)屬于[12,72]的兩位整數(shù)后,也可以轉(zhuǎn)變標(biāo)簽文字的大小,并同時(shí)調(diào)整水平滾動(dòng)條的滾動(dòng)框位置;假設(shè)輸入的數(shù)據(jù)不在上述范圍內(nèi),則不起作用〔要求用Text1Change大事實(shí)現(xiàn)。要求以上兩種轉(zhuǎn)變字號(hào)的操作要保持標(biāo)簽Label1在窗體中水平居中。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-4所示。圖2-4 “轉(zhuǎn)變字號(hào)”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“字幕閃耀”程序設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:在屬性窗口中將標(biāo)簽(Label1)單擊“開(kāi)頭”按鈕,標(biāo)簽文字在定時(shí)器掌握下自動(dòng)交替以紅蘭兩種顏色顯示。同時(shí)“開(kāi)頭”按鈕變?yōu)椤巴nD”按鈕。定時(shí)器〔Timer1〕的時(shí)間間隔為0.3秒。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-5所示。圖2-5 “字幕閃耀”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“圖片賞識(shí)”程序設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體上有驅(qū)動(dòng)器列表框〔Drive1、名目列表框〔Dir1〕和文件列表框〔File1〕要求三個(gè)控件能夠聯(lián)動(dòng)。窗體的右半部有一個(gè)圖像框Image1,將它的Stretch屬性設(shè)置為T(mén)rue。設(shè)置文件列表框只顯示*.bmp和*.jpg類(lèi)型的圖片文件。單擊文件列表框上的圖片文件名時(shí),圖片顯示在圖像框中。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-6所示。圖2-6 “圖片賞識(shí)”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“撥號(hào)盤(pán)”程序設(shè)計(jì)。將工程文件Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體的上邊有一個(gè)文本框Text1,設(shè)置為最多承受10個(gè)字符;Font;宋體、粗體、三號(hào);文字顏色為蘭色。用命令按鈕數(shù)組Command1(0)~Command1(9)組的下標(biāo)全都。單擊數(shù)字鍵按鈕,將撥號(hào)的內(nèi)容顯示在文本框中。單擊“重?fù)堋卑粹oCommand2,再現(xiàn)原來(lái)的撥號(hào)過(guò)程〔提示:再現(xiàn)過(guò)程由定時(shí)器實(shí)現(xiàn)。定時(shí)器〔Timer1〕的時(shí)間間隔為0.5秒。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-7所示。2-7“撥號(hào)盤(pán)”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“作圖”程序設(shè)計(jì)。將工程文件以Design.Vbp、窗體文件以Design.frm保存到考試名目下,具體要求如下:窗體的右邊是一個(gè)圖片框Picture1,用于顯示圖形。單擊“坐標(biāo)系”按鈕〔Command1,將圖片框的坐標(biāo)系統(tǒng)設(shè)置為原點(diǎn)在中心,X軸[-10,10],Y軸[-10,10],并在圖片框中畫(huà)出該坐標(biāo)系統(tǒng)示意圖。單擊“扇形”按鈕Command2,在圖片框中畫(huà)一個(gè)圓心在原點(diǎn),半徑為52,內(nèi)部為綠色,起始角為л/65л/6的扇形。單擊“完畢”按鈕〔Command3,程序完畢運(yùn)行,其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-8所示。圖2-8 “作圖”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“反彈球”程序的設(shè)計(jì)。將工程文Design.vbpDesign.frn保存到考生名目下,具體要求如下:設(shè)計(jì)兩個(gè)菜單項(xiàng),nnustartnnustop在窗體中引入一個(gè)外形控件Shapel,外形為圓,賀半徑為500Twios,填充色為紅色。第一次單擊菜單“啟動(dòng)bxby100Twips。定時(shí)器〔timerl〕的時(shí)間間隔為0.1秒。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-9所示。圖2-9 “反彈球”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“安康稱(chēng)”程序的設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體的左邊有兩個(gè)標(biāo)簽,Label1Label2分別有兩個(gè)文本框,Text1用于輸入身高、Text2用于輸入體重;在文本框的右邊有兩個(gè)標(biāo)簽,Label3的標(biāo)題為“cmLabel4的標(biāo)題為“kg將兩個(gè)文本框文字對(duì)齊方式均設(shè)置為右對(duì)齊,最多承受3個(gè)字符。兩個(gè)文本框均不承受非數(shù)字鍵。單擊“安康狀況”按鈕(Command1),依據(jù)計(jì)算公式將相應(yīng)的提示信息顯示在標(biāo)簽Label5中。=身高-105*1.1為偏胖,提示“偏胖,留意節(jié)食*0.9其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-10所示。圖2-10 “安康稱(chēng)”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“電子鐘”程序的設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:設(shè)計(jì)兩個(gè)定時(shí)器,Timer1Timer2用于推斷鬧鐘時(shí)間,0.5秒,Timer2設(shè)置為不行用。窗體的上半部是標(biāo)簽Label1,用于顯示時(shí)間,設(shè)置Label1的Font為:宋體、粗體、二號(hào),背景白色,文字居中對(duì)齊,固定邊框。窗體的下半部有一個(gè)標(biāo)簽Label2Label2的右邊是文本框Text。在文本框中輸入鬧鐘時(shí)間并按回車(chē)后,啟動(dòng)推斷鬧鐘時(shí)間的定時(shí)器Timer2Label1顯示的時(shí)間超過(guò)那種時(shí)間,則標(biāo)簽Label1的背風(fēng)光按紅白兩色交替變換。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-11所示。圖2-11 “電子鐘”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“轉(zhuǎn)變大小”程序的設(shè)計(jì)。將工程Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體上引入一個(gè)紅色的圓形外形控件〔Shape1,圓的直徑為3400Twip。Hscroll1,將它的最大值設(shè)置為與圓的直徑一樣,初始值為最大值,SmallChangeLargeChange100Twips。Label1Label20轉(zhuǎn)變滾動(dòng)條的值可以掌握?qǐng)A形的直徑,同時(shí)在標(biāo)簽Label2中動(dòng)態(tài)顯示圓形的直徑。要求圓形直徑在變化時(shí)要保持圓心位置不變。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-12所示。圖2-12 “轉(zhuǎn)變大小”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“點(diǎn)餐”程序的設(shè)計(jì)。將工程文件Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體上有一個(gè)框架Frame1Check1(0)的標(biāo)題為“兒童套餐13Check1(1)的標(biāo)題為“標(biāo)準(zhǔn)套餐18Check1(2)的標(biāo)題為“商務(wù)套餐25Label1Text1(0)Text1(1)和Text1(2),文本框中都沒(méi)有內(nèi)容,并且都不能使用。在復(fù)選框中進(jìn)展了選擇操作后,相應(yīng)的文本框才能輸入并自動(dòng)獲得焦點(diǎn);假設(shè)取消選擇,那么相應(yīng)的文本框內(nèi)容馬上清空并且不能使用了。要求文本框在輸入時(shí)只承受數(shù)字鍵。單擊“確定”按鈕(Command1),統(tǒng)計(jì)點(diǎn)餐的金額,并用消息框顯示出來(lái)。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-13所示。圖2-13 “點(diǎn)餐”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“編輯”程序的設(shè)計(jì)。將工程文件Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體是上半部是一個(gè)文本框Text1,可以多行顯示文字。文本框的下面從左到右依次排列4個(gè)命令按鈕〔Command1、Command2、Command3和Command4其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-14所示。圖2-14 “編輯”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“字體設(shè)置”程序的設(shè)計(jì)。將工程Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體的上邊有一個(gè)文本框Text1文本框下面的左邊有一個(gè)標(biāo)簽Label11,有三項(xiàng)內(nèi)容,分別是“宋體、黑體、楷體-GB2313文本框下面的右邊有一個(gè)標(biāo)簽Label22,有八項(xiàng)內(nèi)容,分別是“10、1216、20、24、36、48、72小進(jìn)展設(shè)置。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-15所示。圖2-15 “字體設(shè)置”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“倒計(jì)時(shí)”程序的設(shè)計(jì)。將工程文Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體的左邊有一個(gè)框架Frame1上到下為Option1(0)、Option1(1)和Option1(2),標(biāo)題分別為“15分鐘”和“10分鐘,1分鐘。窗體的右邊有一個(gè)標(biāo)簽Label1,用于顯示倒計(jì)時(shí)的剩余的時(shí)間,標(biāo)簽Label1、粗體、三號(hào),文字居中對(duì)齊,固定邊框。單擊“開(kāi)頭計(jì)時(shí)”按鈕(Command1)后,程序依據(jù)選擇的時(shí)間開(kāi)頭倒計(jì)時(shí),同時(shí)命令按鈕變?yōu)椴恍惺褂?,框架也不行使用。但?dāng)剩余時(shí)間到0分0Timer11秒。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-16所示。圖2-16 “倒計(jì)時(shí)”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“替換”程序的設(shè)計(jì)。將工程文件Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體的上半部是一個(gè)文本框Text1,可以多行顯示文字。文本框Text1的下面有一個(gè)標(biāo)簽Label1Label1Text2Text2中輸入查找內(nèi)容。標(biāo)簽Label1的下面有一個(gè)標(biāo)簽Label2Label2Text3Text3中輸入替換為的內(nèi)容。單擊“替換”按鈕(Command1),對(duì)文本框Text1中與查找內(nèi)容匹配的文字進(jìn)展替換操作。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-17所示。圖2-17 “替換”程序運(yùn)行效果請(qǐng)參考Design.exe程序的運(yùn)行結(jié)果,建一個(gè)工程,完成“偶數(shù)遷移”程序的設(shè)計(jì)。將工程Design.VbpDesign.frm保存到考試名目下,具體要求如下:窗體的左邊有一個(gè)標(biāo)簽Label1List1。窗體的右邊有一個(gè)標(biāo)簽Label2List2。單擊“產(chǎn)生”按鈕Command1,計(jì)算機(jī)產(chǎn)生10個(gè)兩位正整數(shù)放入列表框List1List2中的內(nèi)容。單擊“”按鈕〔Command2,將列表框List1中全部偶數(shù)遷移到列表框List2中。其他界面設(shè)計(jì)參考Design.exe程序運(yùn)行效果,如圖2-18所示。圖2-18 “偶數(shù)遷移”程序運(yùn)行效果〔二〕程序調(diào)試程序調(diào)試題的操作步驟是:EXE工程,將這一模塊程序添加到工程中。假設(shè)你是通過(guò)雙擊標(biāo)準(zhǔn)模塊程序Model1.BASVisualBasic系統(tǒng)的,則首先需要添加一個(gè)窗體模塊。將該標(biāo)準(zhǔn)模塊程序Model1.BAS中代碼的指定的錯(cuò)誤修改正確或在指定的空位填上適當(dāng)?shù)摹睠lick大事中〕Sub過(guò)程或用戶自定義函數(shù)〔假設(shè)在標(biāo)準(zhǔn)模塊程序Model1.BAS有多個(gè)過(guò)程或函數(shù),要留意調(diào)用的先后挨次,否則得不到正確結(jié)果,調(diào)試運(yùn)行程序,使其能輸出正確結(jié)果。按試題要求保存工程。假設(shè)你的計(jì)算機(jī)中沒(méi)有模塊程序Model1.BAS,你必需先自己建一工程,再添加一個(gè)默認(rèn)標(biāo)準(zhǔn)模塊,將題目所附的參考程序輸入〔可復(fù)制粘貼,將其中用---n---〔n為1,2,3,4,5〕刪除后改為適宜的內(nèi)容或?qū)⒂?***錯(cuò)誤n****序使其到達(dá)該題目的要求。已有一模塊文件Modify.Bas。該模塊中的Summary過(guò)程是用于計(jì)算1!+2!+...+20!,并打印出計(jì)算結(jié)果,但不完整,請(qǐng)?jiān)跈M線上填入必要的內(nèi)容,使其完整。Modify.Bas模塊中的nFactor函n!。程序如下:PublicFunctionnFactor(ByValnAsInteger)AsDoubleDimiAsIntegerDimtempAsDouble----1----Fori=1Tontemp=temp*iNextinFactor=----2----EndFunctionPublicSubsummaryDimsumAsDoubleDimiAsIntegerDimnAsIntegern=20Fori=1Tonsum=sum+----3----NextiForm1.Print“sum=“&----4----EndSub已有一模塊文件Modify.Bas。該模塊中的Calculate過(guò)程是產(chǎn)生100個(gè)[0,99]范圍內(nèi)的隨機(jī)整1,2,3,4,5,6,7,8,9,0的數(shù)的個(gè)數(shù)并打印出來(lái)。程序如下:PublicSubcalculateDima(1To100)AsIntegerDimx(1To10)AsIntegerDimiAsInteger,pAsInteger”100個(gè)[0,99]范圍內(nèi)的隨機(jī)整數(shù)”10個(gè)打印出來(lái)Fori=1To100”********1***********a(i)Rnd*100Ifa(i)<10ThenForm1.PrintSpace(2);a(i);ElseForm1.PrintSpace(1);a(i);EndIfIfiMod10=0ThenForm1.PrintNexti”統(tǒng)計(jì)個(gè)位上的數(shù)字分別為1,2,3,4,5,6,7,8,9,0的數(shù)的個(gè)數(shù)”并將統(tǒng)計(jì)結(jié)果保存在數(shù)組x(1),x(2),...,x(10)中,將統(tǒng)計(jì)結(jié)果打印出來(lái)Fori1To100”********2**********pInt(a(i)/10) Ifp0Thenp10”********3**********x(p)x(p)1NextiForm1.Print統(tǒng)計(jì)結(jié)果“Fori=1To10p=iIfi=10Thenp=0”********4*********Form1.Print個(gè)位數(shù)為Str(p)共Str(x(p))個(gè)“NextiEndSub已有一模塊文件Modify.Bas。該模塊中的Findat過(guò)程是用于在一個(gè)字符串變量中查找“at“,并用使其完整。程序如下:PublicSubFindat”str1中查找“at“Dimstr1AsStringDimlengthAsInteger字符串長(zhǎng)度DimsumAsInteger”查到的個(gè)數(shù)DimiAsIntegerstr1InputBox(“請(qǐng)輸入一個(gè)字符串“)length----1----i=1sum=0DoWhilei<=----2----If----3 =“at“Thensum=sum+1EndIfi=i+1LoopIf----4 ThenMsgBox沒(méi)有找到!“ElseMsgBox找到了&Str(sum)&個(gè)“EndIfEndSub已有一模塊文件Modify.Bas。該模塊中的Guess過(guò)程是猜數(shù)玩耍,由計(jì)算機(jī)產(chǎn)生一個(gè)[1,100]的任意整數(shù),輸入猜數(shù)后計(jì)算機(jī)給出提示,假設(shè)5次后還沒(méi)有猜中就完畢玩耍并公布正確答案。程序如下:PublicSubGuessDimRAsIntegerDimXAsIntegerDimtimesAsIntegerRandomize”******1******R=Rnd*100”1--100的任意整數(shù)times=1DoX=Val(InputBox(“X“))SelectCaseXCaseRForm1.Print猜中了“ExitDo”*****2******CaseX>RForm1.Print太大了,連續(xù)猜!“CaseElseForm1.Print太小了,連續(xù)猜!“EndSelecttimes=times+1”******錯(cuò)誤3******LoopWhiletimes>5Iftimes5ThenForm1.Print猜數(shù)失敗,玩耍完畢!“”******錯(cuò)誤4******Form1.Print正確答案為&Str(X)EndIfEndSub已有一模塊文件Modify.BasArmstrongNumber過(guò)程是用于求出1--999之間全部的Armstrong數(shù),并打印出來(lái),但不完整,請(qǐng)?jiān)跈M線上填入必要的內(nèi)容,使其完整。所謂Armstrong371=3^3+7^3+1^3371就是一個(gè)數(shù)。程序如下:PublicSubArmstrongNumberDimarmstrongAsIntegerDimiAsIntegerDimhundredAsInteger百位上的數(shù)字DimtenAsInteger十位上的數(shù)字DimoneAsInteger個(gè)位上的數(shù)字Fori1To999hundred=----1----ten=----2----one=----3----If----4 ThenForm1.Printi;“isarmstrongnumber“EndIfNextiEndSubModify.BasCountTo60過(guò)程是用于從一堆一分、二分、五分的硬幣中取出20枚,使其總值為60分,要求輸出取法的數(shù)量及每一種取法的一分、二分、五分的個(gè)數(shù)。程序如下:PublicSubCountTo60”從一堆一分、二分、五分的硬幣中取出2060分”輸出取法的數(shù)量及每一種取法的一分、二分、五分的個(gè)數(shù)DimoneAsInteger一分硬幣個(gè)數(shù)DimtwoAsInteger二分硬幣個(gè)數(shù)DimfiveAsInteger五分硬幣個(gè)數(shù)Constn=20”總數(shù)20枚DimkAsInteger k=0Forone=1Ton”*******錯(cuò)誤1********Fortwoone1Tonfive=n-one-two”*******錯(cuò)誤2*********Ifonetwofive60Thenk=k+1Form1.Print“one=“;one;“two=“;two;“five=“;fiveEndIf”*******3********Nextone”******錯(cuò)誤4******NexttwoForm1.Print“k=“;kEndSub已有一模塊文件Modify.Bas。該模塊中的TJ過(guò)程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來(lái),但不完整,請(qǐng)?jiān)跈M線上填入必要的內(nèi)容,使其完整。Modify.Bas模塊中的SCSJ過(guò)程是產(chǎn)生數(shù)據(jù),數(shù)據(jù)的取值范圍為-10~10之間的隨機(jī)數(shù)。程序如下:PrivateConstn=10Privatea(1Ton)AsInteger”TJ過(guò)程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來(lái)”SCSJ過(guò)程產(chǎn)生,數(shù)據(jù)的取值范圍為-10~10之間的隨機(jī)整數(shù)PublicSubTJDimiAsIntegerDimtAsSingle 1 Fori=1To10If--------2 Thent=t*a(i)EndIfNextiForm1.Print“T=“;tEndSubPublicSubSCSJRandomizeForm1.Print原始數(shù)據(jù)“DimiAsIntegerDimjAsIntegerFori=1Ton”0101時(shí)取正j=Int(Rnd*2)If ------3 ThenJ=-1a(i)=j*Int(Rnd*(n+1))Form1.Printa(i);NextiForm1.PrintEndSub已有一模塊文件Modify.BasMoney過(guò)程是用于統(tǒng)計(jì)一個(gè)有7個(gè)工作人員的餐廳發(fā)工資所需的100元、50元、10元、5元和1元的票面數(shù),但不完整,請(qǐng)?jiān)跈M線上填入必要的內(nèi)容,使其完整。Modify.Bas模塊中的SalaryData過(guò)程是給出7〔工資單位是元〕程序如下:Dimsalary(7)AsIntegerPublicSubMoneyDimhundredAsInteger,totalhundredAsInteger”100元票面數(shù)量、總數(shù)量DimfiftyAsInteger,totalfiftyAsInteger”50元票面數(shù)量、總數(shù)量DimtenAsInteger,totaltenAsInteger”10元票面數(shù)量、總數(shù)量DimfiveAsInteger,totalfiveAsInteger”5元票面數(shù)量、總數(shù)量DimoneAsInteger,totaloneAsInteger”1元票面數(shù)量、總數(shù)量DimtotalsalaryAsInteger工資總計(jì)DimiAsInteger,tempAsIntegertotalhundred=0totalfifty=0totalten=0totalfive=0totalone=0totalsalary=0Fori=1To7temp=----1----hundred=Int(temp/100)temp=----2----fifty=Int(temp/50)temp=temp-fifty*50ten=Int(temp/10)temp=temp-ten*10five=Int(temp/5)temp=temp-five*5one=----3----totalhundred=totalhundred+hundredtotalfifty=totalfifty+fiftytotalten=totalten+tentotalfive=totalfive+fivetotalone=totalone+onetotalsalary= ----4----NextiForm1.Print“100元“&Str(totalhundred)&“張“Form1.Print“50元“&Str(totalfifty)&“張“Form1.Print“10元“&Str(totalten)&“張“Form1.Print“5元“&Str(totalfive)&“張“Form1.Print“1元“&Str(totalone)&“張“Form1.Print合計(jì)&Str(totalsalary)&元“EndSubPublicSubSalaryDatasalary(1)=1398salary(2)=1765salary(3)=689salary(4)=1500salary(5)=832salary(6)=590salary(7)=1200EndSub已有一模塊文件Modify.Bas。該模塊中的MaxLine過(guò)程用于查找一個(gè)5行4列的二維數(shù)組中行平均值最大的行,并將該行全部數(shù)據(jù)調(diào)整到第一行的位置。Modify.Bas模塊中的DataProduce過(guò)程用于產(chǎn)生原始數(shù)據(jù);Average過(guò)程用于計(jì)算各行的平均值;PrintArray過(guò)程用于打印二維數(shù)組和行平均值。程序如下:Dima(1To5,1To4)AsIntegerDimave(1To5)AsIntegerPublicSubMaxLineDimiAsIntegerDimjAsIntegerDimtempAsIntegerDimLine_noAsInteger最大平均值的行號(hào)Line_no1Fori=2To5”******1*******If ave(Line_no)ave(i)Then”******錯(cuò)誤2*******Line_noave(i)EndIfNexti”交換第一行與最大平均值所在行Forj1To4temp=a(1,j)”******錯(cuò)誤3******a(Line_no,j)a(1,j)a(Line_no,j)=tempNextj”交換對(duì)應(yīng)行的平均值temp=ave(1)ave(1)=ave(Line_no)ave(Line_no)=temp”打印交換后的數(shù)據(jù)交換后的數(shù)據(jù)和平均值“PrintArrayEndSubPublicSubDataProduceDimiAsIntegerDimjAsInteger”5*4數(shù)組Fori=1To5Forj=1To4a(i,j)=Int(100*Rnd)NextjNextiEndSubPublicSubAverageDimiAsIntegerDimjAsIntegerDimsumAsInteger”計(jì)算各行平均值Fori1To5sum=0Forj=1To4”******錯(cuò)誤4******suma(i,j)Nextjave(i)=sum/4Nexti”將數(shù)組和平均值打印出來(lái)原始數(shù)據(jù)和平均值“PrintArrayEndSubPublicSubPrintArrayDimiAsIntegerDimjAsIntegerFori=1To5Forj=1To4Form1.Printa(i,j);Spc(3);NextjForm1.Print平均值ave(i)NextiEndSub已有一模塊文件Modify.Bas。該模塊中的Wrap過(guò)程用于推斷一個(gè)字符串是否“回文”。所謂“回文”是指字符串順讀與倒讀都是一樣的,如“潮起潮落,落潮起潮”。程序如下:PublicSubWrapDimlengthAsIntegerDimstr1AsStringDimstrleftAsStringDimstrrightAsStringDimkAsIntegerstr1InputBox(“請(qǐng)輸入任意的字符串輸入任意字符串”****錯(cuò)誤1*****length=Val(str1)k1Do”****錯(cuò)誤2*****strleftLeft(str1,k)從左邊起逐個(gè)取出一個(gè)字符”****3*****strrightRight(str1,k) ”從右邊起逐個(gè)取出一個(gè)字符”****4****Ifstrleft=strrightThenExitDoEndIfk=k+1LoopWhilek<=length/2Ifk>length/2ThenForm1.Printstr1&“是回文“ElseForm1.Printstr1&“不是回文“EndIfEndSub已有一模塊文件Modify.BasBubbleSort過(guò)程是冒泡排序法;GenerateData過(guò)程產(chǎn)生10個(gè)[1,20]之間互不一樣的隨機(jī)整數(shù);Swap過(guò)程交換兩個(gè)變量的數(shù)值。程序如下:PrivateConstn=10Privatea(1Ton)AsInteger”BubbleSort過(guò)程是冒泡排序”Swap過(guò)程交換兩個(gè)變量數(shù)值”GenerateData10個(gè)[1,20]之間互不一樣的隨機(jī)整數(shù)PublicSubBubbleSortDimiAsInteger,jAsIntegeri=1DoForj=i+1TonIfa(j)>a(i)Then”*******1*********Swap(a(j),a(i))EndIfNextji=i+1”*******2*******LoopWhilei=nForm1.Print排序結(jié)果“Fori=1Tona(i);NextiEndSubPublicSubGenerateDataDimiAsIntegerDimjAsIntegerDimbAsBooleanFori=1Tonb=FalseDoWhileNotba(i)=Int(20*Rnd+1)b=True”******3******Forj=1ToiIfa(i)=a(j)Thenb=FalseExitForEndIfNextjLoopa(i)NextiEndSub”********4********PublicSubSwap(ByValaAsInteger,ByValbAsInteger)DimtempAsIntegertemp=aa=bb=tempEndSub已有一模塊文件Modify.Bas。該模塊中的Transfer過(guò)程用于將一個(gè)十六進(jìn)制整數(shù)轉(zhuǎn)換為十進(jìn)制整數(shù);number函數(shù)過(guò)程用于將一個(gè)十六進(jìn)制符號(hào)轉(zhuǎn)換為數(shù)值。程序如下:PublicSubTransferDimHexAsString十六進(jìn)制數(shù)DimDecAsDouble十進(jìn)制數(shù)DimtempAsStringDimiAsIntegerDimnAsIntegerHexInputBox(“輸入一個(gè)十六進(jìn)制整數(shù)“)”******錯(cuò)誤1*******nVal(Hex)i=0Do”******2*******temp=Mid(Hex,i,1)”******錯(cuò)誤3*******DecDecnumber*16^iii1LoopWhilei<n”******4******Form1.Printstr(Hex)&轉(zhuǎn)換為十進(jìn)制數(shù)為&str(Dec)EndSubPublicFunctionnumber(strAsString)AsIntegerSelectCasestrCase“a“,“A“number=10Case“b“,“B“number=11Case“c“,“C“number=12Case“d“,“D“number=13Case“e“,“E“number=14Case“f“,“F“number=15CaseElsenumber=Val(str)EndSelectEndFunction已有一模塊文件Modify.Bas。該模塊中的SortData過(guò)程是把10個(gè)[30,50〕的隨機(jī)整數(shù)并依據(jù)從小到大的挨次打印出來(lái),但不完整,請(qǐng)?jiān)跈M線上填入必要的內(nèi)容,使其完整。Modify.BasSwap過(guò)程用于交換兩個(gè)變量的值。程序如下:PublicSubSortData”10個(gè)[30,50]的隨機(jī)整數(shù),并按從小到大的挨次打印出來(lái)Dima(10)AsIntegerDimiAsInteger,jAsIntegerFori=1To10a(i)= 1 NextiFori=1To9 2 Ifa(i)>a(j)Then 3 EndIfNextja(i)NextiForm1.print---------4--------EndSubPublicSubSwap(aAsInteger,bAsInteger)DimtempAsIntegertemp=aa=bb=tempEndSub已有一模塊文件Modify.BasPrintArray過(guò)程是用于打印一個(gè)55列的數(shù)字方陣,并使兩對(duì)角線上元素均為1,其余均為2。要求打印的數(shù)字方陣兩列數(shù)字之間空3格,兩行之間空一行。程序如下:PublicSubPrintArray”55列的數(shù)字方陣”12”要求打印的數(shù)字方陣兩列數(shù)字之間空3格,兩行之間空一行”只要修改標(biāo)出出錯(cuò)位置的下面那一條語(yǔ)句Dima(5,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To5Forj=1To5”********1*********IfijOri6jThena(i,j)=2Elsea(i,j)=1EndIf”********2*********Form1.Printa(i,j)Space(3);Nextj”*******錯(cuò)誤3*******Form1.PrintNextiEndSub已有一模塊文件Modify.Bas。該模塊中的Combination過(guò)程是用于計(jì)算在m個(gè)數(shù)據(jù)中取出n個(gè)數(shù)據(jù)的排列組合值,計(jì)算公式為Cmn=m!/(n!*(m-n)!)。Modify.BasnFactorn!。程序如下:PublicSubCombinationDimmAsIntegerDimnAsIntegerDimCmnAsLongDom=Val(InputBox(“m“))n=Val(InputBox(“請(qǐng)輸入一個(gè)整數(shù)n(n<=m)“))”******1******LoopWhilemn ”必需保證輸入的兩個(gè)數(shù)m>=n”******2******CmnnFactor(m)/nFactor(n)*nFactor(mn)Form1.Print排列組合數(shù)為CmnEndSubPublicFunctionnFactor(ByValnAsInteger)AsDoubleDimiAsIntegerDimtempAsDoubletemp=1Fori=1Tontemp=temp*iNexti”******3******nFactor(n
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 社區(qū)設(shè)計(jì)合同范例
- 購(gòu)買(mǎi)覆銅板合同范例
- 拆除補(bǔ)償合同范例
- 租用民宿拍照合同范例
- 全職店員合同范例
- 商家買(mǎi)賣(mài)合同范例
- 村級(jí)勞務(wù)合同范例
- 噴涂粉末合同范例
- 小院餐飲轉(zhuǎn)讓合同范例
- 電子設(shè)備配件合同范例
- 信用風(fēng)險(xiǎn)加權(quán)資產(chǎn)計(jì)量與管理手冊(cè)課件
- 光伏項(xiàng)目試驗(yàn)報(bào)告
- 小學(xué)“雙減”作業(yè)設(shè)計(jì):小學(xué)數(shù)學(xué)四年級(jí)上冊(cè)作業(yè)設(shè)計(jì)案例
- 知識(shí)產(chǎn)權(quán)法(英文) Intellectual Property Right Law課件
- 綜合評(píng)分法評(píng)分表(建設(shè)工程)
- SBS卷材防水施工工藝
- 深化設(shè)計(jì)確認(rèn)記錄
- 小學(xué)生心理健康教育課件
- 熱力管道焊接技術(shù)交底記錄大全
- 各級(jí)醫(yī)院健康體檢中心基本標(biāo)準(zhǔn)(2019年版)
- XX鎮(zhèn)2022年度農(nóng)產(chǎn)品綜合服務(wù)中心項(xiàng)目實(shí)施方案范本
評(píng)論
0/150
提交評(píng)論