二級上機(jī)測試中VB程序設(shè)計及程序調(diào)試樣題

二級上機(jī)測試中VB程序設(shè)計及程序調(diào)試樣題浙江省計算機(jī)等級考試〔二級浙江省計算機(jī)等級考試〔二級VB〕上機(jī)測試的程序設(shè)計題，從2023年秋季開頭，其題型及考試要求都有較大變化。要求考生在老考生名目中，依據(jù)題目要求，自己建一工程文件Design.Vbp，按題目要求完成界面設(shè)計和編寫相應(yīng)大事代碼。程序設(shè)計題的操作步驟如下：留意：界面設(shè)計中，以默認(rèn)方式命名控件，從左至右，從上向下的挨次拖放控件。在調(diào)試過程中，考生可通過運(yùn)行考生名目下的Design.exe文件來查看程序的最終效果。把自己完成的程序運(yùn)行效果同它比較，假設(shè)有不同，再次檢查你的界面設(shè)計和程序代碼是Design.exe1VisualBasic6.0Design.exe文件，以便考生設(shè)計時隨時同程序設(shè)計要求最終效果比較。2．程序界面設(shè)計，要求考生設(shè)置窗體指定的一些屬性，在窗體添加控件，并設(shè)置控件的某些屬性。3．編寫程序代碼，依據(jù)題目的要求，在代碼窗口中編寫相應(yīng)大事的程序代碼，調(diào)試運(yùn)行程序使其程序的運(yùn)行效果與運(yùn)行Design.exe的效果一樣。留意：界面設(shè)計中，以默認(rèn)方式命名控件，從左至右，從上向下的挨次拖放控件。在調(diào)試過程中，考生可通過運(yùn)行考生名目下的Design.exe文件來查看程序的最終效果。把自己完成的程序運(yùn)行效果同它比較，假設(shè)有不同，再次檢查你的界面設(shè)計和程序代碼是Design.exe下面是計算機(jī)等級考試〔二級VisualBasic程序設(shè)計〕上機(jī)測試的程序設(shè)計樣題。假設(shè)學(xué)生要上機(jī)做這些試題，由于你的計算機(jī)中沒有Design.EXE文件，你可自己啟動VisualBasic6.0系統(tǒng)，建一標(biāo)準(zhǔn)EXE工程，按題目的要求設(shè)計界面、添加所需控件并設(shè)置相關(guān)屬性，編寫相應(yīng)大事代碼，使其程序運(yùn)行結(jié)果能實(shí)現(xiàn)題目的要求?！惨弧吵绦蛟O(shè)計題請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“添加與刪除”程序的設(shè)計。將工Design.VbpDesign.frm保存到考試名目下，具體要求如下：在窗體中引入一個文本框Text1，再在文本框的下面引入一個列表框List1，列表框內(nèi)容中有四項(xiàng)，分別為“Wor、Exce、PowerPoint、Outlook。單擊“添加”按鈕Command1單擊“刪除”按鈕Command2其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-1所示。2-1“添加與刪除”程序運(yùn)行結(jié)果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“加法器”程序的設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：在窗體上從到下依次引入Text1、Text2、Text3三個文本框，三個文本框的對齊方式均為右對齊。上面兩個文本框用于輸入加數(shù)，要求不承受非數(shù)字鍵下面一個文本框用于顯示和，它不能進(jìn)展編輯操作。單擊“=”按鈕〔Command1，將兩個加數(shù)的和顯示在下面一個文本框中。單擊“清空”按鈕Command2，三個文本框內(nèi)容都被清空，同時第一個文本框獲得焦點(diǎn)。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-2所示。2-2“加法器”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“字幕滾動”程序設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：在屬性窗口中將標(biāo)簽(Label1)單擊“開頭”按鈕，標(biāo)簽文字在定時器掌握下自動地從左向右移動，移動速度為每個時間間隔右移100緹，當(dāng)標(biāo)簽移動到窗體外時，再從窗體的左邊進(jìn)入，同時“開頭”按鈕變?yōu)椤巴ｎD”按鈕。按鈕。定時器〔Timer1〕的時間間隔為0.1秒。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-3所示。2-3“字幕滾動”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“轉(zhuǎn)變字號”程序設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體的下部有一個水平滾動條Hscroll1，它的取值范圍為[12，72]。窗體的上部有一個標(biāo)簽Label1,水平滾動條的上有一個標(biāo)簽Label2,Text112Text1最多承受兩個字符。Text1中顯示標(biāo)簽文字的大小轉(zhuǎn)變后的字號。在文本框Text1中輸入一個屬于[12，72]的兩位整數(shù)后，也可以轉(zhuǎn)變標(biāo)簽文字的大小，并同時調(diào)整水平滾動條的滾動框位置；假設(shè)輸入的數(shù)據(jù)不在上述范圍內(nèi)，則不起作用〔要求用Text1Change大事實(shí)現(xiàn)。要求以上兩種轉(zhuǎn)變字號的操作要保持標(biāo)簽Label1在窗體中水平居中。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-4所示。圖2-4 “轉(zhuǎn)變字號”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“字幕閃耀”程序設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：在屬性窗口中將標(biāo)簽(Label1)單擊“開頭”按鈕，標(biāo)簽文字在定時器掌握下自動交替以紅蘭兩種顏色顯示。同時“開頭”按鈕變?yōu)椤巴ｎD”按鈕。定時器〔Timer1〕的時間間隔為0.3秒。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-5所示。圖2-5 “字幕閃耀”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“圖片賞識”程序設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體上有驅(qū)動器列表框〔Drive1、名目列表框〔Dir1〕和文件列表框〔File1〕要求三個控件能夠聯(lián)動。窗體的右半部有一個圖像框Image1，將它的Stretch屬性設(shè)置為True。設(shè)置文件列表框只顯示*.bmp和*.jpg類型的圖片文件。單擊文件列表框上的圖片文件名時，圖片顯示在圖像框中。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-6所示。圖2-6 “圖片賞識”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“撥號盤”程序設(shè)計。將工程文件Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體的上邊有一個文本框Text1，設(shè)置為最多承受10個字符；Font；宋體、粗體、三號；文字顏色為蘭色。用命令按鈕數(shù)組Command1(0)~Command1(9)組的下標(biāo)全都。單擊數(shù)字鍵按鈕，將撥號的內(nèi)容顯示在文本框中。單擊“重?fù)堋卑粹oCommand2，再現(xiàn)原來的撥號過程〔提示：再現(xiàn)過程由定時器實(shí)現(xiàn)。定時器〔Timer1〕的時間間隔為0.5秒。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-7所示。2-7“撥號盤”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“作圖”程序設(shè)計。將工程文件以Design.Vbp、窗體文件以Design.frm保存到考試名目下，具體要求如下：窗體的右邊是一個圖片框Picture1，用于顯示圖形。單擊“坐標(biāo)系”按鈕〔Command1，將圖片框的坐標(biāo)系統(tǒng)設(shè)置為原點(diǎn)在中心，X軸[-10，10]，Y軸[-10，10]，并在圖片框中畫出該坐標(biāo)系統(tǒng)示意圖。單擊“扇形”按鈕Command2，在圖片框中畫一個圓心在原點(diǎn)，半徑為52，內(nèi)部為綠色，起始角為л/65л/6的扇形。單擊“完畢”按鈕〔Command3，程序完畢運(yùn)行，其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-8所示。圖2-8 “作圖”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“反彈球”程序的設(shè)計。將工程文Design.vbpDesign.frn保存到考生名目下，具體要求如下：設(shè)計兩個菜單項(xiàng)，nnustartnnustop在窗體中引入一個外形控件Shapel，外形為圓，賀半徑為500Twios,填充色為紅色。第一次單擊菜單“啟動bxby100Twips。定時器〔timerl〕的時間間隔為0.1秒。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-9所示。圖2-9 “反彈球”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“安康稱”程序的設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體的左邊有兩個標(biāo)簽，Label1Label2分別有兩個文本框，Text1用于輸入身高、Text2用于輸入體重；在文本框的右邊有兩個標(biāo)簽，Label3的標(biāo)題為“cmLabel4的標(biāo)題為“kg將兩個文本框文字對齊方式均設(shè)置為右對齊，最多承受3個字符。兩個文本框均不承受非數(shù)字鍵。單擊“安康狀況”按鈕(Command1)，依據(jù)計算公式將相應(yīng)的提示信息顯示在標(biāo)簽Label5中。=身高-105*1.1為偏胖，提示“偏胖，留意節(jié)食*0.9其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-10所示。圖2-10 “安康稱”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“電子鐘”程序的設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：設(shè)計兩個定時器，Timer1Timer2用于推斷鬧鐘時間，0.5秒，Timer2設(shè)置為不行用。窗體的上半部是標(biāo)簽Label1，用于顯示時間，設(shè)置Label1的Font為：宋體、粗體、二號，背景白色，文字居中對齊，固定邊框。窗體的下半部有一個標(biāo)簽Label2Label2的右邊是文本框Text。在文本框中輸入鬧鐘時間并按回車后，啟動推斷鬧鐘時間的定時器Timer2Label1顯示的時間超過那種時間，則標(biāo)簽Label1的背風(fēng)光按紅白兩色交替變換。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-11所示。圖2-11 “電子鐘”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“轉(zhuǎn)變大小”程序的設(shè)計。將工程Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體上引入一個紅色的圓形外形控件〔Shape1，圓的直徑為3400Twip。Hscroll1，將它的最大值設(shè)置為與圓的直徑一樣，初始值為最大值，SmallChangeLargeChange100Twips。Label1Label20轉(zhuǎn)變滾動條的值可以掌握圓形的直徑，同時在標(biāo)簽Label2中動態(tài)顯示圓形的直徑。要求圓形直徑在變化時要保持圓心位置不變。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-12所示。圖2-12 “轉(zhuǎn)變大小”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“點(diǎn)餐”程序的設(shè)計。將工程文件Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體上有一個框架Frame1Check1(0)的標(biāo)題為“兒童套餐13Check1(1)的標(biāo)題為“標(biāo)準(zhǔn)套餐18Check1(2)的標(biāo)題為“商務(wù)套餐25Label1Text1(0)Text1(1)和Text1(2)，文本框中都沒有內(nèi)容，并且都不能使用。在復(fù)選框中進(jìn)展了選擇操作后，相應(yīng)的文本框才能輸入并自動獲得焦點(diǎn)；假設(shè)取消選擇，那么相應(yīng)的文本框內(nèi)容馬上清空并且不能使用了。要求文本框在輸入時只承受數(shù)字鍵。單擊“確定”按鈕(Command1)，統(tǒng)計點(diǎn)餐的金額，并用消息框顯示出來。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-13所示。圖2-13 “點(diǎn)餐”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“編輯”程序的設(shè)計。將工程文件Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體是上半部是一個文本框Text1，可以多行顯示文字。文本框的下面從左到右依次排列4個命令按鈕〔Command1、Command2、Command3和Command4其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-14所示。圖2-14 “編輯”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“字體設(shè)置”程序的設(shè)計。將工程Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體的上邊有一個文本框Text1文本框下面的左邊有一個標(biāo)簽Label11，有三項(xiàng)內(nèi)容，分別是“宋體、黑體、楷體-GB2313文本框下面的右邊有一個標(biāo)簽Label22，有八項(xiàng)內(nèi)容，分別是“10、1216、20、24、36、48、72小進(jìn)展設(shè)置。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-15所示。圖2-15 “字體設(shè)置”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“倒計時”程序的設(shè)計。將工程文Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體的左邊有一個框架Frame1上到下為Option1(0)、Option1(1)和Option1(2)，標(biāo)題分別為“15分鐘”和“10分鐘，1分鐘。窗體的右邊有一個標(biāo)簽Label1，用于顯示倒計時的剩余的時間，標(biāo)簽Label1、粗體、三號，文字居中對齊，固定邊框。單擊“開頭計時”按鈕(Command1)后，程序依據(jù)選擇的時間開頭倒計時，同時命令按鈕變?yōu)椴恍惺褂茫蚣芤膊恍惺褂?。但?dāng)剩余時間到0分0Timer11秒。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-16所示。圖2-16 “倒計時”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“替換”程序的設(shè)計。將工程文件Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體的上半部是一個文本框Text1，可以多行顯示文字。文本框Text1的下面有一個標(biāo)簽Label1Label1Text2Text2中輸入查找內(nèi)容。標(biāo)簽Label1的下面有一個標(biāo)簽Label2Label2Text3Text3中輸入替換為的內(nèi)容。單擊“替換”按鈕(Command1)，對文本框Text1中與查找內(nèi)容匹配的文字進(jìn)展替換操作。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-17所示。圖2-17 “替換”程序運(yùn)行效果請參考Design.exe程序的運(yùn)行結(jié)果，建一個工程，完成“偶數(shù)遷移”程序的設(shè)計。將工程Design.VbpDesign.frm保存到考試名目下，具體要求如下：窗體的左邊有一個標(biāo)簽Label1List1。窗體的右邊有一個標(biāo)簽Label2List2。單擊“產(chǎn)生”按鈕Command1，計算機(jī)產(chǎn)生10個兩位正整數(shù)放入列表框List1List2中的內(nèi)容。單擊“”按鈕〔Command2，將列表框List1中全部偶數(shù)遷移到列表框List2中。其他界面設(shè)計參考Design.exe程序運(yùn)行效果，如圖2-18所示。圖2-18 “偶數(shù)遷移”程序運(yùn)行效果〔二〕程序調(diào)試程序調(diào)試題的操作步驟是：EXE工程，將這一模塊程序添加到工程中。假設(shè)你是通過雙擊標(biāo)準(zhǔn)模塊程序Model1.BASVisualBasic系統(tǒng)的，則首先需要添加一個窗體模塊。將該標(biāo)準(zhǔn)模塊程序Model1.BAS中代碼的指定的錯誤修改正確或在指定的空位填上適當(dāng)?shù)摹睠lick大事中〕Sub過程或用戶自定義函數(shù)〔假設(shè)在標(biāo)準(zhǔn)模塊程序Model1.BAS有多個過程或函數(shù)，要留意調(diào)用的先后挨次，否則得不到正確結(jié)果，調(diào)試運(yùn)行程序，使其能輸出正確結(jié)果。按試題要求保存工程。假設(shè)你的計算機(jī)中沒有模塊程序Model1.BAS，你必需先自己建一工程，再添加一個默認(rèn)標(biāo)準(zhǔn)模塊，將題目所附的參考程序輸入〔可復(fù)制粘貼，將其中用---n---〔n為1，2，3，4，5〕刪除后改為適宜的內(nèi)容或?qū)⒂?***錯誤n****序使其到達(dá)該題目的要求。已有一模塊文件Modify.Bas。該模塊中的Summary過程是用于計算1!+2!+...+20!，并打印出計算結(jié)果，但不完整，請在橫線上填入必要的內(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過程是產(chǎn)生100個[0，99]范圍內(nèi)的隨機(jī)整1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)并打印出來。程序如下：PublicSubcalculateDima(1To100)AsIntegerDimx(1To10)AsIntegerDimiAsInteger,pAsInteger”100個[0，99]范圍內(nèi)的隨機(jī)整數(shù)”10個打印出來Fori=1To100”********1***********a(i)Rnd*100Ifa(i)<10ThenForm1.PrintSpace(2);a(i);ElseForm1.PrintSpace(1);a(i);EndIfIfiMod10=0ThenForm1.PrintNexti”統(tǒng)計個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)”并將統(tǒng)計結(jié)果保存在數(shù)組x(1),x(2),...,x(10)中，將統(tǒng)計結(jié)果打印出來Fori1To100”********2**********pInt(a(i)/10) Ifp0Thenp10”********3**********x(p)x(p)1NextiForm1.Print統(tǒng)計結(jié)果“Fori=1To10p=iIfi=10Thenp=0”********4*********Form1.Print個位數(shù)為Str(p)共Str(x(p))個“NextiEndSub已有一模塊文件Modify.Bas。該模塊中的Findat過程是用于在一個字符串變量中查找“at“，并用使其完整。程序如下：PublicSubFindat”str1中查找“at“Dimstr1AsStringDimlengthAsInteger字符串長度DimsumAsInteger”查到的個數(shù)DimiAsIntegerstr1InputBox(“請輸入一個字符串“)length----1----i=1sum=0DoWhilei<=----2----If----3 =“at“Thensum=sum+1EndIfi=i+1LoopIf----4 ThenMsgBox沒有找到！“ElseMsgBox找到了&Str(sum)&個“EndIfEndSub已有一模塊文件Modify.Bas。該模塊中的Guess過程是猜數(shù)玩耍，由計算機(jī)產(chǎn)生一個[1，100]的任意整數(shù)，輸入猜數(shù)后計算機(jī)給出提示，假設(shè)5次后還沒有猜中就完畢玩耍并公布正確答案。程序如下：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”******錯誤3******LoopWhiletimes>5Iftimes5ThenForm1.Print猜數(shù)失敗,玩耍完畢!“”******錯誤4******Form1.Print正確答案為&Str(X)EndIfEndSub已有一模塊文件Modify.BasArmstrongNumber過程是用于求出1--999之間全部的Armstrong數(shù)，并打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。所謂Armstrong371=3^3+7^3+1^3371就是一個數(shù)。程序如下：PublicSubArmstrongNumberDimarmstrongAsIntegerDimiAsIntegerDimhundredAsInteger百位上的數(shù)字DimtenAsInteger十位上的數(shù)字DimoneAsInteger個位上的數(shù)字Fori1To999hundred=----1----ten=----2----one=----3----If----4 ThenForm1.Printi;“isarmstrongnumber“EndIfNextiEndSubModify.BasCountTo60過程是用于從一堆一分、二分、五分的硬幣中取出20枚，使其總值為60分，要求輸出取法的數(shù)量及每一種取法的一分、二分、五分的個數(shù)。程序如下：PublicSubCountTo60”從一堆一分、二分、五分的硬幣中取出2060分”輸出取法的數(shù)量及每一種取法的一分、二分、五分的個數(shù)DimoneAsInteger一分硬幣個數(shù)DimtwoAsInteger二分硬幣個數(shù)DimfiveAsInteger五分硬幣個數(shù)Constn=20”總數(shù)20枚DimkAsInteger k=0Forone=1Ton”*******錯誤1********Fortwoone1Tonfive=n-one-two”*******錯誤2*********Ifonetwofive60Thenk=k+1Form1.Print“one=“;one;“two=“;two;“five=“;fiveEndIf”*******3********Nextone”******錯誤4******NexttwoForm1.Print“k=“;kEndSub已有一模塊文件Modify.Bas。該模塊中的TJ過程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。Modify.Bas模塊中的SCSJ過程是產(chǎn)生數(shù)據(jù)，數(shù)據(jù)的取值范圍為-10~10之間的隨機(jī)數(shù)。程序如下：PrivateConstn=10Privatea(1Ton)AsInteger”TJ過程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來”SCSJ過程產(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時取正j=Int(Rnd*2)If ------3 ThenJ=-1a(i)=j*Int(Rnd*(n+1))Form1.Printa(i);NextiForm1.PrintEndSub已有一模塊文件Modify.BasMoney過程是用于統(tǒng)計一個有7個工作人員的餐廳發(fā)工資所需的100元、50元、10元、5元和1元的票面數(shù)，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。Modify.Bas模塊中的SalaryData過程是給出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工資總計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合計&Str(totalsalary)&元“EndSubPublicSubSalaryDatasalary(1)=1398salary(2)=1765salary(3)=689salary(4)=1500salary(5)=832salary(6)=590salary(7)=1200EndSub已有一模塊文件Modify.Bas。該模塊中的MaxLine過程用于查找一個5行4列的二維數(shù)組中行平均值最大的行，并將該行全部數(shù)據(jù)調(diào)整到第一行的位置。Modify.Bas模塊中的DataProduce過程用于產(chǎn)生原始數(shù)據(jù)；Average過程用于計算各行的平均值；PrintArray過程用于打印二維數(shù)組和行平均值。程序如下：Dima(1To5,1To4)AsIntegerDimave(1To5)AsIntegerPublicSubMaxLineDimiAsIntegerDimjAsIntegerDimtempAsIntegerDimLine_noAsInteger最大平均值的行號Line_no1Fori=2To5”******1*******If ave(Line_no)ave(i)Then”******錯誤2*******Line_noave(i)EndIfNexti”交換第一行與最大平均值所在行Forj1To4temp=a(1,j)”******錯誤3******a(Line_no,j)a(1,j)a(Line_no,j)=tempNextj”交換對應(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”計算各行平均值Fori1To5sum=0Forj=1To4”******錯誤4******suma(i,j)Nextjave(i)=sum/4Nexti”將數(shù)組和平均值打印出來原始數(shù)據(jù)和平均值“PrintArrayEndSubPublicSubPrintArrayDimiAsIntegerDimjAsIntegerFori=1To5Forj=1To4Form1.Printa(i,j);Spc(3);NextjForm1.Print平均值ave(i)NextiEndSub已有一模塊文件Modify.Bas。該模塊中的Wrap過程用于推斷一個字符串是否“回文”。所謂“回文”是指字符串順讀與倒讀都是一樣的，如“潮起潮落，落潮起潮”。程序如下：PublicSubWrapDimlengthAsIntegerDimstr1AsStringDimstrleftAsStringDimstrrightAsStringDimkAsIntegerstr1InputBox(“請輸入任意的字符串輸入任意字符串”****錯誤1*****length=Val(str1)k1Do”****錯誤2*****strleftLeft(str1,k)從左邊起逐個取出一個字符”****3*****strrightRight(str1,k) ”從右邊起逐個取出一個字符”****4****Ifstrleft=strrightThenExitDoEndIfk=k+1LoopWhilek<=length/2Ifk>length/2ThenForm1.Printstr1&“是回文“ElseForm1.Printstr1&“不是回文“EndIfEndSub已有一模塊文件Modify.BasBubbleSort過程是冒泡排序法；GenerateData過程產(chǎn)生10個[1，20]之間互不一樣的隨機(jī)整數(shù)；Swap過程交換兩個變量的數(shù)值。程序如下：PrivateConstn=10Privatea(1Ton)AsInteger”BubbleSort過程是冒泡排序”Swap過程交換兩個變量數(shù)值”GenerateData10個[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過程用于將一個十六進(jìn)制整數(shù)轉(zhuǎn)換為十進(jìn)制整數(shù)；number函數(shù)過程用于將一個十六進(jìn)制符號轉(zhuǎn)換為數(shù)值。程序如下：PublicSubTransferDimHexAsString十六進(jìn)制數(shù)DimDecAsDouble十進(jìn)制數(shù)DimtempAsStringDimiAsIntegerDimnAsIntegerHexInputBox(“輸入一個十六進(jìn)制整數(shù)“)”******錯誤1*******nVal(Hex)i=0Do”******2*******temp=Mid(Hex,i,1)”******錯誤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過程是把10個[30，50〕的隨機(jī)整數(shù)并依據(jù)從小到大的挨次打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。Modify.BasSwap過程用于交換兩個變量的值。程序如下：PublicSubSortData”10個[30，50]的隨機(jī)整數(shù)，并按從小到大的挨次打印出來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過程是用于打印一個55列的數(shù)字方陣，并使兩對角線上元素均為1，其余均為2。要求打印的數(shù)字方陣兩列數(shù)字之間空3格，兩行之間空一行。程序如下：PublicSubPrintArray”55列的數(shù)字方陣”12”要求打印的數(shù)字方陣兩列數(shù)字之間空3格，兩行之間空一行”只要修改標(biāo)出出錯位置的下面那一條語句Dima(5,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To5Forj=1To5”********1*********IfijOri6jThena(i,j)=2Elsea(i,j)=1EndIf”********2*********Form1.Printa(i,j)Space(3);Nextj”*******錯誤3*******Form1.PrintNextiEndSub已有一模塊文件Modify.Bas。該模塊中的Combination過程是用于計算在m個數(shù)據(jù)中取出n個數(shù)據(jù)的排列組合值，計算公式為Cmn=m!/(n!*(m-n)!)。Modify.BasnFactorn!。程序如下：PublicSubCombinationDimmAsIntegerDimnAsIntegerDimCmnAsLongDom=Val(InputBox(“m“))n=Val(InputBox(“請輸入一個整數(shù)n(n<=m)“))”******1******LoopWhilemn ”必需保證輸入的兩個數(shù)m>=n”******2******CmnnFactor(m)/nFactor(n)*nFactor(mn)Form1.Print排列組合數(shù)為CmnEndSubPublicFunctionnFactor(ByValnAsInteger)AsDoubleDimiAsIntegerDimtempAsDoubletemp=1Fori=1Tontemp=temp*iNexti”******3******nFactor(n