二級VISUAL+BASIC機試模擬8

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

標(biāo)題Op

操作菜單名字

標(biāo)題Dis

顯示菜單名字

標(biāo)題Exit

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

ListL1

WHBB，HIJK

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

CaptionC1

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

CaptionC２

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

CaptionCommand1

運行按鈕Name

CaptionCommang2

暫停按鈕Name

CaptionCommang3

結(jié)束滾動條NameHScroll1圖片框NamePicture1第二步：編寫程序代碼。程序提供的代碼：OptionEXplicitDimcAsSingle，rAsSingle'r小球到大球的球心的距離，C為小球的角度．DimxAsSingle，yAsSingle'X，Y為小球移動時的圓心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ù)滾動條的數(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()'?'重畫圖片框EndSub參考代碼：OptionExplicitDimcAsSingle，rAsSingle'r小球到大球的球心的距離，C為小球的角度．DimxAsSingle，yAsSingle'X，Y為小球移動時的圓心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ù)滾動條的數(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'重畫圖片框EndSub第三步：調(diào)試并運行程序。第四步：按題目要求存盤。3綜合應(yīng)用題解析：列表框用于在很多項目中作出選擇的操作。列表框的ListCount屬性表示表項的數(shù)量，列表項的排列從0開始，最后一項的序號為ListCount-1。使用列表項的Selected屬性來表示列表框中哪些項被選中，該屬性實際上是一個數(shù)組，各元素與列表框中的一項相對應(yīng)，其取值為True或False，為True時表示選擇了該項，為False表示未選擇。解題步驟：第一步：編寫程序代碼。程序提供的代碼：PrivateSubC1Click()DimiAsIntegerFori=0TOL1.LiStCount-1'L1.?=TrueNextEndSubPrivateSubC2Click()Dim