全國計算機等級考試二級vb上機題

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

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

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

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

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

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

7、明的所有素數(shù)之和。并在文本框中顯示出來。如果單擊“存盤”按鈕，則把計算結(jié)果存入“out.txt”文件中，該文件必須放在考生文件夾中。(在考生文件夾中有標準模塊mode.bas，其中的putdata過程可以把結(jié)果存入指定的文件，而isprime函數(shù)可以判斷整數(shù)x是否為素數(shù)，如果是素數(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)試并運行。第四步：按題目要求存盤。(2)[解析]在窗體上建立好控件后，先設(shè)置控件屬性，再編寫

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