第11套上機(jī)考試試題1基本操作題(2小題，每題15分，共計(jì)30分)注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序(包括界面和代碼)。(1)在Form1的窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，然后建立一個(gè)主菜單，標(biāo)題為“操作”，名稱(chēng)為Op，該菜單有兩個(gè)子菜單，其標(biāo)題分別為“顯示”和“退出”，其名稱(chēng)分別為Dis和Exit，編寫(xiě)適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊“操作”菜單中的“顯示”命令，則在文本框中顯示“計(jì)算機(jī)考試”；如果單擊“退出”命令，則結(jié)束程序運(yùn)行。程序的運(yùn)行情況如圖11-1所示。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt1.vbp，窗體文件名為sjt1.frm。(2)在窗體上畫(huà)一個(gè)列表框，名稱(chēng)為L(zhǎng)1，通過(guò)“屬性”窗口向列表框中添加4個(gè)項(xiàng)目，分別為“WHBB”、“HIJK”、“QWEI”和“POIU”，單擊列表框中的某一項(xiàng)，則該項(xiàng)就從列表框中消失。程序的運(yùn)行情況如圖11-2和圖1l-3所示。注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjtt2.frm。2簡(jiǎn)單應(yīng)用題(2小題，每題20分，共計(jì)40分)注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。(1)在考生文件夾下有工程文件sjt3.vbp及窗體文件sjt3.frm，該程序是不完整的，請(qǐng)?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即'號(hào))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。本題描述如下：在窗體中有兩個(gè)命令按鈕，名稱(chēng)分別是C1和C2，標(biāo)題分別是“修改窗體圖標(biāo)”和“修改窗體標(biāo)題”。要求程序運(yùn)行后，點(diǎn)擊C1命令按鈕，則將窗體標(biāo)題欄中的圖標(biāo)換為圖標(biāo)文件1.ico(該文件在考生文件夾下)；點(diǎn)擊C2命令按鈕，則將窗體標(biāo)題修改為“窗體”。程序界面如圖11-4和圖11-5所示。(2)在考生文件夾下有工程文件sjt4.vbp及窗體文件sjt4.frm，該程序是不完整的，請(qǐng)?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即'號(hào))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。本題描述如下：窗口中有一個(gè)名稱(chēng)為Picture1的圖片框，一個(gè)名稱(chēng)為HScroll1的滾動(dòng)條，3個(gè)命令按鈕，名稱(chēng)分別為Command1，Command2和Command3，標(biāo)題分別為“運(yùn)行”、“暫?！焙汀敖Y(jié)束”，一個(gè)計(jì)時(shí)器控件，名稱(chēng)為T(mén)imer1。程序運(yùn)行后，單擊“運(yùn)行”按鈕后，使小球圍繞大球轉(zhuǎn)動(dòng)，并可以使用滾動(dòng)條調(diào)節(jié)轉(zhuǎn)動(dòng)的速度；單擊“暫?！卑粹o后，暫停小球的轉(zhuǎn)動(dòng)；按“結(jié)束”按鈕結(jié)束程序。程序運(yùn)行界面如圖11-6所示。3綜合應(yīng)用題(1小題，共計(jì)30分)注意：下面出現(xiàn)的“考生文件夾”均為c：\wexam\25160001。在考生文件夾下有工程文件sjt5.vbp及窗體文件sjt5.frm，該程序是不完整的，請(qǐng)?jiān)谟?號(hào)的地方填入正確內(nèi)容，然后刪除?及所有注釋符(即'號(hào))，但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。本題描述如下：在窗體上有一個(gè)名為L(zhǎng)1的列表框，列表框中有若干的列表項(xiàng)如圖11-7所示，通過(guò)屬性窗口設(shè)置列表框的MultiSelect屬性為1。還有兩個(gè)命令按鈕，名稱(chēng)分別是C1和C2，標(biāo)題分別是“全選”和“存盤(pán)”。要求在程序運(yùn)行時(shí)，點(diǎn)擊C1按鈕則將L1中的全部列表項(xiàng)選中，然后點(diǎn)擊C2按鈕，將L1中的全部列表項(xiàng)寫(xiě)入文本文件out7.txt中，并將out7.txt保存在考生文件夾下。答案:1基本操作題(1)解析：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫(xiě)事件過(guò)程。在VisualBasic中，菜單在“菜單編輯器”窗口中建立。通過(guò)End語(yǔ)句結(jié)束程序的運(yùn)行。解題步驟：第一步：建立界面并設(shè)置控件屬性。菜單及控件屬性設(shè)置見(jiàn)表11-1。控件屬性設(shè)置值菜單名字

標(biāo)題Op

操作菜單名字

標(biāo)題Dis

顯示菜單名字

標(biāo)題Exit

退出文本框NameText1第二步：編寫(xiě)程序代碼。參考代碼：PrivateSubDis_Click()Text1.Text="計(jì)算機(jī)考試"EndSubPrivateSubExit_Click()EndEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤(pán)(2)解析：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫(xiě)事件過(guò)程。用RemoveItem方法刪除列表框中指定的項(xiàng)目，其格式為：列表框.RemoveItem索引值RemoveItem方法從列表框中刪除以“索引值”為地址的項(xiàng)目，改方法每次只能刪除一個(gè)項(xiàng)目。ListIndex屬性是已被選中的表項(xiàng)的位置。如果沒(méi)有選中任何項(xiàng)，ListIndex的值將設(shè)置為-1。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表11-2?？丶傩栽O(shè)置值列表框Name

ListL1

WHBB，HIJK

QWEI，POIU第二步：編寫(xiě)程序代碼。參考代碼：PrivateSubL1_Click()L1.RemoveItemL1.ListIndexEndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤(pán)。2簡(jiǎn)單應(yīng)用題(1)解析：在窗體上建立好控件后，先設(shè)置控件屬性，再編寫(xiě)事件過(guò)程。按鈕控件的屬性由Caption來(lái)設(shè)置，單擊觸發(fā)其Click事件。通過(guò)設(shè)置Icon屬性修改窗體的圖標(biāo)，修改窗體的Caption屬性設(shè)置其標(biāo)題。在程序中使用LoadPicture函數(shù)給Icon屬性賦值，其格式為：LoadPicmre("文件名")LoadPicture函數(shù)把圖形文件裝入窗體、圖片框或圖像框中。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表11-3。控件屬性設(shè)置值按鈕Name

CaptionC1

修改窗體圖標(biāo)按鈕Name

CaptionC２

修改窗體標(biāo)題第二步：編寫(xiě)程序代碼。程序提供的代碼：PrivateSubC1_CliCk()'Form1.Icon=LoadPicture("?")EndSubPrivateSubC2_Click()'Form1.?="窗體"EndSub參考代碼：PrivateSubC1_Click()Form1.Icon=LoadPicture("1.ico")EndSubPrivateSubC2_CliCk()Form1.Caption="窗體"EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤(pán)。(2)解析：正面體上建立好控件后，先設(shè)置控件屬性，再編寫(xiě)事件過(guò)程。計(jì)時(shí)器控件作用是以一定的時(shí)間間隔激發(fā)計(jì)時(shí)器事件(Timer)執(zhí)行相應(yīng)程序代碼。當(dāng)時(shí)計(jì)時(shí)器控件的Enabled屬性為T(mén)rue時(shí)，計(jì)時(shí)器計(jì)時(shí)開(kāi)始，當(dāng)為False時(shí)計(jì)時(shí)器計(jì)時(shí)暫停，所以要使小球運(yùn)動(dòng)暫?？蓪nabled屬性值設(shè)置為False，要使小球運(yùn)行，則設(shè)置該屬性值為T(mén)rue。解題步驟：第一步：建立界面并設(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)表11-4?？丶傩栽O(shè)置值按鈕Name

CaptionCommand1

運(yùn)行按鈕Name

CaptionCommang2

暫停按鈕Name

CaptionCommang3

結(jié)束滾動(dòng)條NameHScroll1圖片框NamePicture1第二步：編寫(xiě)程序代碼。程序提供的代碼：OptionEXplicitDimcAsSingle，rAsSingle'r小球到大球的球心的距離，C為小球的角度．DimxAsSingle，yAsSingle'X，Y為小球移動(dòng)時(shí)的圓心DimstAsSinglePrivateSUbCommand1_CliCk()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()'?EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()r=20c=0St=0.063HScroll1.Min=1'設(shè)置最小值HScroll1.Max=100'設(shè)置最大值EndSubPrivateSubHScroll1_Change()'Timer1.?=200-HScroll1.Value'根據(jù)滾動(dòng)條的數(shù)值設(shè)置時(shí)間間隔，速度越快，間隔越小EndSubPrivateSubPiCturelPaint()PiCture1.FillColor=QBColor(12)PiCture1.ForeColor=QBColor(12)PiCture1.Circle(0，0)，2X=Cos(C)*ry=Sin(C)*rPicture1.FillColor=QBColor(14)Picture1.ForeColor=QBColor(14)'Picture1.?(x，y)，0.5c=c＋stIfc＞=2*3.14159Thenc=cMod(2*3.14159)EndIfEndSubPrivateSubTimer1Timer()'?'重畫(huà)圖片框EndSub參考代碼：OptionExplicitDimcAsSingle，rAsSingle'r小球到大球的球心的距離，C為小球的角度．DimxAsSingle，yAsSingle'X，Y為小球移動(dòng)時(shí)的圓心DimstAsSinglePrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPriVateSubCommand2_Click()Timer1.Enabled=FalseEndSubPriVateSubCommand3_Click()EndEndSubPrivateSubForm_Load()r=20c=0st=0.063HScroll1.Min=1'設(shè)置最小值HScroll1.Max=100'設(shè)置最大值EndSubPrivateSubHScroll1_Change()Timer1.Interval=200-HScroll1.Vslue'根據(jù)滾動(dòng)條的數(shù)值設(shè)置時(shí)間間隔，速度越快，間隔越小EndSubPrivateSubPicture1_Paint()Picture1.FillColor=QBColor(12)Picture1.ForeColor=QBColor(12)Picture1.Circle(0，0)，2X=Cos(C)*ry=Sin(C)*rPicture1.Fillcolor=QBColor(14)Picture1.ForeColor=QBColor(14)Picture1.Circle(x，y)，0.5c=c＋stIfc＞=2*3.14159Thenc=cMod(2*3.14159)EndIfEndSubPrivateSubTimer1_Timer()PiCture1.RefreSh'重畫(huà)圖片框EndSub第三步：調(diào)試并運(yùn)行程序。第四步：按題目要求存盤(pán)。3綜合應(yīng)用題解析：列表框用于在很多項(xiàng)目中作出選擇的操作。列表框的ListCount屬性表示表項(xiàng)的數(shù)量，列表項(xiàng)的排列從0開(kāi)始，最后一項(xiàng)的序號(hào)為L(zhǎng)istCount-1。使用列表項(xiàng)的Selected屬性來(lái)表示列表框中哪些項(xiàng)被選中，該屬性實(shí)際上是一個(gè)數(shù)組，各元素與列表框中的一項(xiàng)相對(duì)應(yīng)，其取值為T(mén)rue或False，為T(mén)rue時(shí)表示選擇了該項(xiàng)，為False表示未選擇。解題步驟：第一步：編寫(xiě)程序代碼。程序提供的代碼：PrivateSubC1Click()DimiAsIntegerFori=0TOL1.LiStCount-1'L1.?=TrueNextEndSubPrivateSubC2Click()Dim