vb上機(jī)

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

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

3、題20分，計(jì)分，計(jì)40分）分）（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)題為“復(fù)制“。要求程序運(yùn)行后，在列表框中自動(dòng)建立4個(gè)列表項(xiàng)，分別為“Item1“、“Ite

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

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

6、（即號(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)題所指明的所有素?cái)?shù)之和。并在文本框中顯示出來(lái)

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

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

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

10、立好控件后，先設(shè)置控件屬性，再編寫事件過程。向列表框中添加項(xiàng)目可以用AddItem方法，也可以在屬性窗口中進(jìn)行。但題目中要求是程序運(yùn)行后自動(dòng)添加，所以利用代碼實(shí)現(xiàn)。列表框的Text屬性為最后一次選中的表項(xiàng)的文本。解題步驟：解題步驟：第一步：建立界面并設(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