vb上機

1、11基本操作（基本操作（2小題，每小題小題，每小題15分，共計分，共計30分）分）請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序（包括界面和代碼）。（1）在窗體上建立一個二級菜單，該菜單含有“文件“和“幫助“（名稱分別為vbFile和vbHelp）兩個主菜單項，其中“文件“菜單包括“打開“、“關(guān)閉“和“退出“三個子菜單項（名稱分別為vbOpen、vbClose和vbExit），如圖11所示。只建立菜單，不必定義其事件過程。注意

2、：保存時必須存放在考生文件夾下，窗體文件名為sjt1.frm，工程文件名為sjt1.vbp。圖11（2）在名為Fm1的窗體上畫一個框架，名稱為Frm1，標(biāo)題為“框架“，高度為2500，寬度為4000，框架內(nèi)建立一文本框，距左邊框600，距框架的上邊框1200，文本框中的初始內(nèi)容設(shè)置為“文本框“。注意：保存時必須存放在考生文件夾下，窗體文件名為sjt2.frm，工程文件名為sjt2.vbp。圖122簡單應(yīng)用（簡單應(yīng)用（2小題，每題小題，每

3、題20分，計分，計40分）分）（1）在考生文件夾中有工程文件sjt3.vbp及其窗體文件sjt3.frm，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，然后刪除？及所有注釋符（即號），但不能修改其他部分。存盤時不得改變文件名和文件夾。本題描述如下：在窗體上有一個列表框，名稱為List1，一個文本框，名稱為Text1，和一個命令按鈕，名稱為C1，標(biāo)題為“復(fù)制“。要求程序運行后，在列表框中自動建立4個列表項，分別為“Item1“、“Ite

4、m2“、“Item3“、“Item4“如果選擇列表框中的一項，則單擊“復(fù)制“按鈕時，可以把該項復(fù)制到文本框中，如圖13所示。圖13（2）在考生文件夾中有工程文件sjt4.vbp及其窗體文件sjt4.frm，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，然后刪除？及所有注釋符（即號）但不能修改其他部分。存盤時不得改變文件名和文件夾。本題描述如下：在窗體有3個復(fù)選框，名稱分別為Ch1、Ch2和Ch3，標(biāo)題分別為“體育“、“音樂“、“美術(shù)“

5、，還有一個命令按鈕，名稱為C1，標(biāo)題為“顯示“。要求程序運行后，如果選中某個復(fù)選框，當(dāng)單擊“顯示“命令按鈕時，則顯示相應(yīng)的信息。例如，如果選中“體育“和“美術(shù)“復(fù)選框，單擊“顯示“命令按鈕后，在窗體上顯示“我的愛好是體育美術(shù)“，如圖14所示。圖143綜合應(yīng)用（綜合應(yīng)用（1小題，計小題，計30分）分）在考生文件夾中有工程文件sjt5.vbp及其窗體文件sjt5.frm，該程序是不完整的，請在有？號的地方填入正確內(nèi)容，然后刪除？及所有注釋符

6、（即號）但不能修改其他部分。存盤時不得改變文件名和文件夾。本題描述如下：在名稱為Fm1的窗體上有兩個單選按鈕，名稱分別為Opt1和Opt2，標(biāo)題分別為“100200之間素數(shù)“和“200400之間素數(shù)“，一個文本框，名稱為Text1，和兩個命令按鈕，其名稱分別為Cmd1和Cmd2，標(biāo)題分別為“計算“和“存盤“，如圖15所示。程序運行后，如果選中一個單選按鈕并單擊“計算“按鈕，則計算出該單選按鈕標(biāo)題所指明的所有素數(shù)之和。并在文本框中顯示出來

7、。如果單擊“存盤“按鈕，則把計算結(jié)果存入“out.txt“文件中，該文件必須放在考生文件夾中。（在考生文件夾中有標(biāo)準(zhǔn)模塊mode.bas，其中的putdata過程可以把結(jié)果存入指定的文件，而isprime函數(shù)可以判斷整數(shù)x是否為素數(shù)，如果是素數(shù)，則函數(shù)返回True，否則返回False，考生可以將該模塊文件添加到自己的工程中。）注意：必須把200400之間的素數(shù)之和存入考生文件夾下的out.txt文件中，否則沒有成績。保存程序時必須存放在

8、考生文件夾下，窗體文件名為sjt5.frm，工程文件名為sjt5.vbp。3圖261基本操作基本操作（1）解析：解析：在VisualBasic中，菜單項通過菜單編輯器來建立。解題步驟：解題步驟：第一步：打開“菜單編輯器“窗口，建立菜單項。用到的菜單項及其屬性見表11。第二步：調(diào)試并運行程序。第三步：按題目要求存盤。（2）解析：在窗體上建立好控件后，再按題目要求設(shè)置各自的屬性即可。需要指出的是在框架里的控件需要畫出框架后，單擊工具箱里的控

9、件然后在框架里拖動畫出所需控件，不可以用雙擊的方法，否則所需的控件放不到框架里。窗體中的控件的具體位置由控件的Top、Left屬性設(shè)置，大小由屬性Height、Width設(shè)置。解題步驟：解題步驟：第一步：設(shè)置框架的Height、Width屬性分別為25004000；文本框的Left、Top屬性值分別為600，1200。(以上均可在屬性欄里設(shè)置)第二步：調(diào)試并運行程序。第三步：按題目要求存盤。2簡單應(yīng)用簡單應(yīng)用（1）解析：解析：在窗體上建

10、立好控件后，先設(shè)置控件屬性，再編寫事件過程。向列表框中添加項目可以用AddItem方法，也可以在屬性窗口中進(jìn)行。但題目中要求是程序運行后自動添加，所以利用代碼實現(xiàn)。列表框的Text屬性為最后一次選中的表項的文本。解題步驟：解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及屬性設(shè)置見表12。表12控件屬性設(shè)置值列表框NameList1文本框NameText1命令按鈕NameCaptionC1復(fù)制第二步：編寫程序代碼。程序提供的代

11、碼：OptionExplicitPrivateSubC1_Click()DimiAsIntegerFi=ToList1.ListCount1IfList1.ed(i)=TrueThen=List1.List(i)EndIfNextiEndSubPrivateSubFm_Load()List1.AddItem“Item1“List1.AddItem“Item2“List1.AddItem“Item3“List1.AddItem“Item4