13年國(guó)家二級(jí)計(jì)算機(jī)VB上級(jí)題庫(kù)答案

1上機(jī)愿答案解析第一套上機(jī)答案解析第一套上機(jī)答案解析166ー、基本操作題第1小題單項(xiàng)的Click事件過(guò)程中,令Shal的Shape屬性為I,在“圈形”菜單項(xiàng)的Oick事件過(guò)程中,令Shal的Shape屬性為3?！静僮鞑襟E】【審題分析】本題只需按題目要求B8出含ー個(gè)元索的步驟h新建一個(gè)"標(biāo)準(zhǔn)EXET?程,在窗體Forml中畫(huà)個(gè)名為Shal的形狀控件.按鈕數(shù)組,并分別設(shè)置個(gè)名為Shal的形狀控件.【操作步驟】步驟2:選擇［UU一【菜單編輯器】命令,打開(kāi)【操作步驟】菜單設(shè)計(jì)器,如表2中的設(shè)置建立菜單項(xiàng).步驟1:新建個(gè)"標(biāo)準(zhǔn)EXE”工程,如衣1菜單設(shè)計(jì)器,如表2中的設(shè)置建立菜單項(xiàng).豆制”和”粘貼"畫(huà)出控件數(shù)組并設(shè)置屬性. ぎ表2表1対飯屬性標(biāo)題名稱內(nèi)縮符號(hào)西體NameForml形狀shapeO0Caption按鈕窗口正方形shape11命金按鈕!NameComxnandl圓形shape?1Index0Caption是歩驟3:打開(kāi)代碼編輯窗口,編寫菜單命令的単擊事件過(guò)程。參考代碼:PrivateSubShapel_Click()Me.Shal.Shape=1EndSubPrivateSubShape2_ClickOForml.Shal=3Width800Height300命令按鈕2NameCommand1Index1Cation否Width800Height300命令按鈕3NameCommand1Index2Caption取消Width800Height300步驟2:按要求將文件保存至考生文件夾中.【主要考點(diǎn)】控件數(shù)組面法.第2小題EndSub步驟4:按要求將文件保存至考生文件夾中。二、簡(jiǎn)單應(yīng)用邃第1小蓬【知識(shí)點(diǎn)拔】形狀控件(Shape)提供了顯示些規(guī)則圖【知識(shí)點(diǎn)拔】①某容器(如窗體和框架)中的單選按鈕形的簡(jiǎn)易方法。通過(guò)設(shè)置形狀控件Shape屬性值,可顯示6種(OptionButton)組常用「提供多個(gè)選項(xiàng)之間的唯一選擇,箕圖形:〇一矩形、1一正方形、2—橢惻、3ー圖、4一岡用矩形、Value屬性用F設(shè)置或返回毎個(gè)單選按鈕的選中狀態(tài):值為5ー阿用正方形.Width屬性用于設(shè)置形狀的寬度,當(dāng)形狀為False時(shí)表示未被選中,值為True時(shí)表示被選中,其Caption蟠惻時(shí)即為惻的直徑。性來(lái)設(shè)置或返回單選按鈕的標(biāo)題內(nèi)容。②分支控制結(jié)構(gòu)是結(jié)【審題分析】要實(shí)現(xiàn)本題中的功能.應(yīng)在“正方形"菜構(gòu)化程序設(shè)計(jì)的基本結(jié)構(gòu)之一,它所要解決的是根據(jù)條件判斷的結(jié)果決定程序執(zhí)行的流向。選擇控制結(jié)構(gòu)就是其中種.它是由兩個(gè)分支構(gòu)成的,就是說(shuō),條件要么是真,要么是假,沒(méi)有其他的選擇.在執(zhí)行結(jié)構(gòu)時(shí)按照所指定的條件進(jìn)行判斷并選擇其中,組語(yǔ)句來(lái)執(zhí)行。I階句就是種選擇控制結(jié)構(gòu),其般語(yǔ)法為:If條件Then語(yǔ)句塊AElse語(yǔ)句塊BEndIf功能:判斷條件,如果條件為"真”,則執(zhí)行語(yǔ)句塊A部分,反之則執(zhí)行語(yǔ)句塊B部分。【審題分析】根據(jù)題目要求,在本題的程序設(shè)計(jì)上,首先以O(shè)pl是否選中作為If…Then…Else語(yǔ)句的條件,由此分岀兩種情況:Opl被選中或Op2被選中,在條件為真（即Opl被選中）時(shí)文本框】中顯示“我是男生”,否則顯示”我是女生"：接下來(lái)分別判斷兩個(gè)豆選框是否選中并相應(yīng)在文本框2上顯示內(nèi)容。以上判斷和顯示操作均在CI的Click事件中完成?！静僮鞑襟E】步驟1：打開(kāi)考生文件夾下的本題匚程文件sjt3、bp.步驟2:在窗體Forml中加入兩個(gè)單.選按鈕和兩個(gè)發(fā)選框,分別設(shè)置它們的相關(guān)屬性,屬性及式值如表3所示.表3對(duì)象屬性值單選按鈕1NameOplCaption男生單選按鈕2NameOp2Caption女生復(fù)選框1NameChiCaption體盲復(fù)選框2NameCh2Caption音樂(lè)步驟3:打開(kāi)代碼編輯窗I】輸入如ド代碼:參考代碼:PrivateSubCI_Click()DimaAsStringaい我是"IfOpl.ValueThenTextI.Text=a&OpI.CaptionElseText1.Texta&Opl.CaptionEndIfa="我的愛(ài)好是"IfChl.Valuc=1ThenTextl.Texta&Chi.Captiona=Texl2.TextEndIfIfCh2.Value=1ThenText2.Text=a&Ch2.CaptionEndIfEndSub步驟4:按〈F5＞健運(yùn)行程序,先選中選中個(gè)単選按鈕和至少，個(gè)品選框，并單擊“確定”按鈕,然后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟S:按要求將文件保存至考生文件夾中.步驟步驟2：打開(kāi)代科編輯窗口,編寫相應(yīng)事件過(guò)程.參考代瑪:OptionBaseIDimsum(6)AsIntegerPrivateSubCommand1_Click()OpenApp.Path&"加5.txt"ForInputAs#1Text1.Text=lnput(LOF(1),#1)Close#1EndSubPrivateSubCommand2Click()Fori=1lb6sum(i)=0NcxtiIfLen(Textl.Text)=0ThenMsgBox"請(qǐng)先使用1讀數(shù)二功能!”ElseFori=1ToLen(Text1.Text)c=LCase(Mid(Textl.Text.i,1))SelectCasecCase"i"sum(I)=sum(1)+1Case"j"sum(2)=sum(2)+ICase"k"第2小題【審題分析】要實(shí)現(xiàn)木題中的功能,在窗體的Load,并件過(guò)程中,令全局變誌i的初值為〇,然后設(shè)置計(jì)時(shí)器的Interval屬性為1000并啟用計(jì)時(shí)器:在計(jì)時(shí)器的!imer事件中把列表框的第i項(xiàng)顯示在標(biāo)簽中,接ド來(lái)令i+1,旦i超過(guò)了3就將其重新置。以便實(shí)現(xiàn)循環(huán)顯示.【操作步驟】步驟1:打開(kāi)考生文件中的本題工程文件sjt4.vbp,通過(guò)屬性窗「I向列表框添加四個(gè)項(xiàng)冃,分別是:"第?項(xiàng)"、"第二項(xiàng)\"第三項(xiàng)"、”第四項(xiàng)，步驟2:在代碼編輯窗口,去掉程序中的注釋符"つ將問(wèn)號(hào)"?*'改為正確的內(nèi)容.參考代碼:i=0Timer1.Interval=1000LabelI.Caption=Listl.List(i)步驟3:按要求將文件保存至考生文件夾中.三、綜合操作題【審題分析】程序設(shè)計(jì)思路:在"讀數(shù)"按鈕的單擊事件過(guò)程中,用Open港句以Input方式打開(kāi)數(shù)據(jù)文件in5.txt,并用Input()函數(shù)讀出所有字符后顯示在文本框中:在"統(tǒng)計(jì)"按扭的單擊事件過(guò)程中,通過(guò)For循環(huán)用Mid函數(shù)逐取出文本框中的字符并轉(zhuǎn)換成小寫,用SelectCase語(yǔ)句對(duì)取出的字符進(jìn)行檢査,并用窗體數(shù)組變量sum。卜sum(6)記錄ア母i、j、k、km、n出現(xiàn)的次數(shù)。在"存盤"按鈕的單擊事件過(guò)程中,川Open語(yǔ)句以O(shè)utput方式打開(kāi)數(shù)據(jù)文件out5.txt,并通過(guò)For循環(huán)用Print#方法逐一將數(shù)組中的元素存入該文件.【操作步驟】步驟1：新建一個(gè)"標(biāo)準(zhǔn)EXE"I:程,如表4在窗體中幽出控件并設(shè)置其相關(guān)屬性。表4

對(duì)象屬性值文本框NameTextlXfultiLineTrueText命令按鈕1NameCommand1Cation讀數(shù)命令按鈕2NameCommand?Cation統(tǒng)計(jì)命令按鈕3NameCommand3Cation存盤sum(3)=sum(3)+ICase"I"sum(4)=sum(4)+ICase"m"sum(5)=sum(5)+1Case"n"sum(6)=sum(6)+IEndSelectNextiEndIfEndSubPrivateSubCommand3_CIick()OpenApp.Path&"\out5.txt"ForOutputAs#1Fori=1To6Print#1,sum(i)NcxtiClose#1EndSub步驟3：按要求將文件保存至考生文件夾中。第二套上機(jī)答案解析167、基本操作題第I小題【審題分析】本題只需按題目要求畫(huà)出框架和單選按鈕,并分別設(shè)置其屬性。【操作步驟】步驟I:新建個(gè)“標(biāo)準(zhǔn)EXE”匸程,如表1在窗體上繪制控件并設(shè)置風(fēng)性。表I控件屬性設(shè)置

對(duì)象屬性值窗體NameFormlCaption測(cè)試框架NameFramelCaption字體単選按鈕1NameOptlCaption京書(shū)単選按鈕2NameOpt?Caption宋體步驟2:按要求將文件保存至考生文件夾中.第2小題【知識(shí)點(diǎn)拔】形狀控件的FillStyle用于設(shè)置其填充樣式:I-Transparent一透明、0-Solidー實(shí)線、2-HorizontalLine一水平線、3—VerticalLine?垂直線、4—UpwardDiagonal-向上對(duì)角線、5—DownWardDiag.向下對(duì)角線、6—Cross?交叉線、7一DiagonalCross對(duì)角交叉線,缺省值為1?！緦忣}分析】木題需分別在兩個(gè)命令按鈕的Click事件過(guò)程中,編寫設(shè)置形狀控件Shapel的FillStyle國(guó)性為相應(yīng)值的語(yǔ)句?【操作步驟】步驟I：新建一個(gè)"標(biāo)準(zhǔn)EXE”工程,如表2住窗體中価出控件并設(shè)置凡相關(guān)屬性。時(shí)金皿住g時(shí)狀扌空件ZameStiape13Width1000命ー扌安鈕!ZameCommandCTaption市百タ戈命令J安?丑2WarneCommand-Uaption水平與戈步驟2:在代碼編輯窗I」編電兩個(gè)命令按鈕的單擊事件過(guò)程。參考代碼:PrivateSubCommand!_Click()Shape!.FillStyle=3EndSubPrivateSubCommand2_C!ick()Form1,ShapeI.FillStyle=2EndSub步驟3:按要求將文件保存至考生文件夾中。二、簡(jiǎn)單應(yīng)用題第1小題【知識(shí)點(diǎn)拔】①UCascO函數(shù)用于將字符串中小寫字母轉(zhuǎn)換為大寫字母,原本大寫或非字母字符保持不變。②LCase。函數(shù)用于將字符串中大寫字母轉(zhuǎn)化為小寫字母,原本小寫或非字母字符保持不變?！緦忣}分析】本題原程序是在命令按鈕的單擊事件過(guò)程中,用For循環(huán)語(yǔ)句和Mid函數(shù)逐?取出文本框氏x(chóng)tl中的字符后進(jìn)行判斷,如果是小寫字母就用UCase函數(shù)轉(zhuǎn)換為大寫,如果是大寫字母就用LCase函數(shù)轉(zhuǎn)換為小寫，如果不是字母就不用轉(zhuǎn)換,將轉(zhuǎn)換結(jié)果顯示在文木框Text】中?【操作步驟】步驟1:打開(kāi)考生文件中的木題L程文件sjt3.vbp,在代碼編輯窗口,去掉程序中的注釋符"つ將問(wèn)號(hào)"?”改為正確的內(nèi)容.參考代碼:n%=Asc(Ma")-AscCA")B$=String!I.Asc(BS)+32)Text1.Text=A步驟2:按要求將文件保存至考生文件夾中?！矩耙键c(diǎn)】字符串函數(shù)。第2小題【審題分析】本題原程序在“插入-按鈕的單擊事件過(guò)程中,用接收到的數(shù)據(jù)(已賦值給變量num)逐一與數(shù)組a中的元素進(jìn)行比較，若前者小于后者,則用語(yǔ)句ExitFor退出循環(huán)(此時(shí)i指向的位置即為輸入數(shù)的插入位置).接著再用ー個(gè)For循環(huán)將數(shù)組a中i指向位置之后(含i)的元素(即a(i)-a(60))的值,如從后向前的順序(即步長(zhǎng)為-1)逐個(gè)存入數(shù)組元素a(61)-a(i+l)中,并在循環(huán)結(jié)束時(shí),將輸入數(shù)賦值給a(i),消空文本框后,再用For循環(huán)將數(shù)組a中的6個(gè)元素顯示在文本框中,【操作步驟】步驟I:打開(kāi)考生文件中的本題I.程文件sjt4.vbp,在代碼編輯窗口,去掉程序中的注擇符”"',將問(wèn)號(hào)”?”改為正確的內(nèi)容.參考代碼:Ifnum<a(i)ThenExitForForj=601biStep-1a(j+l)=a(j)a(り=numFork=1To61步驟2:按要求將文件保存至考生文件夾中。三、綜合操作題【審題分析】以空格為單詞的分隔標(biāo)志，在For循環(huán)中用Mid函數(shù)逐取出變量s中的毎個(gè)字符，并檢査其是否為空格,若不是空格則將該字母作為當(dāng)前單詞的部分,否則將當(dāng)前小詞的長(zhǎng)度累加入個(gè)記錄所有唯詞總長(zhǎng)度的變量中(如wordJen),用另，個(gè)變量(如Iword-num)記錄已有單詞個(gè)數(shù),并將當(dāng)前單詞的長(zhǎng)度與記錄単詞展氏值的變址(如wonl_max)比較,將兩若中的較大值存入該變質(zhì)中.循環(huán)結(jié)束后，將表達(dá)式Clnt((wordJen+Len(t))/(word_num+1))的值顯示在Textl中,word_max值M示在Text2中〇注意:為防止數(shù)據(jù)文件的展后個(gè)字符不是空格而導(dǎo)致最后個(gè)單詞不在統(tǒng)計(jì)之列的情況,在開(kāi)始找單詞前在變fits的最后連上一個(gè)空格?！静僮鞑襟E】步驟I:打開(kāi)考生文件夾下的木題1:程文件sjt5.vbp.如表3所列在窗體上畫(huà)出控件并設(shè)置它們的相關(guān)屬性。表3

對(duì)象屬性值標(biāo)簽1NameLabel1Caption單詞的平均長(zhǎng)度為標(biāo)簽2NameLabel?Caption單詞的最長(zhǎng)長(zhǎng)度為文本衽!NameTextlText文本框2NameText2Text

Text2.TextwordmaxEndSub步驟3:按要求將文件保存至考生文件夾中。步驟4:按＜F5＞鍵運(yùn)行程序,先用擊“讀數(shù)據(jù)”按鈕,再單擊“統(tǒng)計(jì)”按鈕,最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。第三套上機(jī)答案解析168對(duì)對(duì)象屬性值標(biāo)簽NameLabel1Caption計(jì)算機(jī)等綴考試FontName二號(hào)AutoSizeTrueBorderStyle1窗體Caption標(biāo)簽步驟2:打開(kāi)代碼編輯窗口.在指定位置編寫"統(tǒng)計(jì)"按鈕的単擊事件過(guò)程.參考代碼:PrivateSubCommand2_Click()，需考生編寫n=Len(s):t=""Dimword_maxAsInteger,wordnumAsInteger,wordlenAsintegerFori=IToncMid(s,i,1)Ifco-"Thent?t+cElsewordlen=wordlen+Len(t)word_num=wordnum+IIfLen(t)>word_maxThenword_max=Len(t)EndIft=""EndIfNcxtiText1.Text-Clnt((wordJen+Len(t))/(wordnum*1))IfLcn(t)>wordmaxThenwordmaxLen(t)EndIf

、基本煤作題第1小題【審題分析】本題只需按要求面出控件并設(shè)置其相應(yīng)屬性即可.【操作步驟】步驟I:新建個(gè)"標(biāo)準(zhǔn)EXE”工程,在窗體Forml中畫(huà)一個(gè)標(biāo)簽,并設(shè)置它的相關(guān)屬性,其屬性和值如表1所示。表】步驟2:按要求將文件保存至考生文件夾中.第2小題（知識(shí)點(diǎn)拔】捽件的Tab】ndex屬性可設(shè)置或返回其在當(dāng)前窗體中的Tab健次序，所謂Tab鍵次序是指按＜Tab＞鍵或＜Shih+Tab＞鍵時(shí),焦點(diǎn)從ー個(gè)對(duì)象移到另?個(gè)的次序。通常在窗體上畫(huà)控件時(shí),VB會(huì)自動(dòng)為其分配Tab鍵順序（Menu、Timer、Data＞Image＞Line、Shape等控件除外），運(yùn)行時(shí)被設(shè)置為不可見(jiàn)或無(wú)效的控件以及不能接受焦點(diǎn)的控件（如Frame和しabel）仍可保持在Tab順序中，但用くTab＞鍵切換時(shí)會(huì)跳過(guò)這些控件?！緦忣}分析】根據(jù)題意,本題需在滾動(dòng)條的Change事件過(guò)程中編寫在文本框中輸出滾動(dòng)條帶冊(cè)Value值的語(yǔ)句?！静僮鞑襟E】步驟1:新建一個(gè)"標(biāo)準(zhǔn)EXE”【程,在窗體Form】中畫(huà)個(gè)命令按鈕和個(gè)水平滾動(dòng)條,在屬性設(shè)置窗口中設(shè)置其相關(guān)屬性,其屬性及值如表2所示。表2対載網(wǎng)性設(shè)?值水平漆動(dòng)條NameHScrolllMax100Mm1lablndex0文本框NameTextlText1步驟2:打開(kāi)代碼編輯窗口,編寫水平滾動(dòng)條的Change事件過(guò)程。參考代碼:PrivateSubHScroll1_Change（）Text1.Text=HScroll1.ValueEndSub步驟3:按要求將文件保存至考生文件夾中.二、簡(jiǎn)単應(yīng)用題第1小題【知識(shí)點(diǎn)拔】①形狀控件（Shape）提供了顯示一些規(guī)則圖形的簡(jiǎn)易方法。通過(guò)設(shè)置形狀控件Shape屬性值,可顯示6種圖形:〇一矩形、I一正方形、2ー橢圓、3一圈、4ー側(cè)角矩彫、5ー惻仍正方彫。Width屈性用于設(shè)置形狀的寬度,當(dāng)形狀為圖時(shí)即為例的直徑。②Move方法用于移動(dòng)窗體或控件,其語(yǔ)法為:対象れMoveLcft,lbp,Width,Hcight?【審題分析】本題在計(jì)時(shí)器的Timer事件過(guò)程中,Shapcl每次上下移動(dòng)的距離為s（值為負(fù)向上移動(dòng),值為正向ド移動(dòng)，初值為イ0）,若Shapel向上移動(dòng)后其Top屬性值小于或等于Lincl的YI（或丫2）屬性値,貝k取其相反數(shù),Shape!向ド移動(dòng)。若Sh叩ト移動(dòng)后其Top國(guó)性值與其Width膽性值之和大于或等于Linc2的Y1（或Y2）屬性值,則s再取其相反數(shù)，Shapel向上移動(dòng)。窗體加載時(shí)，計(jì)時(shí)器啟動(dòng),Shapel開(kāi)始在Line】和Line2之間運(yùn)動(dòng)。【操作步驟】步驟—打開(kāi)考生文件下的本題工程文件対t3.vbp,在窗體上兩條水平直線間叫個(gè)形狀控件,并如我3設(shè)置其屬性。表3對(duì)象屬性值形狀控件NameShapelShape3Top360FillStyle0FillColor&H000000FF&BorderColor&H000000FF&步驟2:在代碼編輯窗口,去掉程序中的注秤符f,將問(wèn)號(hào)"?”改為正確的內(nèi)容。參考代碼:Timer（.Enabled=TrueIfShapel.Top<=Linl.YIThenIfShapel.Top+Shapel.Height>=Lin2.YlThen步驟3:按要求將文件保存至考生文件夾中.第2小題【知識(shí)點(diǎn)拔】調(diào)用過(guò)程有網(wǎng)種方式:種是過(guò)程名參數(shù)1,參數(shù)2,...:另ー種是Call過(guò)程名（參數(shù)1,參數(shù)2,…）?！緦忣}分析】本題原程序在"計(jì)算”按鈕的單擊事件過(guò)程中,逐一檢賈組合框中的列表項(xiàng)是否選中,將選中列表項(xiàng)的索引號(hào)作為判斷依據(jù),根據(jù)選中不同的項(xiàng)來(lái)調(diào)用不同的過(guò)程。過(guò)程even用來(lái)求得數(shù)組中的例數(shù)平均值,首先預(yù)設(shè)累加和變星s=0以及計(jì)數(shù)器n=0,然后通過(guò)?個(gè)執(zhí)行100次的For循Functionodd()Functionodd()環(huán)來(lái)遍歷整個(gè)數(shù)組,依次判斷數(shù)組元素是否為偶數(shù),若是偶數(shù)則將其加入類價(jià)格變星s中以及令計(jì)數(shù)器加】,循環(huán)結(jié)束后用累加和除以計(jì)數(shù)器即得到平均值。同理編寫odd過(guò)程用來(lái)求得數(shù)組中奇數(shù)的平均值,all過(guò)程用來(lái)求得數(shù)組中所冇數(shù)的平均值?！静僮鞑襟E】步驟h打開(kāi)號(hào)生文件中的本題工程文件sjt4.vbp,在代碼編輯窗口,編寫"計(jì)算"按鈕的單擊事件過(guò)程以及三個(gè)自定義過(guò)程。參考代碼:PrivateSubCommand2-Click。SelectCaseComboI.ListindexCaseOText!=even。TextI=odd。Tcxtl=al!。EndSelectEndSubFunctioneven。DimsAsSingle,nAsIntegers=0Fork=1To100Ifa(k)/2=Fix(a(k)/2)Thens=s+a(k)n=n+1EndIfNexts=s/neven=Clnt(s)EndFunctionDimsAsSingle,nAsIntegers=0Fork=Ilb100Ifa(k)/20Fix(a(k)/2)Thens=s+a(k)n=n+IEndIfNexts=s/noddClnt(s)EndFunctionFunctionall。DimsAsSingle,nAsIntegers=0Fork=ITo100s?s+a(k)Nexts-s/100all=Clnt(s)EndFunction步驟2:按要求將文件保存至考生文件夾中。步驟3:按＜F5＞鍵運(yùn)行程序,先單擊“讀數(shù)據(jù)”按鈕,然后選擇組合框中的項(xiàng)再單擊"計(jì)算"按鈕,最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。三、偉分操作題【知識(shí)點(diǎn)拔】數(shù)組是ー組具冇相同類型和名稱的變能的集合?這些變量稱為數(shù)組的元素,毎個(gè)數(shù)組元素都有一個(gè)編號(hào),這個(gè)編號(hào)叫做ド標(biāo)‘我們可以通過(guò)卜.標(biāo)來(lái)區(qū)別這些元素.數(shù)組元素的個(gè)數(shù)有時(shí)也稱為數(shù)組的長(zhǎng)度.數(shù)組定義:定氏數(shù)組的長(zhǎng)度是在定義時(shí)就確定的,在程序運(yùn)行過(guò)程中是同定不變的。其定義格式為:對(duì)對(duì)象屬性值囪體NameFormlCaption列表框列表框NameListlList數(shù)學(xué)、語(yǔ)文、歷史、Style1-CheckboxWidth1100Dim數(shù)組名(［卜一界T。］上界)［As類型名］其中,"下界"和"類型名”是可選的。所謂下界和上界.就是數(shù)組下標(biāo)的最小值和最大值.缺省下界時(shí),默認(rèn)下界為O。注意:ツ程序中仃OptionBase1語(yǔ)句時(shí),它的作用是限定數(shù)組ド標(biāo)的卜.限默認(rèn)為1°【審題分析】本題原程序的大致設(shè)計(jì)思路是:程序運(yùn)行后單擊窗體,則打開(kāi)數(shù)據(jù)文件datain.txt并從中讀取數(shù)據(jù),并依次存入二維數(shù)組Mat(下界為】,上界為5)的各元素中,故第個(gè)?處是定義數(shù)組，應(yīng)改為：N)AsInteger：第兩個(gè)?處是指明打開(kāi)文件的方式,應(yīng)改為：ForInput;第三個(gè)?處是將數(shù)據(jù)文件中的數(shù)據(jù)讀入并賦值給數(shù)組元素,應(yīng)改為:Input#l.Mat(i,j):然后用一個(gè)嵌套的For循環(huán)將數(shù)組Mat中的數(shù)據(jù)在窗體上按5行、5列的矩陣形式顯示出來(lái),接者再用ー個(gè)For循環(huán)將數(shù)組Mal中第2維下標(biāo)為2和第2維下標(biāo)為4的元素對(duì)應(yīng)(即第1維下標(biāo)致)交換值,交換值時(shí)引入個(gè)中間變量t,故第4個(gè)?處是將中間變量t的值賦給數(shù)組元素Mat(i、4),應(yīng)改為:Mat(i.4)tv最お將交換后的數(shù)組Mat中的數(shù)據(jù),再按5行、5列的矩陣形式在窗體上顯示出來(lái)?！静僮鞑襟E】步驟1：打開(kāi)本題對(duì)應(yīng)1:程文件可t5.vbp。步驟2:打開(kāi)代碼編輯商口,去掉程序中的注釋符”)將問(wèn)號(hào)"?”改為正確的內(nèi)容。參考代碼:DimMat(M.N)AsIntegerOpenApp.Path& &"datain.txt"For_InputAs#1Input#1.Mat(i.j)Mat(i,4)=t步驟3:按要求將文件保存在考生文件夾中.【考試誤區(qū)】數(shù)據(jù)的矩陣顯示常與二維數(shù)組、多重循環(huán)ー起使用。第四套上機(jī)答案解析169ー、基本操作題第I小題【審題分析】本題只需按題目要求畫(huà)出文本框控件并設(shè)置其與窗體相應(yīng)屬性.【操作步驟】步驟I:新建一個(gè)"標(biāo)準(zhǔn)EXE"工程,如表1在窗體中岫出控件并設(shè)置其相關(guān)國(guó)性。衣】控件屬性設(shè)置步驟2：按要求將文件保存至考生文件夾中.第2小題【審題分析】本題的考核聾求有兩項(xiàng)：①設(shè)計(jì)菜單命令及其相關(guān)屬性.②調(diào)用打開(kāi)菜單方法。本題主要考査對(duì)菜單編輯器的操作和調(diào)用菜單的Popupmenu方法，該方法調(diào)用格式為:對(duì)象Popupmenl菜単名.【操作步驟】步驟I：新建個(gè)“標(biāo)準(zhǔn)EXE"工程，選擇【匚具】一【栄單編輯器】命令,打開(kāi)菜單設(shè)計(jì)器,如我2中的設(shè)置建立菜單項(xiàng).表2標(biāo)蓬名稱內(nèi)縮符號(hào)可見(jiàn)文件menul0打開(kāi)ml1ベ保存m21ヽ;關(guān)閉m31步驟2:在窗體上畫(huà)個(gè)名為Command1,標(biāo)題為“彈出菜單啲命令按鈕,打開(kāi)代碼編輯窗口,編サ‘彈出菜單”按鈕的單擊事件過(guò)程.參考代碼:PrivateSubCommandIClickOFormI.PopupMcnumenuIEndSub步驟3:按要求將文件保存至考生文件夾中。 【知識(shí)點(diǎn)拔】①UCaseO函數(shù)用于將字符率中小寫字也理に血換為大寫字?原本大寫或非字母字符保持不變。②LCascQ函數(shù)用「將字符印中大寫字母轉(zhuǎn)換為小寫字母,原 3小寫或非字母字符保持不變。③RighU字符串.個(gè)數(shù))函數(shù)用于取出已有字符串最右邊指定個(gè)數(shù)的字符申。【屮題分析】本題原程序在文本框中內(nèi)容改變時(shí)(即Chage事件過(guò)程中),通過(guò)Righ1函數(shù)始終取出其剛輸入的字符,若該字?符位于大寫字?母A~Z之間,則將其轉(zhuǎn)換成小寫字母后顯示在標(biāo)簽Labels,記錄字母?jìng)€(gè)數(shù)的變故n増I;反之,若該字符位于小寫字母a~z之間,則將其轉(zhuǎn)換成大寫字母后顯示在標(biāo)簽しabell中,記錄字母?jìng)€(gè)數(shù)的變就n增1:如果以上兩種情況均不是,則將該字符直接顯示在しabdl中,最后在標(biāo)簽しabd2中顯示變量n的值?！静僮鞑襟E】步驟1:打開(kāi)考生文件中的本題工程文件sjt3.vbp,在代碼編輯窗口,去掉程序中的注擇符"”',格問(wèn)號(hào)"?"改為正確的內(nèi)容。參考代碼:ch=Right$(Text1.Text,1)Label1.Caption=chLabel2.Caption=n步驟2:按要求將文件保存ヤ考生文件夾中。【主要號(hào)點(diǎn)】字符率函數(shù)。第2小題【知識(shí)點(diǎn)拔】形狀控件(Shape)提供了顯示ー些規(guī)則圖形的簡(jiǎn)易方法。通過(guò)設(shè)宜形狀控件Shape屬性值,可顯示6種圖形:〇一矩形、1一正方形、2ー橢園、3ー網(wǎng)、4ー網(wǎng)角矩形、5ー惻角正方形。Width屬性用于設(shè)置形狀的寬度.'形狀為圓時(shí)即為例的直徑?！緦忣}分析】本題在計(jì)時(shí)器的Timer事件過(guò)程中,若Shapel填充色為藍(lán)色則需要進(jìn)行放大,若放大后算LeR屬性位小于或等于。則Shape的填充色改為紅色,并開(kāi)始縮小.若縮小后ICLeR屬性值大于等丁?原來(lái)的大小時(shí)再將其填充色改為藍(lán)色,并開(kāi)始放大?形狀的放大縮小通過(guò)改變Le代、Top、Width.HeightM性來(lái)實(shí)現(xiàn),單擊“開(kāi)始”,計(jì)時(shí)器啟動(dòng),Shape】開(kāi)始進(jìn)行放大縮小活動(dòng).【操作步驟】步驟1:打開(kāi)考生文件F的本題工程文件sjt4.vbp,在代碼編輯窗口,去掉程序中的注糅符"'",將問(wèn)號(hào)"?"改為正確的內(nèi)容。參考代碼:Timer!.Enabled=TrueShapel.FiilColor=redcolorShapeI.Left=ShapeI.Left+50Shape1.Top=Shape1.Top+50Shape!,FillColor=blue_color步驟2:按要求將文件保存至考生文件夾中。三、琮合操作題【審題分析】根據(jù)脛目原程序,要使單擊"打開(kāi)文件"按鈕時(shí),彈出的“打開(kāi)"對(duì)話框中默認(rèn)文件類型為”文本文件"，需在Command1Click事件過(guò)程中將CommonDialogI的Filterindex雇性值設(shè)置為2,用Open語(yǔ)句打開(kāi)任"打甲對(duì)話框中選中的文件應(yīng)為:CommonDialogIEileName.文本框中顯示的

內(nèi)容應(yīng)為用!nput語(yǔ)句從文件中讀出的內(nèi)容,即s=s&UCase(ch)在單擊“打開(kāi)文件"按鈕時(shí),要彈出”另存為"對(duì)話框,需將CommonDialogl的Action屬性內(nèi)容應(yīng)為用!nput語(yǔ)句從文件中讀出的內(nèi)容,即s=s&UCase(ch)要在小擊"修改文件"按鈕時(shí),把Textl中的大寫字母"E"、"N"、T改為小寫,把小寫字母セ?、"n"、ヤ改為大寫,可在"修改內(nèi)容"按鈕的單擊事件過(guò)程中,通過(guò)For循環(huán)用Mid函數(shù)逐取出文本框Textl中的怔個(gè)字符放入個(gè)變量(如ch)中,假如取出的字符是大寫字母"E"、"N"、”廠,則用しease函數(shù)將其轉(zhuǎn)換為小寫:若取出的字符是小寫字母"e"、"n"、T,則用Ucase函數(shù)將其轉(zhuǎn)換為大寫。最后將該變量中的字符用"&"連入個(gè)字符中變量(如s)中。循環(huán)結(jié)束時(shí),將s的值重新顯示在Texl】中?！静僮鞑襟E】步驟1:打開(kāi)考生文件中的本題匚程文件sjSvbp,在代碼編輯窗口,去掉程序中的注釋符f,將問(wèn)號(hào)"?”改為正確的內(nèi)容。參考代碼:CommonDialogl.Filtcrlndcx=2OpenCommonDialogl.FileNameForInputAs#1TextI.Text=sCommonDialogl.Action=2步驟2:按指定位置編寫"修改文件"的單擊事件過(guò)程。參考代碼:PrivateSubCommand2_Click(),考生需要編寫的程序5=1”strlen=Len(Text1)Fork=1Tostrlench=Mid$(Textl,k.I)Ifch="E"Orch="N"Orch="T"Thens=s&LCase(ch)Elselfch="e"Orch="n"Orch="t"ThenElses=s&chEndIfNextklextl=sEndSub步驟3:按要求將文件保存至考セ文件夾中。歩驟4:按〈F5＞鍵運(yùn)行程序,先單擊”打開(kāi)文件”按鈕,接著單擊"修改內(nèi)容"按鈕,然后單擊"保存文件"按鈕。第五套上機(jī)答案解析170ー、基本操作題第I小題【審題分析】本題只需按要求住窗體及框架中畫(huà)出控件,并設(shè)置K相應(yīng)屬性,然后在窗體的單擊事件中調(diào)用圖片楙的Print方法顯示文本?！静僮鞑襟E】步驟I:新建一個(gè)"標(biāo)準(zhǔn)EXE”匸程,在窗體Forral中面?個(gè)名稱為Pic的圖片框,并設(shè)苴其Picture屬性為Tul-I.jpg。步驟2:雙擊窗體打開(kāi)代碼編輯窗口,在窗體的Click事件過(guò)程中愉人代科。參考代碼:PrivateSubForm_Click()Pic.PrinLVB等級(jí)考試"EndSub步驟3:按要求將文件保存至考生文件夾中O第2小題【知識(shí)點(diǎn)拔】菜單中所包含的毎一個(gè)菜單項(xiàng)都可看成是，個(gè)命令按鈕,程序運(yùn)行時(shí),選擇某菜單項(xiàng)將觸發(fā)其Click事件?！緦忣}分析】要實(shí)現(xiàn)本題中的功能,應(yīng)在"顯示命令按鈕"菜雅項(xiàng)的Clickワ件過(guò)程中,令命令按鈕的Visible屬性為

True,在“院藏命令按鈕”菜單項(xiàng)的Click事件過(guò)程中,令命令按鈕的Visible屬性為False?！静僮鞑襟E】步驟1:新建個(gè)“標(biāo)準(zhǔn)EXE"「程,在窗體Forml中価個(gè)名稱為Command】,Caplion屬性為"命令抜鈕"的命令按鈕.步驟2:選拝【工具】?【菜單編輯器】命令,打開(kāi)菜單設(shè)計(jì)器,如表1中的設(shè)置建立菜販項(xiàng).標(biāo)題名稱內(nèi)縮符號(hào)控件menu0顯示命令按鈕subNlenul1隱藏命令按鈕sub\fenu21標(biāo)題名稱內(nèi)縮符號(hào)控件menu0顯示命令按鈕subNlenul1隱藏命令按鈕sub\fenu21表1參考代碼:PrivateSubsubMenu1_Click()Command!.VisibleTrueEndSubPrivateSubsubMenu2Click()CommandI.Visible=FalseEndSub歩驟4:按要求將文件保存至考生文件夾中.二、簡(jiǎn)單應(yīng)用題第1小題【審題分析】本題原程序中,自定義函數(shù)xn的功能是進(jìn)行m!階乘運(yùn)算,它通過(guò)For循環(huán)連續(xù)m次將循環(huán)變量i的值乘以累枳變旱ヽmp(第?個(gè)?處imp初值應(yīng)為】)來(lái)實(shí)現(xiàn)。故自定義函數(shù)xn中第兩個(gè)?處應(yīng)改為:tmp*i?作為函數(shù)返回值第三個(gè)?處應(yīng)改為:xn。在"沖算"按鈕的單擊事件過(guò)程中,根據(jù)程序所要if?算表達(dá)式的特點(diǎn),原程序利用個(gè)For循環(huán)依次計(jì)算表達(dá)式中各項(xiàng)的值((x-i)!),并將其累加入變量z.計(jì)算表達(dá)式中各項(xiàng)的值通過(guò)調(diào)用自定義函數(shù)xn⑴來(lái)實(shí)現(xiàn)的,其中t=x-i.故Commandl_Click事件過(guò)程中第一個(gè)?處應(yīng)改為:xn(t)?計(jì)算結(jié)果顯示在標(biāo)簽中。【操作步驟】步驟I:打開(kāi)考生文件中的本題L程文件sjt3.vbp,在代碼編輯窗I1,去掉程序