浙江省計算機等級考試二級VB上機練習題

1、198第二部分 上機測試練習題計算機等級考試上機練習題一、程序設計題浙江省計算機等級考試（二級vb）上機測試的程序設計題，從2002年秋季開始，其題型及考試要求都有較大變化。要求考生在老考生目錄中，按照題目要求，自己新建一工程文件design.vbp，按題目要求完成界面設計和編寫相應事件代碼。程序設計題的操作步驟如下：1考生在單擊“回答”按鈕后，便可啟動visual basic6.0系統(tǒng)，同時運行考生目錄中的design.exe文件，以便考生設計時隨時同程序設計要求最終效果比較。2程序界面設計，要求考生設置窗體指定的一些屬性，在窗體添加控件，并設置控件的某些屬性。3編寫程序代碼，根據(jù)題目的要求

2、，在代碼窗口中編寫相應事件的程序代碼，調(diào)試運行程序使其程序的運行效果與運行design.exe的效果相同。4將工程以文件名“design.vbp”，窗體以文件名“design.frm”保存在考生文件夾中。注意：界面設計中，以默認方式命名控件，從左至右，從上向下的順序拖放控件。在調(diào)試過程中，考生可通過運行考生目錄下的design.exe文件來查看程序的最終效果。把自己完成的程序運行效果同它比較，若有不同，再次檢查你的界面設計和程序代碼是否正確，使程序運行效果與design.exe運行結(jié)果相同。下面是計算機等級考試（二級visual basic程序設計）上機測試的程序設計樣題。如果學生要上機做這些

3、試題，由于你的計算機中沒有design.exe文件，你可自己啟動visual basic6.0系統(tǒng)，新建一標準exe工程，按題目的要求設計界面、添加所需控件并設置相關屬性，編寫相應事件代碼，使其程序運行結(jié)果能實現(xiàn)題目的要求。（二）程序設計題1請參考design.exe程序的運行結(jié)果，新建一個工程，完成“添加與刪除”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“添加與刪除”，固定邊框。（2）在窗體中引入一個文本框text1，再在文本框的下面引入一個列表框list1，列表框內(nèi)容中有四項，分別為“word、excel、

4、powerpoint、outlook”。（3）單擊“添加”按鈕（command1），將文本框中的內(nèi)容加到列表框中的第一題，如果文本框中沒有內(nèi)容，則給出提示“沒有內(nèi)容，不予添加”。（4）單擊“刪除”按鈕（command2），將選中表項刪除，如果沒有選擇要刪除的表項，則給出提示“請選擇刪除的項目”。（5）其他界面設計參考design.exe程序運行效果，如圖2-1所示。圖2-1 “添加與刪除”程序運行結(jié)果2請參考design.exe程序的運行結(jié)果，新建一個工程，完成“加法器”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題

5、為“加法器”，固定邊框。（2）在窗體上從到下依次引入text1、text2、text3三個文本框，三個文本框的對齊方式均為右對齊。（3）上面兩個文本框用于輸入加數(shù)，要求不接受非數(shù)字鍵（4）下面一個文本框用于顯示和，它不能進行編輯操作。（5）單擊“=”按鈕（command1），將兩個加數(shù)的和顯示在下面一個文本框中。（6）單擊“清空”按鈕（command2），三個文本框內(nèi)容都被清空，同時第一個文本框獲得焦點。（7）其他界面設計參考design.exe程序運行效果，如圖2-2所示。圖2-2 “加法器”程序運行效果3請參考design.exe程序的運行結(jié)果，新建一個工程，完成“字幕滾動”程序設計。將工

6、程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“字幕滾動”，固定邊框。（2）在屬性窗口中將標簽(label1)的標題設為“祝您考試成功”，字體設置為“宋體”、字形為“粗體”、大小為“二號”、文字顏色為“紅色”。（3）單擊“開始”按鈕，標簽文字在定時器控制下自動地從左向右移動，移動速度為每個時間間隔右移100緹，當標簽移動到窗體外時，再從窗體的左邊進入，同時“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。（4）單擊“停止”按鈕，標簽“祝您考試成功”文字停止?jié)L動。同時，“停止”按鈕變?yōu)椤伴_始”按鈕。（5）定時器（timer1）的時間間隔為0.1秒。（6

7、）其他界面設計參考design.exe程序運行效果，如圖2-3所示。圖2-3 “字幕滾動”程序運行效果4請參考design.exe程序的運行結(jié)果，新建一個工程，完成“改變字號”程序設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“改變字號”，固定邊框。（2）窗體的下部有一個水平滾動條hscroll1，它的取值范圍為12，72。（3）窗體的上部有一個標簽label1,標題為“心想事成”，格式設置為在窗體中水平居中對齊。（4）水平滾動條的上有一個標簽label2,標題為“字號”，標簽的旁邊有一個文本框text1,文字內(nèi)容為“1

8、2”，text1最多接受兩個字符。（5）改變滾動條可以控制標簽文字的大小，并同時在文本框text1中顯示標簽文字的大小改變后的字號。（6）在文本框text1中輸入一個屬于12，72的兩位整數(shù)后，也可以改變標簽文字的大小，并同時調(diào)整水平滾動條的滾動框位置；如果輸入的數(shù)據(jù)不在上述范圍內(nèi)，則不起作用（要求用text1的change事件實現(xiàn)）。（7）要求以上兩種改變字號的操作要保持標簽label1在窗體中水平居中。（8）其他界面設計參考design.exe程序運行效果，如圖2-4所示。圖2-4 “改變字號”程序運行效果5請參考design.exe程序的運行結(jié)果，新建一個工程，完成“字幕閃爍”程序設計。

9、將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“字幕閃爍”，固定邊框。（2）在屬性窗口中將標簽(label1)的標題設為“祝您考試成功”，字體設置為“宋體”、字形為“粗體”、大小為“二號”、文字顏色為“紅色”。格式設置為在窗體中水平居中對齊。（3）單擊“開始”按鈕，標簽文字在定時器控制下自動交替以紅蘭兩種顏色顯示。同時“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。（4）單擊“停止”按鈕，標簽文字停止閃爍。同時，“停止”按鈕變?yōu)椤伴_始”按鈕。（5）定時器（timer1）的時間間隔為0.3秒。（6）其他界面設計參考design.exe程序運行效果

10、，如圖2-5所示。圖2-5 “字幕閃爍”程序運行效果6請參考design.exe程序的運行結(jié)果，新建一個工程，完成“圖片欣賞”程序設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“圖片欣賞”，固定邊框。（2）窗體上有驅(qū)動器列表框（drive1）、目錄列表框（dir1）和文件列表框（file1）三個控件，要求三個控件能夠聯(lián)動。（3）窗體的右半部有一個圖像框image1，將它的stretch屬性設置為true。（4）設置文件列表框只顯示*.bmp和*.jpg類型的圖片文件。（5）單擊文件列表框上的圖片文件名時，圖片顯示在圖像框

11、中。（6）其他界面設計參考design.exe程序運行效果，如圖2-6所示。圖2-6 “圖片欣賞”程序運行效果 7請參考design.exe程序的運行結(jié)果，新建一個工程，完成“撥號盤”程序設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“撥號盤”，固定邊框。（2）窗體的上邊有一個文本框text1，設置為最多接受10個字符；font；宋體、粗體、三號；文字顏色為蘭色。（3）用命令按鈕數(shù)組command1(0)command1(9)構成數(shù)字鍵，數(shù)字鍵標題正好和命令按鈕數(shù)組的下標一致。單擊數(shù)字鍵按鈕，將撥號的內(nèi)容顯示在文本框中。

12、（4）單擊“重撥”按鈕（command2），再現(xiàn)原來的撥號過程；（提示：再現(xiàn)過程由定時器實現(xiàn)）。（5）定時器（timer1）的時間間隔為0.5秒。（6）其他界面設計參考design.exe程序運行效果，如圖2-7所示。圖2-7 “撥號盤”程序運行效果 8請參考design.exe程序的運行結(jié)果，新建一個工程，完成“作圖”程序設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“作圖”，固定邊框。（2）窗體的右邊是一個圖片框picture1，用于顯示圖形。（3）單擊“坐標系”按鈕（command1），將圖片框的坐標系統(tǒng)設置為原點

13、在中央，x軸-10，10，y軸-10，10，并在圖片框中畫出該坐標系統(tǒng)示意圖。（4）單擊“扇形”按鈕（command2），在圖片框中畫一個圓心在原點，半徑為5，圓周為紅色，線寬為2，內(nèi)部為綠色，起始角為/6，終止角為5/6的扇形。（5）單擊“結(jié)束”按鈕（command3），程序結(jié)束運行，（6）其他界面設計參考design.exe程序運行效果，如圖2-8所示。圖2-8 “作圖”程序運行效果 9請參考design.exe程序的運行結(jié)果，新建一個工程，完成“反彈球”程序的設計。將工程文件以design.vbp、窗體文件以design.frn保存到考生目錄下，具體要求如下：（1）窗體的標題為“反彈球”

14、，固定邊框。（2）設計兩個菜單項，nnustart的標題為“啟動”，nnustop的標題為“停止”。（3）在窗體中引入一個形狀控件shapel，形狀為圓，賀半徑為500twios,填充色為紅色。（4）第一次單擊菜單“啟動”，圓球先向右上角方向運動，碰壁后改變方向。每年時間間隔水平方向改變量bx和垂直方向改變量by都是100twips。（5）單擊菜單“停止”，圓球停止運動。再單擊菜單“啟動”，圓球繼續(xù)運動。（6）定時器（timerl）的時間間隔為0.1秒。（7）其他界面設計參考design.exe程序運行效果，如圖2-9所示。圖2-9 “反彈球”程序運行效果10請參考design.exe程序的運

15、行結(jié)果，新建一個工程，完成“健康稱”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“健康稱”，固定邊框。（2）窗體的左邊有兩個標簽，label1的標題為“身高”、label2的標題為“體重”；它們的旁邊分別有兩個文本框，text1用于輸入身高、text2用于輸入體重；在文本框的右邊有兩個標簽，label3的標題為“cm”，label4的標題為“kg”。（3）將兩個文本框文字對齊方式均設置為右對齊，最多接受3個字符。（4）兩個文本框均不接受非數(shù)字鍵。（5）單擊“健康狀況”按鈕(command1)，根據(jù)計算公式將相應的

16、提示信息顯示在標簽label5中。計算公式為：標準體重=身高-105；體重高于標準體重*1.1為偏胖，提示“偏胖，注意節(jié)食”；體重低于標準體重*0.9為偏瘦，提示“偏瘦，增加營養(yǎng)”；其他為正常，提示“正常，繼續(xù)保持”。（6）其他界面設計參考design.exe程序運行效果，如圖2-10所示。圖2-10 “健康稱”程序運行效果 11請參考design.exe程序的運行結(jié)果，新建一個工程，完成“電子鐘”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“電子鐘”，固定邊框。（2）設計兩個定時器，timer1用于顯示系統(tǒng)時間

17、，時間間隔為一秒；timer2用于判斷鬧鐘時間，時間間隔為0.5秒，timer2設置為不可用。（3）窗體的上半部是標簽label1，用于顯示時間，設置label1的font為：宋體、粗體、二號，背景白色，文字居中對齊，固定邊框。（4）窗體的下半部有一個標簽label2，標題為“鬧鐘時間：”；label2的右邊是文本框text1。（5）在文本框中輸入鬧鐘時間并按回車后，啟動判斷鬧鐘時間的定時器timer2，如果label1顯示的時間超過那種時間，則標簽label1的背景色按紅白兩色交替變換。（6）其他界面設計參考design.exe程序運行效果，如圖2-11所示。圖2-11 “電子鐘”程序運行效

18、果 12請參考design.exe程序的運行結(jié)果，新建一個工程，完成“改變大小”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“改變大小”，固定邊框。（2）窗體上引入一個紅色的圓形形狀控件（shape1），圓的直徑為3400twips。（3）窗體的下面有一個水平滾動條hscroll1，將它的最大值設置為與圓的直徑相同，初始值為最大值，smallchange和largechange均為100twips。（4）水平滾動條的下面有兩個標簽控件，label1的標題為“圓直徑為：”，label2的標題為“3400”，兩個標簽

19、均為固定邊框。（5）改變滾動條的值可以控制圓形的直徑，同時在標簽label2中動態(tài)顯示圓形的直徑。（6）要求圓形直徑在變化時要保持圓心位置不變。（7）其他界面設計參考design.exe程序運行效果，如圖2-12所示。圖2-12 “改變大小”程序運行效果 13請參考design.exe程序的運行結(jié)果，新建一個工程，完成“點餐”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“點餐”，固定邊框。（2）窗體上有一個框架frame1，標題為“菜單”?？蚣軆?nèi)有復選框數(shù)組提供選擇三種套餐，check1(0)的標題為“兒童套餐1

20、3元”，check1(1)的標題為“標準套餐18元”，check1(2)的標題為“商務套餐25元”?？蚣艿挠疫呌幸粋€標簽label1，標題為“份數(shù)”，標簽的下面是文本框控件數(shù)組，從上到下依次為text1(0)、text1(1)和text1(2)，文本框中都沒有內(nèi)容，并且都不能使用。（3）在復選框中進行了選擇操作后，相應的文本框才能輸入并自動獲得焦點；如果取消選擇，那么相應的文本框內(nèi)容立即清空并且不能使用了。（4）要求文本框在輸入時只接受數(shù)字鍵。（5）單擊“確定”按鈕(command1)，統(tǒng)計點餐的金額，并用消息框顯示出來。（6）其他界面設計參考design.exe程序運行效果，如圖2-13所示

21、。圖2-13 “點餐”程序運行效果 14請參考design.exe程序的運行結(jié)果，新建一個工程，完成“編輯”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“編輯”，固定邊框。（2）窗體是上半部是一個文本框text1，可以多行顯示文字。（3）文本框的下面從左到右依次排列4個命令按鈕（command1、command2、command3和command4），標題分別為“復制”、“剪切”、“粘貼”和“刪除”。（4）編寫各命令按鈕的單擊事件，分別實現(xiàn)“復制”、“剪切”、“粘貼”和“刪除”功能。（5）其他界面設計參考desi

22、gn.exe程序運行效果，如圖2-14所示。圖2-14 “編輯”程序運行效果 15請參考design.exe程序的運行結(jié)果，新建一個工程，完成“字體設置”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“字體設置”，固定邊框。（2）窗體的上邊有一個文本框text1，文字內(nèi)容為“心想事成”。（3）文本框下面的左邊有一個標簽label1，標題為“字體：”，標簽下面是一個簡單組合框combo1，有三項內(nèi)容，分別是“宋體、黑體、楷體-gb2313”，單擊時文本框的字體進行設置。（4）文本框下面的右邊有一個標簽label2，標

23、題為“大?。骸保瑯撕炏旅媸且粋€簡單組合框combo2，有八項內(nèi)容，分別是“10、12、16、20、24、36、48、72”，單擊時對文本框的文字大小進行設置。（5）其他界面設計參考design.exe程序運行效果，如圖2-15所示。圖2-15 “字體設置”程序運行效果 16請參考design.exe程序的運行結(jié)果，新建一個工程，完成“倒計時”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“倒計時”，固定邊框。（2）窗體的左邊有一個框架frame1，標題為“選擇時間”；框架內(nèi)有一組單選鈕控件數(shù)組，從上到下為optio

24、n1(0)、option1(1)和option1(2)，標題分別為“1分鐘”、“5分鐘”和“10分鐘，默認選擇為1分鐘。（3）窗體的右邊有一個標簽label1，用于顯示倒計時的剩余的時間，標簽label1設置為：宋體、粗體、三號，文字居中對齊，固定邊框。（4）單擊“開始計時”按鈕(command1)后，程序根據(jù)選擇的時間開始倒計時，同時命令按鈕變?yōu)椴豢墒褂?，框架也不可使用。?）但當剩余時間到0分0秒時，改為顯示“時間到！”。（6）定時器timer1的時間間隔為1秒。（7）其他界面設計參考design.exe程序運行效果，如圖2-16所示。圖2-16 “倒計時”程序運行效果 17請參考desi

25、gn.exe程序的運行結(jié)果，新建一個工程，完成“替換”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“替換”，固定邊框。（2）窗體的上半部是一個文本框text1，可以多行顯示文字。（3）文本框text1的下面有一個標簽label1，標題為“查找：”，標簽label1的右邊是一個文本框text2，可以在text2中輸入查找內(nèi)容。（4）標簽label1的下面有一個標簽label2，標題為“替換為：”，標簽label2的右邊是一個文本框text3，可以在text3中輸入替換為的內(nèi)容。（5）單擊“替換”按鈕(command

26、1)，對文本框text1中與查找內(nèi)容匹配的文字進行替換操作。（6）其他界面設計參考design.exe程序運行效果，如圖2-17所示。圖2-17 “替換”程序運行效果18請參考design.exe程序的運行結(jié)果，新建一個工程，完成“偶數(shù)遷移”程序的設計。將工程文件以design.vbp、窗體文件以design.frm保存到考試目錄下，具體要求如下：（1）窗體的標題為“偶數(shù)遷移”，固定邊框。（2）窗體的左邊有一個標簽label1，標題為“兩位正整數(shù)：”，標簽的下面是一個列表框list1。（3）窗體的右邊有一個標簽label2，標題為“偶數(shù)：”，標簽的下面是一個列表框list2。（4）單擊“產(chǎn)生”

27、按鈕（command1），計算機產(chǎn)生10個兩位正整數(shù)放入列表框list1中。同時清空列表框list2中的內(nèi)容。（5）單擊“->”按鈕（command2），將列表框list1中所有偶數(shù)遷移到列表框list2中。（6）其他界面設計參考design.exe程序運行效果，如圖2-18所示。圖2-18 “偶數(shù)遷移”程序運行效果二、程序調(diào)試程序調(diào)試題的操作步驟是：（1）建立一標準exe工程，將這一模塊程序添加到工程中。如果你是通過雙擊標準模塊程序model1.bas進入visual basic系統(tǒng)的，則首先需要添加一個窗體模塊。（2）將該標準模塊程序model1.bas中代碼的指定的錯誤修改正確或在

28、指定的空位填上適當?shù)恼Z句，并在窗體模塊中編寫代碼（常常寫在窗體的click()事件中）調(diào)用標準模塊中的sub過程或用戶自定義函數(shù)（如果在標準模塊程序model1.bas有多個過程或函數(shù)，要注意調(diào)用的先后順序，否則得不到正確結(jié)果），調(diào)試運行程序，使其能輸出正確結(jié)果。（3）按試題要求保存工程。如果你的計算機中沒有模塊程序model1.bas，你必需先自己新建一工程，再添加一個默認標準模塊，將題目所附的參考程序輸入（可復制粘貼），將其中用-n-（n為1，2，3，4，5）部分刪除后改為合適的內(nèi)容或?qū)⒂? 錯誤n * 標示的下一語句中的錯誤改正，然后調(diào)試運行程序使其達到該題目的要求。1已有一模塊文件mo

29、dify.bas。該模塊中的summary過程是用于計算1!+2!+.+20!，并打印出計算結(jié)果，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。modify.bas模塊中的nfactor函數(shù)過程用于計算n!。 程序如下：public function nfactor(byval n as integer) as double dim i as integer dim temp as double -1- for i = 1 to n temp = temp * i next i nfactor = -2-end functionpublic sub summary() dim sum as d

30、ouble dim i as integer dim n as integer n = 20 for i = 1 to n sum = sum + -3- next i form1.print "sum=" & -4-end sub2已有一模塊文件modify.bas。該模塊中的calculate過程是產(chǎn)生100個0，99范圍內(nèi)的隨機整數(shù)，統(tǒng)計個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù)并打印出來。 程序如下：public sub calculate() dim a(1 to 100) as integer dim x(1 to 10) as

31、integer dim i as integer, p as integer '產(chǎn)生100個0，99范圍內(nèi)的隨機整數(shù) '每行10個打印出來 for i = 1 to 100 '* 錯誤1 * a(i) = rnd * 100 if a(i) < 10 then form1.print space(2); a(i); else form1.print space(1); a(i); end if if i mod 10 = 0 then form1.print next i '統(tǒng)計個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù) '

32、并將統(tǒng)計結(jié)果保存在數(shù)組x(1),x(2),.,x(10)中，將統(tǒng)計結(jié)果打印出來 for i = 1 to 100 '* 錯誤2 * p = int(a(i) / 10) '求個位上的數(shù)字 if p = 0 then p = 10 '* 錯誤3 * x(p) = x(p) - 1 next i form1.print "統(tǒng)計結(jié)果" for i = 1 to 10 p = i if i = 10 then p = 0 '* 錯誤4 * form1.print "個位數(shù)為" + str(p) + "共" +

33、str(x(p) + "個" next iend sub3.已有一模塊文件modify.bas。該模塊中的findat過程是用于在一個字符串變量中查找"at"，并用消息框給出查找結(jié)果的報告：沒有找到或找到的個數(shù)，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。 程序如下：public sub findat() '在字符串str1中查找"at" dim str1 as string dim length as integer '字符串長度 dim sum as integer '查到的個數(shù) dim i as int

34、eger str1 = inputbox("請輸入一個字符串") length = -1- i = 1 sum = 0 do while i <= -2- if -3- = "at" then sum = sum + 1 end if i = i + 1 loop if -4- then msgbox "沒有找到！" else msgbox "找到了" & str(sum) & "個" end ifend sub4.已有一模塊文件modify.bas。該模塊中的 guess

35、 過程是猜數(shù)游戲，由計算機產(chǎn)生一個1，100的任意整數(shù)，輸入猜數(shù)后計算機給出提示，如果5次后還沒有猜中就結(jié)束游戲并公布正確答案。 程序如下：public sub guess() dim r as integer dim x as integer dim times as integer randomize '* 錯誤1 * r = rnd * 100 '產(chǎn)生一個1-100 的任意整數(shù) times = 1 do x = val(inputbox("輸入猜數(shù)x") select case x case r form1.print "猜中了"

36、exit do '* 錯誤2 * case x > r form1.print "太大了,繼續(xù)猜!" case else form1.print "太小了,繼續(xù)猜!" end select times = times + 1 '* 錯誤3 * loop while times > 5 if times > 5 then form1.print "猜數(shù)失敗,游戲結(jié)束!" '* 錯誤4 * form1.print "正確答案為" & str(x) end ifend s

37、ub5.已有一模塊文件modify.bas。該模塊中的armstrongnumber過程是用于求出1-999之間所有的armstrong數(shù)，并打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。所謂armstrong數(shù)是指一個數(shù)等于它每位上數(shù)字的立方和。例如：371=33+73+13，那么371就是一個armstrong數(shù)。 程序如下：public sub armstrongnumber() dim armstrong as integer dim i as integer dim hundred as integer '百位上的數(shù)字 dim ten as integer '

38、;十位上的數(shù)字 dim one as integer '個位上的數(shù)字 for i = 1 to 999 hundred = -1- ten = -2- one = -3- if -4- then form1.print i; "is armstrong number" end if next iend sub6.已有一模塊文件modify.bas。該模塊中的 countto60 過程是用于從一堆一分、二分、五分的硬幣中取出20枚，使其總值為60分，要求輸出取法的數(shù)量及每一種取法的一分、二分、五分的個數(shù)。 程序如下：public sub countto60() 

39、9;從一堆一分、二分、五分的硬幣中取出20枚，使其總值為60分 '輸出取法的數(shù)量及每一種取法的一分、二分、五分的個數(shù) dim one as integer '一分硬幣個數(shù) dim two as integer '二分硬幣個數(shù) dim five as integer '五分硬幣個數(shù) const n = 20 '總數(shù)20枚 dim k as integer '取法數(shù)量 k = 0 for one = 1 to n '* 錯誤1 * for two = one + 1 to n five = n - one - two '* 錯誤2 *

40、 if one + two + five = 60 then k = k + 1 form1.print "one=" one; "two=" two; "five=" five end if '* 錯誤3 * next one '* 錯誤4 * next two form1.print "k=" kend sub7.已有一模塊文件modify.bas。該模塊中的tj過程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。modify.bas模塊中的scsj過程

41、是產(chǎn)生數(shù)據(jù)，數(shù)據(jù)的取值范圍為-10 10 之間的隨機數(shù)。 程序如下：private const n = 10private a(1 to n) as integer'tj過程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來'數(shù)據(jù)由scsj過程產(chǎn)生，數(shù)據(jù)的取值范圍為-10 10 之間的隨機整數(shù)public sub tj() dim i as integer dim t as single - 1 - for i = 1 to 10 if - 2 - then t = t * a(i) end if next i form1.print "t=" tend subpu

42、blic sub scsj() randomize form1.print "原始數(shù)據(jù)" dim i as integer dim j as integer for i = 1 to n '隨機產(chǎn)生0或1，為0時取負，為1時取正 j = int(rnd * 2) if - 3 - then j = -1 a(i) = j * int(rnd * (n + 1) form1.print a(i); next i form1.printend sub8.已有一模塊文件modify.bas。該模塊中的money過程是用于統(tǒng)計一個有7個工作人員的餐廳發(fā)工資所需的100元、5

43、0元、10元、5元和1元的票面數(shù)，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。 modify.bas模塊中的salarydata過程是給出7個員工的工資。（工資單位是元） 程序如下：dim salary(7) as integerpublic sub money() dim hundred as integer, totalhundred as integer '100元票面數(shù)量、總數(shù)量 dim fifty as integer, totalfifty as integer '50元票面數(shù)量、總數(shù)量 dim ten as integer, totalten as intege

44、r '10元票面數(shù)量、總數(shù)量 dim five as integer, totalfive as integer '5元票面數(shù)量、總數(shù)量 dim one as integer, totalone as integer '1元票面數(shù)量、總數(shù)量 dim totalsalary as integer '工資總計 dim i as integer, temp as integer totalhundred = 0 totalfifty = 0 totalten = 0 totalfive = 0 totalone = 0 totalsalary = 0 for i =

45、1 to 7 temp = -1- hundred = int(temp / 100) temp = -2- fifty = int(temp / 50) temp = temp - fifty * 50 ten = int(temp / 10) temp = temp - ten * 10 five = int(temp / 5) temp = temp - five * 5 one = -3- totalhundred = totalhundred + hundred totalfifty = totalfifty + fifty totalten = totalten + ten tot

46、alfive = totalfive + five totalone = totalone + one totalsalary = -4- next i form1.print "共需100元" & str(totalhundred) & "張" form1.print "共需50元" & str(totalfifty) & "張" form1.print "共需10元" & str(totalten) & "張" form1.

47、print "共需5元" & str(totalfive) & "張" form1.print "共需1元" & str(totalone) & "張" form1.print "合計" & str(totalsalary) & "元"end subpublic sub salarydata() salary(1) = 1398 salary(2) = 1765 salary(3) = 689 salary(4) = 1500

48、salary(5) = 832 salary(6) = 590 salary(7) = 1200end sub9.已有一模塊文件modify.bas。該模塊中的 maxline 過程用于查找一個5行4列的二維數(shù)組中行平均值最大的行，并將該行所有數(shù)據(jù)調(diào)整到第一行的位置。 modify.bas模塊中的dataproduce 過程用于產(chǎn)生原始數(shù)據(jù)；average 過程用于計算各行的平均值；printarray過程用于打印二維數(shù)組和行平均值。 程序如下：dim a(1 to 5, 1 to 4) as integerdim ave(1 to 5) as integerpublic sub maxlin

49、e() dim i as integer dim j as integer dim temp as integer dim line_no as integer '最大平均值的行號 '找出最大平均值所在行 line_no = 1 for i = 2 to 5 '* 錯誤1 * if ave(line_no) >= ave(i) then '* 錯誤2 * line_no = ave(i) end if next i '交換第一行與最大平均值所在行 for j = 1 to 4 temp = a(1, j) '* 錯誤3 * a(line_n

50、o, j) = a(1, j) a(line_no, j) = temp next j '交換對應行的平均值 temp = ave(1) ave(1) = ave(line_no) ave(line_no) = temp '打印交換后的數(shù)據(jù) form1.print "交換后的數(shù)據(jù)和平均值" printarrayend subpublic sub dataproduce() dim i as integer dim j as integer '產(chǎn)生5*4數(shù)組 for i = 1 to 5 for j = 1 to 4 a(i, j) = int(100

51、 * rnd) next j next iend subpublic sub average() dim i as integer dim j as integer dim sum as integer '計算各行平均值 for i = 1 to 5 sum = 0 for j = 1 to 4 '* 錯誤4 * sum = a(i, j) next j ave(i) = sum / 4 next i '將數(shù)組和平均值打印出來 form1.print "原始數(shù)據(jù)和平均值" printarrayend subpublic sub printarray() dim i as integer dim j as integer for i = 1 to 5 for j = 1 to 4 form1.print a(i, j); spc(3); next j form1.print "平均值=" ave(i) next iend sub10已有一模塊文件modify.bas。該模塊中的 wrap 過程用于判斷一個字符串是否“回文”。所謂“回文”是指字符串順讀與倒讀都是一樣的，如“潮起潮落，落潮起潮”。 程序如下：public sub wrap() dim length as intege