全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)vb上機(jī)題

1、第1套上機(jī)考試試題1基本操作題(2小題，每題15分，共計(jì)30分)注意：下面出現(xiàn)的“考生文件夾”均為cwexam25160001。請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在窗體上建立一個(gè)二級(jí)菜單，該菜單含有“文件”和“幫助”(名稱分別為vbFile和vbHelp)兩個(gè)主菜單項(xiàng)，其中“文件”菜單包括“打開”、“關(guān)閉”和“退出”三個(gè)子菜單項(xiàng)(名稱分別為vbOpen、vbClose和vbExit)，如圖

2、11所示。只建立菜單，不必定義其事件過(guò)程。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。(2)在名為Fm1的窗體上畫一個(gè)框架，名稱為Frm1，標(biāo)題為“框架”，高度為2500，寬度為4000，框架內(nèi)建立一文本框，距左邊框600，距框架的上邊框1200，文本框中的初始內(nèi)容設(shè)置為“文本框”。如圖12所示。注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.v

3、bp。2簡(jiǎn)單應(yīng)用題(2小題，每題20分，共計(jì)40分)注意：下面出現(xiàn)的“考生文件夾”均為c:wexam25160001。(1)在考生文件夾中有工程文件sjt3.vbp及其窗體文件sjt3.frm，該程序是不完整的，請(qǐng)?jiān)谟刑?hào)的地方填入正確內(nèi)容，然后刪除及所有注釋符(即’號(hào))，但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。本題描述如下：在窗體上有一個(gè)列表框，名稱為L(zhǎng)ist1，一個(gè)文本框，名稱為Text1，和一個(gè)命令按鈕，名稱為C1，標(biāo)題為

4、“復(fù)制”。要求程序運(yùn)行后，在列表框中自動(dòng)建立4個(gè)列表項(xiàng)，分別為“Item1”、“Item2”、“Item3”、“Item4”如果選擇列表框中的一項(xiàng)，則單擊“復(fù)制”按鈕時(shí)，可以把該項(xiàng)復(fù)制到文本框中，如圖13所示。(2)在考生文件夾中有工程文件sjt4.vbp及其窗體文件sjt4.frm，該程序是不完整的，請(qǐng)?jiān)谟刑?hào)的地方填入正確內(nèi)容，然后刪除及所有注釋符(即’號(hào))但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。在窗體有3個(gè)復(fù)選框，名稱分別

5、為Chi、Ch2和Ch3，標(biāo)題分別為“體育”、“音樂(lè)”、“美術(shù)”，還有一個(gè)命令按鈕，名稱為C1，標(biāo)題為“顯示”。要求程序運(yùn)行后，如果選中某個(gè)復(fù)選框，當(dāng)單擊“顯示”命令按鈕時(shí)，則顯示相應(yīng)的信息。例如，如果選中“體育”和“美術(shù)”復(fù)選框，單擊“顯示”命令按鈕后，在窗體上顯示“我的愛(ài)好是體育美術(shù)”，如圖14所示。3綜合應(yīng)用題(1小題，共計(jì)30分)在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請(qǐng)?jiān)谟刑?hào)的地

6、方填入正確內(nèi)容，然后刪除及所有注釋符(即，號(hào))但不能修改其他部分。存盤時(shí)不得改變文件名和文件夾。本題描述如下：在名稱為Fm1的窗體上有兩個(gè)單選按鈕，名稱分別為Opt1和Opt2，標(biāo)題分別為“100200之間素?cái)?shù)”和“200400之間素?cái)?shù)”，一個(gè)文本框，名稱為Text1，和兩個(gè)命令按鈕，其名稱分別為Cmd1和Cmd2，標(biāo)題分別為“計(jì)算”和“存盤”，如圖15所示。程序運(yùn)行后，如果選中一個(gè)單選按鈕并單擊“計(jì)算”按鈕，則計(jì)算出該單選按鈕標(biāo)題所指

7、明的所有素?cái)?shù)之和。并在文本框中顯示出來(lái)。如果單擊“存盤”按鈕，則把計(jì)算結(jié)果存入“out.txt”文件中，該文件必須放在考生文件夾中。(在考生文件夾中有標(biāo)準(zhǔn)模塊mode.bas，其中的putdata過(guò)程可以把結(jié)果存入指定的文件，而isprime函數(shù)可以判斷整數(shù)x是否為素?cái)?shù)，如果是素?cái)?shù)，則EndSub參考代碼：OptionExplicitPrivateSubCl_Click()DimiAsIntegerFi=0ToList1.ListCou

8、nt1IfList1.ed(i)=TrueThenText1.Text=List1.List(i)EndIfNextiEndSubPrivateSubFmLoad()List1.AddItem“Item1“List1.AddItem“Item2“List1.AddItem“Item3“List1.AddItem“Item4“EndSub第三步：調(diào)試并運(yùn)行。第四步：按題目要求存盤。(2)[解析]在窗體上建立好控件后，先設(shè)置控件屬性，再編寫

9、事件過(guò)程。單擊命令按鈕觸發(fā)Click事件，程序中需要檢測(cè)復(fù)選按鈕的狀態(tài)，可以通過(guò)Value屬性來(lái)實(shí)現(xiàn)。如果復(fù)選按鈕被選中，則Value值為1，否則Value值為0。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性見表13。第二步：編寫程序代碼。程序提供的代碼：OptionExplicitPrivateSubC1_Click()DimsAss=“我的愛(ài)好是”IfCh1.Value=1Thens=sCh1.CaptionEn