國(guó)家二級(jí)VB機(jī)試（綜合應(yīng)用題）模擬試卷3（共40題）

國(guó)家二級(jí)VB機(jī)試（綜合應(yīng)用題）模擬試卷3（共4套）（共40題）國(guó)家二級(jí)VB機(jī)試（綜合應(yīng)用題）模擬試卷第1套一、綜合應(yīng)用題(本題共10題，每題1.0分，共10分。)1、在考生文件夾下有一個(gè)工程文件sjt5．vbp，其名稱(chēng)為Form1的窗體上已有三個(gè)文本框Text1、Text2、Text3，以及部分程序代碼，請(qǐng)完成以下工作。①在屬性窗口中修改Text3的適當(dāng)屬性，使其在運(yùn)行時(shí)不顯示，作為模擬的剪貼板使用，窗體如圖所示。②建立下拉式菜單，如下表所示。③窗體文件中給出了所有事件過(guò)程，但不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，以便實(shí)現(xiàn)如下功能：當(dāng)光標(biāo)所在的文件框中無(wú)內(nèi)容時(shí)，“剪切”、“復(fù)制”不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無(wú)內(nèi)容，則“粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。注意：不能修改程序中的其他部分，各菜單項(xiàng)的標(biāo)題名稱(chēng)必須正確。最后將修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：[操作步驟]步驟1：打開(kāi)本題工程文件，將Text3的Visible屬性設(shè)置為False，然后按照題目要求建立菜單并設(shè)置其屬性，如圖3．20所示。菜單屬性如表3．12所示。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)改為正確的內(nèi)容。參考代碼(畫(huà)下劃線部分是需填入的內(nèi)容)DimwhichAsIntegerPrivateSubcopy_Click()’復(fù)制按鈕Ifwhich=1Then’當(dāng)焦點(diǎn)在Text1中，將Text1中的內(nèi)容復(fù)制給Text3Text3．Text=Text1．TextElseIfwhich=2Then’同理，焦點(diǎn)在Text2中，將Text2中的內(nèi)容復(fù)制給Text3Text3．Text=Text2．TextEndIfEndSubPrivateSubcutClick()’剪切按鈕Ifwhich=1Then’當(dāng)焦點(diǎn)在Text1中，則將內(nèi)容復(fù)制給Text3，并清空Text1內(nèi)容Text3．Text=Text1．TextText1．Text=""ElseIfwhich=2Then’同上Text3．Text=Text2．TextText2．Text=""EndIfEndSubPrivateSubeditClick()’編輯Ifwhich=1ThenIfText1．Text=""ThenCut．Enabled=FalseCopy．Enabled=FalseElseCut．Enabled=TrueCopy．Enabled=TrueEndIfElseIfwhich=2ThenIfText2．Text=""ThenCut．Enabled=FalseCopy．Enabled=FalseElseCut．Enabled=TrueCopy．Enabled=TrueEndIfEndIfIfText3．Text=""ThenPaste．Enabled=FalseElsePaste．Enabled=TrueEndIfEndSubPrivateSubpasteClick()’粘貼按鈕Ifwhich=1Then’當(dāng)焦點(diǎn)在Text1中則將Text3的內(nèi)容追加到Text1文件末尾Text1．Text=Text1．Text+Text3．TextElseIfwhich=2Then’同上Text2．Text=Text2．Text+Text3．TextEndIfEndSubPrivateSubText1GotFocus()’本過(guò)程的作用是當(dāng)焦點(diǎn)在Text1中時(shí)，which=1whiCh=1EndSubPrivateSubText2GotFocuS()’本過(guò)程的作用是當(dāng)焦點(diǎn)在Text2中時(shí)，which=2which=2EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析2、在考生文件夾下有一個(gè)工程文件sjt5．vbp，窗口有2個(gè)名稱(chēng)分別為Command1和Command2、標(biāo)題分別為“讀數(shù)據(jù)”和“排序”的命令按鈕，有2個(gè)標(biāo)題分別為“數(shù)組A”和“數(shù)組B”的標(biāo)簽。請(qǐng)將窗體標(biāo)題設(shè)置為“完全平方數(shù)排序”；再畫(huà)2個(gè)名稱(chēng)分別為T(mén)ext1和Text2、初始內(nèi)容都為空的文本框，并且可多行顯示，有垂直滾動(dòng)條，如圖3—55所示。程序功能如下：1)單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下in5．dat文件中的100個(gè)正整數(shù)讀入數(shù)組A，并將它們顯示在Text1文本框中。2)單擊“排序”按鈕，則首先將這100個(gè)數(shù)中的所有完全平方數(shù)放入數(shù)組B中，并將它們按降序排列顯示在Text2文本框中。提示：一個(gè)整數(shù)若是另一個(gè)整數(shù)的平方，那么它就是完全平方數(shù)。如144＝122，所以144就是一個(gè)完全平方數(shù)。要求：去掉注釋符，把?改為正確內(nèi)容，并添加代碼使得“排序”命令按鈕的Click事件過(guò)程可以實(shí)現(xiàn)上述功能。提示：Sort過(guò)程可以把求出的完全平方數(shù)進(jìn)行排序，可以直接調(diào)用。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行“排序”，且須用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的工程文件sjt5．vbp，在碼編輯窗口的指定位置輸入以下代碼。參考代碼：’考生編寫(xiě)的代碼n＝0Fork＝1To100Ifa(k)＞0Thend＝Sqr(a(k))IfInt(d)＝dThenn＝n＋1：b(n)＝a(k)EndIfEndIfNext步驟2：在代碼編輯窗口中，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Callsort(b，n)步驟3：按鍵運(yùn)行程序，單擊“讀數(shù)據(jù)”按鈕，然后單擊“排序”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析3、在考生文件夾下有一個(gè)數(shù)據(jù)庫(kù)文件“samp3．a(chǎn)ccdb”，里面已經(jīng)設(shè)計(jì)了表對(duì)象“tEmp”、窗體對(duì)象“fEmp”、報(bào)表對(duì)象“rEmp”和宏對(duì)象“mEmp”。請(qǐng)?jiān)诖嘶A(chǔ)上按照以下要求補(bǔ)充設(shè)計(jì)。(1)設(shè)置表對(duì)象“tEmp”中“聘用時(shí)間”字段的有效性規(guī)則為：2006年9月30日(含)以前的時(shí)間。相應(yīng)有效性文本設(shè)置為：輸入二零零六年幾月以前的日期。(2)設(shè)置報(bào)表“rEmp”按照“年齡”字段降序排列輸出；將報(bào)表頁(yè)面頁(yè)腳區(qū)域內(nèi)名為“tPage”的文本框控件設(shè)置為“頁(yè)碼－總頁(yè)數(shù)”形式的頁(yè)碼顯示(如1－15、2－15、…)。(3)將“fEmp”窗體上名為“bTitle”的標(biāo)簽寬度設(shè)置為5厘米、高度設(shè)置為1厘米，沒(méi)置其標(biāo)題為“數(shù)據(jù)信息輸出”并居中顯示。(4)在“fEmp”窗體上單擊“輸出”命令按鈕(名為“btnP”)，實(shí)現(xiàn)以下功能：計(jì)算Fibonacci數(shù)列第19項(xiàng)的值，將結(jié)果顯示在窗體上名為“tData”的文本框內(nèi)并輸出到外部文件保存；單擊“打開(kāi)表”命令按鈕(名為“btnQ”)，凋用宏對(duì)象“mEmp”以打開(kāi)數(shù)據(jù)表“tEmp”。Fibonacci數(shù)列：F1＝1n＝1F2＝1n＝2Fn＝En-1＋En-2n＞＝3調(diào)試完畢后，必須單擊“輸出”命令按鈕生成外部文件，才能得分。試根據(jù)上述功能要求，對(duì)已給的命令按鈕事件進(jìn)行補(bǔ)充和完善。注意：不要修改數(shù)據(jù)庫(kù)中的宏對(duì)象“mEmp”；不要修改窗體時(shí)象“l(fā)Etup’’和報(bào)表對(duì)象“rEmp”中未涉及的控件和屬性；不要修改表對(duì)象“tEmp”中未涉及的字段和屬性。程序代碼只允許在“*****Add*****”與“*****Add*****”之間的空行內(nèi)補(bǔ)充一行語(yǔ)句、完成設(shè)計(jì)，不允許增刪和修改其他位置已存在的語(yǔ)句。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：選擇“表”對(duì)象，右鍵單擊“tEmp”，從彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令。步驟2：?jiǎn)螕簟捌赣脮r(shí)間”字段行任一點(diǎn)，在“有效性規(guī)則”行輸入“＜＝#2006－9－30#”，在“有效性文本”行輸入“輸入二零零六年九月以前的日期”。如圖3．308所示。步驟3：按Ctrl＋S保存修改，關(guān)閉設(shè)計(jì)視圖。(2)【操作步驟】步驟1：選擇“報(bào)表”對(duì)象，右鍵單擊“rEmp”，從彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令。步驟2：?jiǎn)螕簟霸O(shè)計(jì)”選項(xiàng)卡“分組和匯總”組中的“分組和排序”按鈕，在“分組、排序和匯總”界面選擇“添加排序”，選擇“排序依據(jù)”下拉列表中的“年齡”字段．選擇“降序”，關(guān)閉界面，如圖3．309所示。步驟3：右鍵單擊“tPage”，從彈出的快捷菜單中選擇“屬性”命令，在“全部”選項(xiàng)卡“控件米源”行輸入“＝[Page]&"－"&[Pages]”，關(guān)閉屬性表。如圖3．310所示。步驟4：按Ctrl＋S保存修改，關(guān)閉設(shè)計(jì)視圖。(3)【操作步驟】步驟1：選中“窗體”對(duì)象，右鍵單擊“fEmp”，從彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令。步驟2：右鍵單擊標(biāo)簽控件“bTitle”，從彈出的怏捷菜單中選擇“屬性”命令，在“標(biāo)題”行輸入“數(shù)據(jù)信息輸出”，在“寬度”和“高度”行分別輸入“5cm”和“1cm”，并在“文本對(duì)齊”行右側(cè)下拉列表中選擇“居中”，如圖3．311所示，關(guān)閉屬性表。(4)【操作步驟】步驟1：右鍵單擊命令按鈕“輸出”，從彈出的快捷菜單中選擇“事件生成器”命令，在彈出的對(duì)話框中選擇“代碼生成器”，進(jìn)入編程環(huán)境，在空行內(nèi)輸入以下代碼：′*****Add1*****Dimf(19)AsInteger′*****Add1*****′*****Add2*****r(i)＝f(i－1)＋f(i－2)′*****Add2*****′*****Add3*****tData＝f(19)′*****Add3*****如圖3．312所示，關(guān)閉界面。步驟2：按Ctrl＋S保存修改，關(guān)閉設(shè)計(jì)視圖。知識(shí)點(diǎn)解析：暫無(wú)解析4、在考生目錄下有一個(gè)工程文件vbsj5．vbp，用來(lái)計(jì)算勾股定理整數(shù)組合的個(gè)數(shù)。勾股定理中3個(gè)數(shù)的關(guān)系是：a2＋b2＝c2。例如，3、4、5就是一個(gè)滿足條件的整數(shù)組合(注意：a，b，c分別為4，3，5與分別為3，4，5被視為同一個(gè)組合，不應(yīng)該重復(fù)計(jì)算)。編寫(xiě)程序，統(tǒng)計(jì)三個(gè)數(shù)均在60以?xún)?nèi)滿足上述關(guān)系的整數(shù)組合的個(gè)數(shù)，并顯示在標(biāo)簽Lb11中，運(yùn)行時(shí)程序界面如圖3—146所示。注意：不得修改原有程序的控件的屬性。在結(jié)束程序運(yùn)行之前，必須至少正確運(yùn)行一次程序，將統(tǒng)計(jì)的結(jié)果顯示在標(biāo)簽中，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的工程文件vbsj5．vbp，在碼編輯窗口的指定位置輸入代碼。參考代碼：PrivateSubCommand1_Click()’＝＝＝考生編寫(xiě)程序開(kāi)始＝＝＝＝DimiAsInteger，jAsIntegerDimnAsIntegerFori＝1To59Forj＝iTo60IfSqr(i*i＋j*J)＝Int(Sqr_(i*i＋j*j))AndSqr(i*i＋j*j)＜＝60Thenn＝n＋1EndIfNextNextLb11．Caption＝n’＝＝＝考生編寫(xiě)程序結(jié)束＝＝＝＝’不要改動(dòng)以下內(nèi)容SaveLabe11EndSub步驟2：按鍵運(yùn)行程序，單擊“計(jì)算”按鈕。步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析5、在考生文件夾下有一個(gè)工程文件sjt5.vbp，其窗體上畫(huà)有兩個(gè)名稱(chēng)分別為T(mén)ext1、Text2的文本框，其中Text1可多行顯示。請(qǐng)畫(huà)兩個(gè)名稱(chēng)為Command1、Command2，標(biāo)題為“產(chǎn)生數(shù)組”、“查找”的命令按鈕。如圖1－78所示。程序功能如下：①單擊“產(chǎn)生數(shù)組”按鈕，則用隨機(jī)函數(shù)生成10個(gè)0～100之間（不含0和100）互不相同的數(shù)值，并將它們保存到一維數(shù)組a中，同時(shí)也將這10個(gè)數(shù)值顯示在Text1文本框內(nèi)；②單擊“查找”按鈕將彈出輸入對(duì)話框，接收用戶(hù)輸入的任意一個(gè)數(shù)，并在一維數(shù)組a中查找該數(shù)，若查找失敗，則在Text2文本框內(nèi)顯示該數(shù)“不存在于數(shù)組中”；否則顯示該數(shù)在數(shù)組中的位置。要求：請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改窗體文件中已經(jīng)存在的控件和程序。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5.vbp，在窗體上畫(huà)兩個(gè)命令按鈕，屬性及其值如表2－20所示。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：a(i)=Fix(Rnd*99+1)Forj=1Toi–1i=i–1Ifa(i)=numThenIfi＞10Then步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析6、在考生文件夾下有一個(gè)工程文件sjt5.vbp，其功能是：①單擊“讀數(shù)據(jù)”按鈕，則把考生文件夾下in5.dat文件中的100個(gè)正整數(shù)讀入數(shù)組a中，同時(shí)顯示在Text1文本框中；②單擊“素?cái)?shù)”按鈕，則將數(shù)組a中所有素?cái)?shù)（只能被1和自身整除的數(shù)稱(chēng)為素?cái)?shù)）存入數(shù)組b中，并將數(shù)組b中的元素顯示在文本框Text2中。在給出的窗體文件中已經(jīng)有了全部控件（如圖1－211所示），但程序不完整。要求：完善程序使其實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須先執(zhí)行“素?cái)?shù)”操作，然后再用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5.vbp，在代碼編輯窗口指定位置編寫(xiě)以下代碼：參考代碼：Fori=1To100flag=0Forj=2Toa(i)-1Ifa(i)/j=Fix(a(i)/j)Thenflag=1ExitForEndIfNextIfflag=0Thennum=num+1b(num)=a(i)EndIfNext步驟2：按＜F5＞鍵運(yùn)行程序，先單擊“讀數(shù)據(jù)”按鈕，再單擊“素?cái)?shù)”按鈕，最后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析7、在考生文件夾中有一個(gè)工程文件sjt5.vbp，窗體如圖1－216所示。運(yùn)行程序時(shí)，從數(shù)據(jù)文件中讀取學(xué)生的成績(jī)。要求編寫(xiě)程序，統(tǒng)計(jì)總?cè)藬?shù)、平均分（四舍五入取整）、及格人數(shù)和不及格人數(shù)，將統(tǒng)計(jì)結(jié)果顯示在相應(yīng)的文本框中。結(jié)束程序之前，必須單擊“保存”按鈕，保存統(tǒng)計(jì)結(jié)果。注意：不能修改程序的其他部分和控件屬性。程序調(diào)試通過(guò)后，運(yùn)行程序，將統(tǒng)計(jì)結(jié)果顯示在文本框中，再單擊“保存”按鈕保存數(shù)據(jù)，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的本題工程文件sjt5.vbp，打開(kāi)代碼編輯窗口，編寫(xiě)“統(tǒng)計(jì)”按鈕的單擊事件過(guò)程。參考代碼Text1.Text=nSum=0count1=0count2=0Fori=1TonSum=Sum+arr(i)Ifarr(i)<60Thencount1=count1+1Elsecount2=count2+1EndIfAvg=Sum/nNextText2.Text=Int(Avg+0.5)Text3.Text=count1Text4.Text=count2步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析8、考生文件夾下有一個(gè)工程文件sjt5.vbp，請(qǐng)?jiān)诖绑w上建立含有三個(gè)菜單項(xiàng)的菜單（菜單項(xiàng)名稱(chēng)分別為Read、Calc和Save，標(biāo)題分別為“讀入數(shù)據(jù)”、“計(jì)算并輸出”和“存盤(pán)”），然后畫(huà)一個(gè)文本框（名稱(chēng)為T(mén)ext1，MultiLine屬性設(shè)置為T(mén)rue，ScrollBars屬性設(shè)置為2）（如圖1－277所示）。程序運(yùn)行后，如果單擊“讀入數(shù)據(jù)”按鈕，則調(diào)用ReadData過(guò)程讀入datain1.txt文件中的100個(gè)整數(shù)，放入一個(gè)數(shù)組中，數(shù)組的下界為1；如果單擊“計(jì)算并輸出”按鈕，則把該數(shù)組中下標(biāo)為奇數(shù)的元素在文本框中顯示出來(lái)，并求出它們的和，最后把所求得的和在窗體上顯示出來(lái)；如果單擊“存盤(pán)”按鈕，則調(diào)用WriteData過(guò)程把所求得的和存入考生文件夾下的dataout.txt文件中。ReadData過(guò)程和WriteData過(guò)程已經(jīng)給出，請(qǐng)編寫(xiě)Read、Calc和Save菜單項(xiàng)的Click事件過(guò)程，實(shí)現(xiàn)上述功能。注意：考生不得修改窗體文件中已經(jīng)存在的程序。存盤(pán)時(shí)，工程文件名為sjt5.vbp，窗體文件名為sjt5.frm。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件下的本題工程文件sjt5.vbp，利用菜單設(shè)計(jì)器，如表2－147中的設(shè)置建立菜單項(xiàng)。步驟2：在窗體Form1中畫(huà)一個(gè)文本框，其相關(guān)屬性及值如表2－148。步驟3：在代碼編輯窗口，分別編寫(xiě)三個(gè)菜單項(xiàng)的Click事件過(guò)程。參考代碼：DimSumAsIntegerPrivateSubRead_Click()ReadDataEndSubPrivateSubCalc_Click()DimSAsStringSum=0Fori=1To100IfiMod2＜＞0ThenSum=Sum+Arr(i)S=S&Str(Arr(i))&""EndIfNextiForm1.Text1.Text=SMe.Print"Sum=";SumEndSubPrivateSubSave_Click()WriteData"Dataout.txt",SumEndSub步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析9、在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)文本框，其名稱(chēng)為T(mén)ext1，可以多行顯示，并有垂直滾動(dòng)條；然后再畫(huà)三個(gè)命令按鈕，其名稱(chēng)分別為Command1、Command2和Command3，標(biāo)題分別為“取數(shù)”、“排序”和“存盤(pán)”，如圖1－297（a）所示，編寫(xiě)適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊“取數(shù)”命令按鈕，則將in5.txt文件中的100個(gè)整數(shù)讀到數(shù)組中，并在文本框中顯示出來(lái)，如圖1－297（b）所示；如果單擊“排序”命令按鈕，則對(duì)這100個(gè)整數(shù)按從大到小的順序進(jìn)行排序，并把排序后大于500的數(shù)在文本框中顯示出來(lái)；如果單擊“存盤(pán)”命令按鈕，則把文本框中所有的數(shù)（即排序后大于500的數(shù)）保存到考生文件夾下的文件out5.txt中。注意：1）必須把排序后大于500的所有整數(shù)保存到文件out5.txt中，否則沒(méi)有成績(jī)。2）存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt5.vbp，窗體文件名為sjt5.frm。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：新建一個(gè)“標(biāo)準(zhǔn)EXE”工程。步驟2：在窗體Form1中加入一個(gè)文本框和三個(gè)命令按鈕，并分別設(shè)置它們的相關(guān)屬性，屬性及值如表2－159所示。步驟3：打開(kāi)代碼編輯窗口，編寫(xiě)三個(gè)命令按鈕的單擊事件代碼。參考代碼：PrivateN(100)AsIntegerPrivateSubCommand1_Click()Open"in5.txt"ForInputAs#1Fori=1To100Input#1,N(i)Text1=Text1&""&N(i)NextiClose#1EndSubPrivateSubCommand2_Click()Dimi,jAsIntegerFori=1To100Forj=iTo100IfN(i)<N(j)Thentmp=N(i)N(i)=N(j)N(j)=tmpEndIfNextjNextiText1.Text=""Fori=1To100IfN(i)＞500ThenText1=Text1&""&N(i)EndIfNextiEndSubPrivateSubCommand3_Click()Open"out5.txt"ForOutputAs#1Write#1,Text1.TextClose#1EndSub步驟4：按要求將文件保存在考生文件夾中。步驟5：運(yùn)行程序，先單擊“取數(shù)”按鈕，然后單擊“排序”按鈕，最后單擊“存盤(pán)”按鈕。知識(shí)點(diǎn)解析：暫無(wú)解析10、在考生文件夾下有一個(gè)工程文件sjt5．vbp。程序功能為：在文本框Text1中輸入一個(gè)正整數(shù)N后，單擊“計(jì)算”按鈕，則計(jì)算11+22+33+…+NN，并將計(jì)算結(jié)果顯示在Text2中。程序中的函數(shù)f可以計(jì)算mm的值。在給出的窗體文件中已經(jīng)有了全部控件，但程序不完整。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，并編寫(xiě)相應(yīng)的程序，實(shí)現(xiàn)程序的功能，并且必須在運(yùn)行時(shí)計(jì)算N=8時(shí)的結(jié)果。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。程序調(diào)試通過(guò)后，必須計(jì)算N=8時(shí)的結(jié)果，否則無(wú)成績(jī)。標(biāo)準(zhǔn)答案：審題分析函數(shù)f利用一個(gè)For循環(huán)來(lái)計(jì)算m的m次冪，需要先設(shè)置一個(gè)累乘積變量初值為1，然后循環(huán)m次，在循環(huán)中每次在累乘積上乘以m。循環(huán)結(jié)束時(shí)將累乘積作為函數(shù)返回值。在“計(jì)算”按鈕的單擊事件中，要求一個(gè)數(shù)列的累加和，需要先設(shè)置累加和變量初值為0，然后使用For循環(huán)循環(huán)n次，在每次循環(huán)中為累加和變量累加f(j)，循環(huán)結(jié)束后累加和變量的值即為所求。操作步驟步驟1：打開(kāi)考生文件夾下的工程文件sjt5．vbp，在碼編輯窗口的指定位置輸入以下代碼：參考代碼：PriVateSubCommand1_Click()′======考生編寫(xiě)程序開(kāi)始======Dimi，jAsInteger，kAsLongi=Text1．Textk=0Forj=1Toik=k+f(j)NextText2．Text=k′=====考生編寫(xiě)程序結(jié)束======OpenApp．Path＆"＼out5．dat"ForOutputAs#1Print#1，Text1，Text2Close#1EndSub步驟2：在代碼編輯窗口中，去掉程序中的注釋符“′”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：s=1s=s*mf=s步驟3：按鍵運(yùn)行程序，在文本框中輸入8，單擊“計(jì)算”按鈕。步驟4：按要求將文件保存至考生文件夾中?？键c(diǎn)鏈接For。循環(huán)結(jié)構(gòu)、Sub過(guò)程和函數(shù)過(guò)程。知識(shí)點(diǎn)解析：暫無(wú)解析國(guó)家二級(jí)VB機(jī)試（綜合應(yīng)用題）模擬試卷第2套一、綜合應(yīng)用題(本題共10題，每題1.0分，共10分。)1、以下數(shù)列：1，1，2，3，5，8，13，21…的規(guī)律是從第3個(gè)數(shù)開(kāi)始，每個(gè)數(shù)都是其前面兩個(gè)數(shù)之和。在考生文件夾下有一個(gè)工程文件sjt5．vbp。窗體中已經(jīng)給出了所有控件，如圖所示。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程完成如下功能：選中一個(gè)單選按鈕后，單擊“計(jì)算”按鈕，則計(jì)算出上述數(shù)列第n項(xiàng)的值，并在文本框中顯示，n是選中的單選按鈕后而的數(shù)值(提示：因計(jì)算結(jié)果較大，應(yīng)使用艮整型變量)。注意：小能修改已經(jīng)給出的程序和已有的控件的屬性；在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕，并單擊“計(jì)算”按鈕以獲得一個(gè)結(jié)果；必須使用窗體右上角的關(guān)閉按鈕結(jié)束程序，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)本題工程文件。步驟2：打開(kāi)代碼編輯窗口，在指定位置編寫(xiě)如下代碼。參考答案PrivateSubCommand1C1ick()Dima()AsLongDimiAsIntegerDimnAsInteger’Op1．Count是單選按鈕數(shù)目，這里用的是控件數(shù)組Fori＝0ToOp1．Count－1’判斷哪一項(xiàng)被選擇，把它后面的數(shù)值賦給n，確定n值IfOp1(i)．Value＝TrueThenn＝Val(Op1(i)．Caption)ExitForEndIfNextReDima(n)’重新申請(qǐng)空間，這里是動(dòng)態(tài)申請(qǐng)a(1)＝1a(2)＝1’數(shù)列第一項(xiàng)、第二項(xiàng)值確定Fori＝3Tona(i)＝a(i－1)＋a(i－2)’后一項(xiàng)值是前兩項(xiàng)值之和NextText1．Text＝a(n)EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析2、在考生文件夾下有一個(gè)工程文件sjt5．vbp。程序運(yùn)行時(shí)，單擊“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀入一維數(shù)組a中，并按下標(biāo)順序?qū)?shù)組a各元素的值顯示在List1列表框中；單擊“移動(dòng)”按鈕，則將數(shù)組a中的最大值移動(dòng)到數(shù)組的最前面，其他數(shù)據(jù)的排列順序不變，并將移動(dòng)后的結(jié)果顯示在List2列表框中。單擊“保存”按鈕，則保存移動(dòng)后的結(jié)果。要求：“顯示數(shù)據(jù)”和“保存”按鈕的Click事件過(guò)程已經(jīng)給出，請(qǐng)編寫(xiě)“移動(dòng)”按鈕的Click事件過(guò)程實(shí)現(xiàn)上述功能。程序窗體界面如圖3—45所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前必須單擊“移動(dòng)”按鈕，并單擊“保存”按鈕保存結(jié)果，否則無(wú)成績(jī)。最后程序按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾中的工程文件sjt5．vbp，在代碼編輯窗口中，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：PrivateSubCommand2_Click()’======考生編寫(xiě)的程序============DimnAsInteger，sAsStringDimi，jAsIntegern=0：j=0Fori=1To10Ifa(i)＞nThenn=a(i)：j=iEndIfNextFori=jTo2step-1a(i)=a(i-1)Nexta(1)=nForj=1To10List2．AddItem(a(i))Nexti’==============================EndSub步驟2：按＜F5＞運(yùn)行程序，單擊各按鈕測(cè)試驗(yàn)證。步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：只需要完成“移動(dòng)”命令按鈕的Click事件代碼．根據(jù)題目要求在點(diǎn)擊移動(dòng)命令按鈕，找出數(shù)組a的最大值，可以通過(guò)循環(huán)來(lái)查找最大值；接下來(lái)把最大值移動(dòng)到數(shù)組的最前面，即把最大值前面的數(shù)往后移動(dòng)一個(gè)位置，然后把最大值放到第一個(gè)元素位置，移動(dòng)過(guò)程同樣通過(guò)循環(huán)實(shí)現(xiàn)；最后一步是通過(guò)循環(huán)，把數(shù)組a的內(nèi)容添加到List2列表框罩面。3、在考生文件夾下有一個(gè)工程文件sjt5．vbp，其名稱(chēng)為Form1的窗體上已有三個(gè)文本框Text1、Text2、Text3，以及部分程序代碼，請(qǐng)完成以下工作。①在屬性窗口中修改Text3的適當(dāng)屬性，使其在運(yùn)行時(shí)不顯示，作為模擬的剪貼板使用，窗體如圖所示。②建立下拉式菜單，如下表所示。③窗體文件中給出了所有事件過(guò)程，但不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，以便實(shí)現(xiàn)如下功能：當(dāng)光標(biāo)所在的文件框中無(wú)內(nèi)容時(shí)，“剪切”、“復(fù)制”不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無(wú)內(nèi)容，則“粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。注意：不能修改程序中的其他部分，各菜單項(xiàng)的標(biāo)題名稱(chēng)必須正確。最后將修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：[操作步驟]步驟1：打開(kāi)本題工程文件，將Text3的Visible屬性設(shè)置為False，然后按照題目要求建立菜單并設(shè)置其屬性，如圖3．20所示。菜單屬性如表3．12所示。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)改為正確的內(nèi)容。參考代碼(畫(huà)下劃線部分是需填入的內(nèi)容)DimwhichAsIntegerPrivateSubcopy_Click()’復(fù)制按鈕Ifwhich=1Then’當(dāng)焦點(diǎn)在Text1中，將Text1中的內(nèi)容復(fù)制給Text3Text3．Text=Text1．TextElseIfwhich=2Then’同理，焦點(diǎn)在Text2中，將Text2中的內(nèi)容復(fù)制給Text3Text3．Text=Text2．TextEndIfEndSubPrivateSubcutClick()’剪切按鈕Ifwhich=1Then’當(dāng)焦點(diǎn)在Text1中，則將內(nèi)容復(fù)制給Text3，并清空Text1內(nèi)容Text3．Text=Text1．TextText1．Text=""ElseIfwhich=2Then’同上Text3．Text=Text2．TextText2．Text=""EndIfEndSubPrivateSubeditClick()’編輯Ifwhich=1ThenIfText1．Text=""ThenCut．Enabled=FalseCopy．Enabled=FalseElseCut．Enabled=TrueCopy．Enabled=TrueEndIfElseIfwhich=2ThenIfText2．Text=""ThenCut．Enabled=FalseCopy．Enabled=FalseElseCut．Enabled=TrueCopy．Enabled=TrueEndIfEndIfIfText3．Text=""ThenPaste．Enabled=FalseElsePaste．Enabled=TrueEndIfEndSubPrivateSubpasteClick()’粘貼按鈕Ifwhich=1Then’當(dāng)焦點(diǎn)在Text1中則將Text3的內(nèi)容追加到Text1文件末尾Text1．Text=Text1．Text+Text3．TextElseIfwhich=2Then’同上Text2．Text=Text2．Text+Text3．TextEndIfEndSubPrivateSubText1GotFocus()’本過(guò)程的作用是當(dāng)焦點(diǎn)在Text1中時(shí)，which=1whiCh=1EndSubPrivateSubText2GotFocuS()’本過(guò)程的作用是當(dāng)焦點(diǎn)在Text2中時(shí)，which=2which=2EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析4、考生文件央下有一個(gè)工程文件sjt5．vbp。運(yùn)行程序后，從文件中讀出數(shù)據(jù)，將其放入一個(gè)5×5的刪二維數(shù)組a中。請(qǐng)編寫(xiě)程序，找出數(shù)組a中每行的最大值及該值在行中的次序(列下標(biāo))，并將所找到的結(jié)果分別保存到一維數(shù)組b、c中(a中第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中)。注意：不能修改程序的其他部分和控件屬性，最后將修改后的文件按原文件名存盤(pán)。程序調(diào)試通過(guò)后，命令按鈕的事件過(guò)程必須至少執(zhí)行一次。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)本題上程文件。步驟2：打開(kāi)代碼編輯窗口，在指定位置編寫(xiě)如下代碼。參考答案Max＝a(i，1)’將每行第一個(gè)數(shù)作為該行最大值，以便進(jìn)行比較Forj＝1To5IfMax＜a(i，j)Then’依次循環(huán)比較該行其他數(shù)，如有更大值，則替換max值Max＝a(i，j)EndIfb(i)＝Max’最大值存入數(shù)組b中IfMax＝a(i，j)Thenc(i)＝j(luò)’最大值的下標(biāo)存入數(shù)紐c中Nextj步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析5、在考生文件夾下有一個(gè)工程文件sil5．vbp，在窗體上給出了所有控件和不完整的程序，請(qǐng)去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容。本程序的功能是：如果單擊“取數(shù)”按鈕，則把考生目錄下的in5．txt文件中的15個(gè)姓名讀到數(shù)組a中，并在窗體上顯示這些姓名；當(dāng)在Text1中輸入一個(gè)姓名，或一個(gè)姓氏后，如果單擊“查找”按鈕，則進(jìn)行查找，若找到，就把所有與Text1中相同的姓名或所有具有Text1中姓氏的姓名顯示在Text2中(如圖3—101所示)；若未找到，則在Text2中顯示“未找到!”；若Text1中沒(méi)有查找內(nèi)容，則在Text2中顯示“未輸入查找內(nèi)容!”。注意：考生不得修改程序的其他部分和控件的屬性，最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp，打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Close#1n＝Len(Text1．Text)IfLeft(a(k)，n)＝Text1．TextThenc＝c＋""＋a(k)Text2．Text＝c步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析6、在考生文件夾下有一個(gè)工程文件sjt5．vbp，考生文件夾下in5．dat文件中保存有一篇英文短文。程序運(yùn)行時(shí)，單擊“讀取并統(tǒng)計(jì)”按鈕，則按行讀取in5．dat文件的內(nèi)容，并顯示到文本框Text1中，同時(shí)調(diào)用Calculate過(guò)程統(tǒng)計(jì)每個(gè)英文字母(不區(qū)分大小寫(xiě))及其出現(xiàn)的次數(shù)，并按字母順序保存到二維數(shù)組data中，統(tǒng)計(jì)結(jié)束后，按字母順序?qū)⒔y(tǒng)計(jì)結(jié)果顯示到列表框List1中(字母用小寫(xiě)表示，且不含文中未出現(xiàn)的字母)；單擊“保存”按鈕，則保存結(jié)果?！白x取并統(tǒng)計(jì)”和“保存”按鈕的(Click事件過(guò)程已經(jīng)給出，請(qǐng)編寫(xiě)Calculate過(guò)程中的代碼以實(shí)現(xiàn)上述功能。程序運(yùn)行界面示意圖如圖所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前，必須進(jìn)行“讀取并統(tǒng)計(jì)”，且必須單擊“保存”按鈕保存結(jié)果，否則無(wú)成績(jī)。最后，程序按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)本題項(xiàng)目工程。步驟2：打開(kāi)代碼編輯窗口，填入相應(yīng)的代碼以實(shí)現(xiàn)題目的功能。參考答案PrivateSubCalculate(sAsString，d()AsVailant)DimchAsStringDimiAsIntegerFori＝1ToLen(s)ch＝Asc(LCase(Mid(s,i,1)))Ifch＞＝97Andch＜＝122Thend(ch－96,1)＝Chr(ch)d(ch－96,2)＝d(ch－96,2)＋1EndIfEndSub步驟3：調(diào)試并運(yùn)行程序，結(jié)果如圖4．10所示，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析7、在考生文件夾下有一個(gè)工程文件sjt5．vbp。其窗體中有一個(gè)名稱(chēng)為T(mén)ext1的文本框數(shù)組，下標(biāo)從0開(kāi)始。程序運(yùn)行時(shí)，單擊“產(chǎn)生隨機(jī)數(shù)”按鈕，就會(huì)產(chǎn)生10個(gè)3位數(shù)的隨機(jī)數(shù)，并放入Text1數(shù)組中，如圖3—183(a)所示；單擊“重排數(shù)據(jù)”按鈕，將把Text1中的奇數(shù)移到前面，偶數(shù)移到后面，如圖3—183(b)所示。文件中已經(jīng)給出了所有控件和部分程序。要求：請(qǐng)去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使其能正確運(yùn)行，不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。提示：在“重排數(shù)據(jù)”按鈕的事件過(guò)程中有對(duì)其算法的文字描述，請(qǐng)仔細(xì)閱讀。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：j=9temp=Text1(j)While(i＜j)IfText1(j)Mod2=1Then步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：本題源程序中，變量i和j均用作Text1文本框數(shù)組的索引號(hào)(即Index屬性值)，根據(jù)算法中的第1條，可知i=0、j=9、temp=Text1(i)，其中“暫存最后一個(gè)數(shù)”的目的是為空出一個(gè)位置放第一個(gè)偶數(shù)。根據(jù)算法中的第3條，檢查第j個(gè)數(shù)是否為奇數(shù)的條件表達(dá)式為：Text1(j)Mod2=1。算法中的第2條和第3條交替運(yùn)行，將實(shí)現(xiàn)一后(偶數(shù))一前(奇數(shù))重排數(shù)據(jù)的目的。根據(jù)算法中的第4條，可知在i向后移、i向前移過(guò)程中，當(dāng)i=j時(shí)則停止這種移動(dòng)(故While循環(huán)的條件表達(dá)式為i＜j)。將先前暫存的數(shù)(temp)放到當(dāng)前空缺位置，以實(shí)現(xiàn)算法中的第5條。8、數(shù)列：1，1，2，3，5，8，3，21，…的規(guī)律是從第3個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是它前面兩個(gè)數(shù)之和。在考生文件夾下有一個(gè)工程文件vbsj5.vbp（相應(yīng)的窗體文件為vbsj5.frm）。窗體Form1中已經(jīng)給出了所有控件。編寫(xiě)適當(dāng)?shù)氖录^(guò)程完成以下功能：選中一個(gè)單選按鈕后，單擊“計(jì)算”按鈕，則計(jì)算出上述數(shù)列的第n項(xiàng)的值（n是選中的單選按鈕后面的數(shù)值），并顯示在文本框中，如圖1－343所示（提示：因計(jì)算結(jié)果較大，應(yīng)使用Long型變量）。注意：不能修改已經(jīng)給出的程序和已有的控件的屬性；在結(jié)束程序運(yùn)行之前，必須選中一個(gè)單選按鈕，并單擊“計(jì)算”按鈕獲得一個(gè)結(jié)果；必須使用窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。程序源碼：PrivateSubForm_Unload(CancelAsInteger)unload_subEndSubSubunload_sub()Open"out5.dat"ForOutputAs#1Print#1,Form1.optNum(0).Value,_Form1.optNum(1).Value,Form1._optNum(2).Value,Val(Form1._txtResult.Text)Close#1EndSub標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的本題工程文件vbsj5.vbp。步驟2：在代碼編輯窗口中的通用部分，輸入如下代碼：OptionBase1步驟3：編寫(xiě)“計(jì)算”按鈕的單擊事件過(guò)程。參考代碼：PrivateSubcmdCal_Click()Dima()AsLongDimiAsIntegerDimnAsIntegerFori=0TooptNum.Count-1IfoptNum(i).Value=TrueThenn=Val(optNum(i).Caption)ExitForEndIfNextReDima(n)a(1)=1a(2)=1Fori=3Tona(i)=a(i-1)+a(i-2)NexttxtResult.Text=a(n)EndSub步驟4：運(yùn)行程序，選中一個(gè)單選按鈕，并單擊“計(jì)算”按鈕獲得一個(gè)結(jié)果，然后使用窗體右上角的“關(guān)閉”按鈕結(jié)束程序。步驟5：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析9、在考生文件夾中有一個(gè)工程文件sjt5．vbp，如圖2-48所示。運(yùn)行程序時(shí)，從文件中讀入矩陣數(shù)據(jù)并放入二維數(shù)組a中。單擊”計(jì)算”按鈕時(shí)，將統(tǒng)計(jì)矩陣兩個(gè)對(duì)角線的元素中能被3整除的個(gè)數(shù)，統(tǒng)計(jì)結(jié)果顯示在標(biāo)簽lblFirst中；同時(shí)計(jì)算矩陣主對(duì)角線的元素之和，計(jì)算結(jié)果顯示在標(biāo)簽lblSecond中。已給出了部分程序，請(qǐng)編寫(xiě)”計(jì)算”命令按鈕事件過(guò)程中的部分程序代碼，以便完成上述功能。注意：不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤(pán)。程序調(diào)試通過(guò)后，必須執(zhí)行程序，并用”計(jì)算”按鈕進(jìn)行計(jì)算，否則無(wú)成績(jī)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾下的本題工程文件sjt5．vbp，在代碼編輯窗口的指定位置編寫(xiě)以下代碼：參考代碼：Fork=1ToNSum=Sum+a(k，k)Ifa(k，k)／3=Int(a(k，k)／3)ThenCounter=Counter+1EndIfIfk＜＞N-k+1TnenIfa(k，N-k+1)／3=Int(a(k，N-k+1)／3)ThenCounter=Counter+1EndIfEndIfNextlblSecond．Caption=SumlblFirst．Caption=Counter步驟2：按＜F5＞鍵運(yùn)行程序，然后單擊”計(jì)算”按鈕。步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析10、在考生文件夾下有一個(gè)工程文件sjt5．vbp，窗體上有兩個(gè)圖片框，名稱(chēng)為P1、P2，分別用來(lái)表示信號(hào)燈和汽車(chē)，如圖3-182所示，其中在P1中輪流裝入“黃燈．ico”、“紅燈．ico”、“綠燈．ico”文件來(lái)實(shí)現(xiàn)信號(hào)燈的切換；還有兩個(gè)計(jì)時(shí)器Timer1和Timer2，Timer1用于變換信號(hào)燈，黃燈1秒，紅燈2秒，綠燈3秒；Timer2用于控制汽車(chē)向左移動(dòng)。運(yùn)行時(shí)，信號(hào)燈不斷變換，單擊“開(kāi)車(chē)”按鈕后。汽車(chē)開(kāi)始移動(dòng)，如果移動(dòng)到信號(hào)燈前或信號(hào)燈下，遇到紅燈或黃燈，則停止移動(dòng)，當(dāng)變?yōu)榫G燈后再繼續(xù)移動(dòng)。在窗體中已經(jīng)給出了全部控件和程序，但程序不完整，要求閱讀程序并去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原文件名存盤(pán)。標(biāo)準(zhǔn)答案：審題分析計(jì)時(shí)器只在設(shè)計(jì)時(shí)可見(jiàn)，計(jì)時(shí)器是否啟用由其Enabled屬性設(shè)置，值可取True或False。啟用后由Interval屬性設(shè)置間隔多長(zhǎng)時(shí)間觸發(fā)一次其Timer事件，Interval屬性的單位為毫秒，默認(rèn)值為0，此時(shí)計(jì)時(shí)器不啟用。根據(jù)程序已提供源代碼可知，Timer1用于控制紅綠燈變換：第1秒亮黃燈，第2、3秒亮紅燈，第4、5、6秒亮綠燈。變量a記錄了信號(hào)燈運(yùn)行的秒數(shù)，每觸發(fā)一次Timer1的Timer事件，a就加1，當(dāng)信號(hào)燈每亮完一輪，變量a又從第1秒開(kāi)始計(jì)時(shí)。Timer2用于控制汽車(chē)行駛，每觸發(fā)一次Timer2的Timer事件，汽車(chē)向左移動(dòng)10。在汽車(chē)行經(jīng)紅綠燈下方(即P2．Left＞P1．LeftAndP2．Left＜P1．Left+P1．Width)時(shí)，遇黃燈或紅燈亮(即a＜4)時(shí)停車(chē)(通過(guò)設(shè)置Timer2．Enabled=False實(shí)現(xiàn))，否則繼續(xù)行進(jìn)。當(dāng)汽車(chē)行至距窗體100時(shí)，也設(shè)置Timer2．Enabled=False停車(chē)。布爾型變量b用于記錄是否已單擊“開(kāi)車(chē)”按鈕，若是b=True，在亮起綠燈時(shí)及時(shí)啟動(dòng)Timer2。操作步驟步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“′”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Timer2．Enabled=TrueP1．Picture=LoadPicture("綠燈．ico")Timer2．Enabled=FalseP2．MoveForm1．P2．Left-10，P2．Top，P2．Width，P2．Height步驟3：按要求將文件保存至考生文件夾中。考點(diǎn)鏈接圖形控件、計(jì)時(shí)器。知識(shí)點(diǎn)解析：暫無(wú)解析國(guó)家二級(jí)VB機(jī)試（綜合應(yīng)用題）模擬試卷第3套一、綜合應(yīng)用題(本題共10題，每題1.0分，共10分。)1、在考生文件夾下有一個(gè)工程文件sjt5．vbp，其名稱(chēng)為Form1的窗體上已有三個(gè)文本框Text1、Text2、Text3，以及部分程序代碼，請(qǐng)完成以下工作。①在屬性窗扣中修改Text3的適當(dāng)屬性，使其在運(yùn)行時(shí)不顯示，作為模擬的剪貼板使用，窗體如圖所示。②建立下拉式菜單，如下表所示。③窗體文件中給出了所有事什過(guò)程，但不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，以便實(shí)現(xiàn)如下功能：當(dāng)光標(biāo)所在的文件框中無(wú)內(nèi)容時(shí)，“剪切”、“復(fù)制”不可用，否則可以把該文本框中的內(nèi)容剪切或復(fù)制到Text3中；若Text3中無(wú)內(nèi)容，則“粘貼”不能用，否則可以把Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。注意：不能修改程序中的其他部分，各菜單項(xiàng)的標(biāo)題名稱(chēng)必須正確。最后將修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)本題工程文件，將Text3的Visible屬性設(shè)置為False，然后按照題目要求建立菜單并設(shè)置其屬性，如圖3．20所示。菜單屬性如表3．12所示。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)改為正確的內(nèi)容。參考答案DimwhichAsIntegerPrivateSubcopy_Click()’復(fù)制按鈕Ifwhich＝1Then’當(dāng)焦點(diǎn)在Text1中，將rext1中的內(nèi)容復(fù)制給Text3Text3．Text＝Text1．TeXtElseIfwhich＝2Then’同理，焦點(diǎn)在Text2中，將Text2中的內(nèi)容復(fù)制給Text3Text3．Text＝Text2．TextEndIfEndSubPrivateSubcutC1ick()’剪切按鈕Ifwhich＝1Then’當(dāng)焦點(diǎn)在Text1中，則將內(nèi)容復(fù)制給Text3，并清空Text1內(nèi)容Text3．Text＝Text1．TextTextl．Text＝""ElseIfwhich＝2Then’同上Text3．Text＝Text2．TextText2．Text＝""EndIfEndSUbPrivateSubedit_C1ick()’編輯Ifwhich＝1ThenIfText1．Text＝""ThenCut．Enabled＝FalseCopy．Enabled＝FalseElseCut．Enabled＝TrueCopy．Enabled＝TrueEndIfElseIfwhich＝2ThenIfText2．Text＝""ThenCut．Enabled＝FalseCopy．Enabled＝FalseE1seCut．Enabled＝TrueCopy．Enabled＝TrueEndIfEndIfIfText3．Text＝""ThenPaste．Enabled=FalseE1sePaste．Enabled＝TrueEndIfEndSubPrivateSubpaste_Cick()’粘貼按鈕Ifwhich＝1Then’當(dāng)焦點(diǎn)在Text1中則將Text3的內(nèi)容追加到Text1文件末尾Text1．Text＝Text1．Text＋Text3．TextElseIfwhich＝2Then。’同上Text2．Text＝Text2．Text＋Text3．TextEndIfEndSubPrivateSubText1GotFocus()’本過(guò)程的作用是當(dāng)焦點(diǎn)在Text1中時(shí)，which＝1which＝1EndSubPrivateSubText2GotFocus()’本過(guò)程的作用是當(dāng)焦點(diǎn)在Text2中時(shí)，which＝2which＝2EndSub步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析2、在考生文件夾下有一個(gè)數(shù)據(jù)庫(kù)文件“samp3．a(chǎn)ccdb”，其中存在已經(jīng)設(shè)計(jì)好的表對(duì)象“tEmployee”和查詢(xún)對(duì)象“qEmployee”，同時(shí)還設(shè)計(jì)出以“qEmployee”為數(shù)據(jù)源的報(bào)表對(duì)象“rEmployee”。請(qǐng)?jiān)诖嘶A(chǔ)上按照以下要求補(bǔ)充報(bào)表設(shè)計(jì)。(1)在報(bào)表的報(bào)表頁(yè)眉節(jié)區(qū)中添加一個(gè)標(biāo)簽控件，標(biāo)題為“職工基本信息表”，并命名為“bTitle”。(2)將報(bào)表主體節(jié)區(qū)中名為“tDate”的文本框顯示內(nèi)容設(shè)置為“聘用時(shí)間”字段值。(3)在報(bào)表的頁(yè)面頁(yè)腳節(jié)區(qū)添加一個(gè)計(jì)算控件，以輸出頁(yè)碼。計(jì)算控件放置在距上邊0．25厘米、距左側(cè)14厘米的位置，并命名為“tPage”。規(guī)定頁(yè)碼顯示格式為“當(dāng)前頁(yè)／總頁(yè)數(shù)”，如1／20、2／20、…、20／20等。注意：不能修改數(shù)據(jù)庫(kù)中的表對(duì)象“tEmployee”和查詢(xún)對(duì)象“qEmployee”；不能修改報(bào)表對(duì)象“rEmployee”中未涉及的控件和屬性。標(biāo)準(zhǔn)答案：(1)【操作步驟】步驟1：選擇“報(bào)表”對(duì)象，右鍵單擊“rEmployee”，從彈出的快捷菜單中選擇“設(shè)計(jì)視圖”命令。步驟2：選擇“報(bào)表設(shè)計(jì)工具”的“設(shè)計(jì)”選項(xiàng)卡“控件”組中的“標(biāo)簽”控件，單擊報(bào)表頁(yè)眉處，然后輸入“職工基本信息表”，單擊窗體任一點(diǎn)，如圖3．245所示。步驟3：右鍵單擊“職工基本信息表”標(biāo)簽，從彈出的快捷菜單中選擇“屬性”命令，在“名稱(chēng)”行輸入“bTitle”，如圖3．246所示。(2)【操作步驟】步驟1：右鍵單擊報(bào)表主體節(jié)區(qū)任一點(diǎn)，從彈出的快捷菜單中選擇“屬性”命令，在“名稱(chēng)”行下拉列表中選擇“tDate”。步驟2：在“控件來(lái)源”行下拉列表中選擇“聘用時(shí)間”，如圖3．247所示。(3)【操作步驟】步驟1：選擇“設(shè)計(jì)”選項(xiàng)卡控件”組中的“文本框”控件，單擊報(bào)表頁(yè)面頁(yè)腳節(jié)區(qū)仟一點(diǎn)，出現(xiàn)“Text”和“未綁定”兩個(gè)文本框，選中“Text”文本框，按Del鍵將“Text”文本框刪除。步驟2：右鍵單擊“未綁定”文本框，從彈出的快捷菜單中選擇“屬性”命令，彈出屬性對(duì)話框。選擇“全部”選項(xiàng)卡，在“名稱(chēng)”行輸入“tPage”，分別在“上邊距”和“左”行輸入“0．25cm”和“14cm”。在“控件來(lái)源”行輸入“＝[Page]&"／"&[PagesJ”，如圖3．248所示。關(guān)閉屬性表。步驟3：按Ctrl＋S保存修改。關(guān)閉沒(méi)計(jì)視圖。知識(shí)點(diǎn)解析：暫無(wú)解析3、在考生文件夾中有一個(gè)工程文件vbsj5.vbp(相應(yīng)的窗體文件為vbsj5.frm)。窗體Form1上有兩個(gè)名稱(chēng)為L(zhǎng)ab1和Lab2的標(biāo)簽，它們的標(biāo)題分別為“密碼”和“允許次數(shù)”；一個(gè)名稱(chēng)為Cmd1的命令按鈕，其標(biāo)題為“確定”；兩個(gè)名稱(chēng)分別為T(mén)xt1和Txt2的文本框。其中Txt1用來(lái)輸入密碼(輸入時(shí)顯示“*”)，無(wú)初始內(nèi)容，Txt2的初始內(nèi)容為3。已給出了Cmd1的事件過(guò)程，但不完整，要求去掉程序中的注釋符“’”，把程序中的問(wèn)號(hào)“?”改為正確內(nèi)容，使得在運(yùn)行時(shí)，在Txt1中輸入密碼后，單擊“確定”按鈕，如果輸入的是“123456”，則在Txt1中顯示“密碼正確”如圖3－66所示；如果輸入其他內(nèi)容，單擊“確定”后，彈出如圖3－67所示的錯(cuò)誤提示對(duì)話框，并且Txt2中的數(shù)字減1。最多可輸入3次密碼，若3次輸入錯(cuò)誤，則禁止再次輸入。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾中的本題工程文件vbsj5．vbp，將文本框Txt1的PasswordChar屬性值設(shè)置為“*”。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：IfTxt1．Text＝"123456"ThenTxt1．PasswordChar＝""IfTxt2．Text＞0ThenTxt1．Enabled＝False步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析4、在考生目錄下有一個(gè)工程文件sjt5．vbp。窗體中已經(jīng)給出了所有控件(如圖3－116所示)。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程完成以下功能：?jiǎn)螕簟白x數(shù)”按鈕，則把考生目錄下的in5．txt文件中的一個(gè)整數(shù)放入Text1；單擊“計(jì)算”按鈕，則計(jì)算出大于該數(shù)的第一個(gè)素?cái)?shù)，并顯示在Text2中：?jiǎn)螕簟按姹P(pán)”按鈕，則把找到的素?cái)?shù)存到考生目錄下的out5．txt文件中。注意：在結(jié)束程序運(yùn)行之前，必須單擊“存盤(pán)”按鈕，把結(jié)果存入out5．txt文件，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)本題對(duì)應(yīng)工程文件sjt5．vbp。步驟2：雙擊窗體Form1上的“計(jì)算”按鈕，打開(kāi)代碼編輯窗口，在其Click事件過(guò)程中輸入如下代碼。參考代碼：PrivateSubCommand2_Click()a％＝CInt(Text1．Text)Doa％＝a％＋1LoopUntilisprime(a％)Text2．Text＝a％EndSub步驟3：編寫(xiě)判斷素?cái)?shù)的函數(shù)過(guò)程isprime，參考代碼為：Functionisprime(aAsInteger)DimflagAsBooleank％＝2flag＝TrueWhilek％＜＝Int(a／2)AndflagIfa／k％＝Int(a／k％)Thenflag＝FalseEndIfk％＝k％+＋1Wendisprime＝flagEndFunction步驟4：按＜F5＞鍵運(yùn)行程序，先單擊“讀數(shù)”按鈕，接著單擊“計(jì)算”按鈕，最后單擊“存盤(pán)”按鈕。步驟5：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析5、在考生目錄下有一個(gè)工程文件sjt5．vbp，其窗體上有兩個(gè)標(biāo)簽L1和L2，標(biāo)題分別為“口令”和“允許次數(shù)”；一個(gè)命令按鈕C1，標(biāo)題為“確定”；兩個(gè)文本框名稱(chēng)分別為T(mén)ext1和Text2。其中Text1用來(lái)輸入口令(輸入時(shí)，顯示“*”)，無(wú)初始內(nèi)容；Text2的初始內(nèi)容為3。并給出了C1的事件過(guò)程，但不完整，要求去掉程序中的注釋符，把程序中的“?”改為正確的內(nèi)容，使得在運(yùn)行時(shí)，在Text1中輸入口令后，單擊“確定”按鈕，如果輸入的是“123456”，則在Text1中顯示“口令正確”；如果輸入其他內(nèi)容，單擊“確定”按鈕后，彈出如圖3—151所示的錯(cuò)誤提示對(duì)話框，并且Text2中的數(shù)字減1。最多可輸入3次口令，若3次都輸入錯(cuò)誤，則禁止再次輸入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp，將文本框Text1的PasswordChar屬性值設(shè)置為“*”。步驟2：在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：IfText1．Text="123456"ThenText1．PaSswordChar=""IfText2．Text＞0ThenText1．Enabled=FalSe步驟3：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：根據(jù)題目源程序，判斷文本框Text1輸入的密碼是否為“123456”的條件表達(dá)式為：Text1．Text="123456"；要去掉對(duì)文本框中輸入內(nèi)容的屏蔽，需將其PasswordChar屬性值清空，即執(zhí)行語(yǔ)句：Text1．PasswordChar=""；每輸入一次錯(cuò)誤密碼，文本框Text2中的數(shù)字減1。當(dāng)文本框Text2中數(shù)值還大于0時(shí)，提示重新輸入，否則提示錯(cuò)誤，并禁用文本框Text1。6、數(shù)列1，1，2，3，5，8，13，21，…的規(guī)律是從第三個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是它前面兩個(gè)數(shù)之和。在考生目錄下有一個(gè)工程文件sjt5．vbp。窗體中已經(jīng)給出了所有控件，如圖3－121所示。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)以下功能：在Text1中輸入整數(shù)40，單擊“計(jì)算”按鈕，則在Text2中顯示該數(shù)列第40項(xiàng)的值；如果單擊“存盤(pán)”按鈕，則將計(jì)算的第40項(xiàng)的值存到考生目錄下的out5．txt文件中。(提示：因數(shù)據(jù)較大，應(yīng)使用Long型變量。)注意：在結(jié)束程序運(yùn)行之前必須單擊“存盤(pán)”按鈕，把結(jié)果存入out5．txt文件，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件夾下的工程文件sjt5．vbp。步驟2：編寫(xiě)“計(jì)算”按鈕的單擊事件過(guò)程。參考代碼：PrivateSubCommand1Click()Dimf1,f2,fAsLongDima(40)AsLongf1＝1：f2＝1a(1)＝f1：a(2)＝f2Fori＝3ToVal(Text1．Text)f＝f1＋f2a(i)＝f：f1＝f2：f2＝fNextText2．Text＝a(40)EndSub步驟3：運(yùn)行程序，在文本框中輸入40，并單擊“計(jì)算”按鈕獲得一個(gè)結(jié)果，然后單擊“存盤(pán)”按鈕保存計(jì)算結(jié)果。步驟4：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析7、在考生文件夾下有一個(gè)工程文件sjt5．vbp。程序運(yùn)行時(shí)，單擊“顯示數(shù)據(jù)”按鈕，則將考生文件夾下in5．dat文件的內(nèi)容讀入一維數(shù)組a中，并按下標(biāo)順序?qū)?shù)組a各元素的值顯示在List1列表框中；單擊“移動(dòng)”按鈕，則將數(shù)組a中的最大值移動(dòng)到數(shù)組的最前面，其他數(shù)據(jù)的排列順序不變，并將移動(dòng)后的結(jié)果顯示在List2列表框中。單擊“保存”按鈕。則保存移動(dòng)后的結(jié)果。要求：“顯示數(shù)據(jù)”和“保存”按鈕的Click事件過(guò)程已經(jīng)給出，請(qǐng)編寫(xiě)“移動(dòng)”按鈕的Click事件過(guò)程實(shí)現(xiàn)上述功能。程序窗體界面如圖所示。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，在結(jié)束程序運(yùn)行之前必須單擊“移動(dòng)”按鈕，并單擊“保存”按鈕保存結(jié)果，否則無(wú)成績(jī)。最后程序按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：[操作步驟]步驟1：打開(kāi)本題工程文件。步驟2：打開(kāi)代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)改為正確的內(nèi)容。參考代碼(畫(huà)下劃線部分是需填入的內(nèi)容)Dimi，max，maxindexAsIntegermax=a(1)Fori=2ToUBound(a)Ifa(i)＞maxThenmax=a(i)maxindex=iEndIfNextiList2．AddItem(a(maxindex))Fori＜＞maxindexThenList2．AddItem(a(i))EndIfNexti步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤(pán)。知識(shí)點(diǎn)解析：暫無(wú)解析8、在考生文件夾下有一個(gè)工程文件sjt5.vbp，在該工程文件中已經(jīng)定義了一個(gè)學(xué)生記錄類(lèi)型數(shù)據(jù)StudType。（1）在考生文件夾下有一個(gè)工程文件sjt3.vbp，其功有三個(gè)標(biāo)題分別為“學(xué)號(hào)”、“姓名”和“平均分”的標(biāo)簽；三個(gè)初始內(nèi)容為空，用于接收學(xué)號(hào)、姓名和平均分的文本框Text1、Text2和Text3；一個(gè)用于顯示排序結(jié)果的圖片框。還有兩個(gè)標(biāo)題分別為“添加”和“排序”的命令按鈕，如圖1－10所示。程序功能如下：①在Text1、Text2和Text3三個(gè)文本框中輸入學(xué)號(hào)、姓名和平均分后，單擊“添加”按鈕，則將輸入內(nèi)容存入自定義的學(xué)生記錄類(lèi)型數(shù)組stud中（注：最多只能輸入10個(gè)學(xué)生信息，且學(xué)號(hào)不能為空）；②單擊“排序”按鈕，則將學(xué)生記錄類(lèi)型數(shù)組stud中存放的學(xué)生信息，按平均分降序排列的方式顯示在圖片框中，每個(gè)學(xué)生一行，且顯示三項(xiàng)信息。請(qǐng)將“添加”按鈕、“排序”按鈕的Click事件過(guò)程中的注釋符去掉，把?改為正確的內(nèi)容，以實(shí)現(xiàn)上述程序功能。注意：考生不得修改窗體文件中已經(jīng)存在的控件和程序，最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件下的本題工程文件在代碼編輯窗口，去掉程序中的注釋符“’”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：n=n–1stud(n).Num=Text1Fork=j+1TonIfstud(k).Average＞stud(j).AverageThenstud(k)=stud(j)步驟2：按要求將文件保存至考生文件夾中。知識(shí)點(diǎn)解析：暫無(wú)解析9、在考生文件夾下有一個(gè)工程文件vbsj5.vbp，其功能是：①單擊“讀數(shù)”按鈕，則把考生文件夾下in5.dat文件中的100個(gè)0～999之間的整數(shù)讀入數(shù)組a中；②單擊“計(jì)算”按鈕，則對(duì)這100個(gè)數(shù)中的水仙花數(shù)（當(dāng)一個(gè)數(shù)的值等于該數(shù)中各位數(shù)字的立方和時(shí)，此數(shù)被稱(chēng)為水仙花數(shù)。如153=13＋53＋33，所以153就是一個(gè)水仙花數(shù)）求平均值，并對(duì)該平均值截尾取整后顯示在文本框txtResult中。窗體中給出了所有控件（如圖1－241所示）以及“讀數(shù)”按鈕的Click事件過(guò)程，請(qǐng)為“計(jì)算”按鈕編寫(xiě)適當(dāng)?shù)氖录^(guò)程實(shí)現(xiàn)上述功能。注意：不得修改已經(jīng)給出的程序和已有的控件的屬性，在結(jié)束程序運(yùn)行之前，必須進(jìn)行計(jì)算，且必須使用窗體右上角的“關(guān)閉”按鈕結(jié)束程序，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤(pán)。程序源碼：Dima(100)AsIntegerPrivateSubcmdRead_Click()DimkAsIntegerOpenApp.Path&"\in5.dat"For_InputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubcmdCal_Click()’考生應(yīng)完成的程序EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out5.dat"For_OutputAs#1Print#1,txtResult.TextClose#1EndSub標(biāo)準(zhǔn)答案：【操作步驟】步驟1：打開(kāi)考生文件中的本題工程文件vbsj5.vbp，在代碼編輯窗口指定位置編寫(xiě)以下代碼：參考代碼：DimsumAsIntegerDimnAsIntegerDimxAsIntegerDimyAsIntegerDimzAsIntegerFori=1To100x=Int(a(i)/100)y=Int((a(i)-x*100)/10)z=a(i)-x*100-y*10Ifa(i)=x＾3+y＾3+z＾3Thensum=sum+a(i)n=n+1EndIfNexttxtResult.Text=Int(sum/n)步驟2：按要求將文件保存至考生文件夾中。步驟3：按＜F5＞運(yùn)行程序，先單擊“讀數(shù)”按鈕，接著單擊“計(jì)算”按鈕，然后單擊窗體右上角的關(guān)閉按鈕結(jié)束程序。知識(shí)點(diǎn)解析：暫無(wú)解析10、在考生目錄下有一個(gè)工程文件sjt5．vbp。其功能是產(chǎn)生并顯示一個(gè)數(shù)列的前n項(xiàng)。數(shù)列產(chǎn)生的規(guī)律是：數(shù)列的前2項(xiàng)是小于10的正整數(shù)，將此2數(shù)相乘，若乘積＜10，則以此乘積作為數(shù)列的第3項(xiàng)；若乘積≥10，則以乘積的十位數(shù)為數(shù)列的第3項(xiàng)，以乘積的個(gè)位數(shù)為數(shù)列的第4項(xiàng)。再用數(shù)列的最后2項(xiàng)相乘，用上述規(guī)則形成后面的項(xiàng)，直至產(chǎn)生了第n項(xiàng)。窗體上部從左到右三個(gè)文本框的名稱(chēng)分別為：Text1、Text2、Text3，窗體下部的文本框名稱(chēng)為T(mén)ext4。程序運(yùn)行時(shí)，在Text1、Text2中輸入數(shù)列的前兩項(xiàng)，Text3中輸入要產(chǎn)生的項(xiàng)數(shù)n，單擊“計(jì)算”按鈕則產(chǎn)生此數(shù)列的前n項(xiàng)，并顯示在Text4中。如圖3-177所示。注意：文件中已經(jīng)給出了全部控件，但程序不完整，請(qǐng)去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容。不得修改原有程序和控件的屬性。最后把修改后的文件按原文件名存盤(pán)。標(biāo)準(zhǔn)答案：審題分析根據(jù)題意，數(shù)列第n項(xiàng)的值源于該項(xiàng)前兩項(xiàng)的乘積。本題源程序中，將文本框Text1的輸入值賦予變量a作初值，將文本框Text2的輸入值賦予變量b作初值，并把a(bǔ)、b初值作為數(shù)列的前兩項(xiàng)。故第一個(gè)?處應(yīng)改為：b。將文本框Text3的輸入值賦予變量n，以標(biāo)記數(shù)列最終要生成的項(xiàng)數(shù)。變量k用于記錄數(shù)列當(dāng)前項(xiàng)數(shù)，初值為2。在Do循環(huán)中，首先將a、b的乘積賦予變量c(當(dāng)前項(xiàng)數(shù)k增1)，然后判斷c的值是否小于10，若c小于10則c即為數(shù)列的第3項(xiàng)，并將b的值賦予變量a，c的值賦予變量b，以便計(jì)算數(shù)列下一項(xiàng)的值；若c不小于10，則取a和b乘積十位上的數(shù)(即d=c＼10)作數(shù)列的第3項(xiàng)，將d的值賦予變量a(當(dāng)前項(xiàng)數(shù)k增1)，并進(jìn)一步判斷當(dāng)前k值是否小于或等于最終要生成的項(xiàng)數(shù)n，若是則取a和b乘積個(gè)位上的數(shù)(即d=cMod10)作數(shù)列的第4項(xiàng)，將d的值賦予變量b，以便計(jì)算數(shù)列下一項(xiàng)的值。重復(fù)執(zhí)行循環(huán)體，即可依次求出數(shù)列后續(xù)項(xiàng)的值。操作步驟步驟1：打開(kāi)考生文件夾中的本題工程文件sjt5．vbp，在代碼編輯窗口，去掉程序中的注釋符“′”，將問(wèn)號(hào)“?”改為正確的內(nèi)容。參考代碼：Text4=Text4＆a＆""＆ba=bIfk＜=nThenb=d步驟2：按要求將文件保存至考生文件夾中。考點(diǎn)鏈接Do循環(huán)和While循環(huán)。知識(shí)點(diǎn)解析：暫無(wú)解析國(guó)家二級(jí)VB機(jī)試（綜合應(yīng)