VB基模擬演練選考題（有答案）B組

選考題1.如下圖所示,該流程圖所表示的算法違背了算法的有窮性特征下列修改方法中,可以改正該錯誤的是()A.將①處改為i←0B.將②處改為s≥0?C.將③處改為i←i-2D.將④處改為s←s-i2.有一數(shù)列1,2,3,5,8,13,……,從第3項起每項等于它相鄰的前2項之和求在該數(shù)列中第一個超過1000的數(shù)是第幾項。解決此問題的部分算法流程圖如圖所示:圖中空白處理框①和②處應(yīng)填入的是()①←①A.B.②②←①←C.②

D.

①②←3.隨機(jī)產(chǎn)生10個[1,99]中的整數(shù),依次存儲到數(shù)組變量中。實現(xiàn)此功能的部分算法流程圖如圖所示，圖中空白處理框①和②處應(yīng)填入的是)①A.②←①B.②←①←C.②①←D.②4.在VisualBasic窗體中,當(dāng)前對象的屬性窗口如下圖所示,下列說法正確的是()17

VB基模擬演練選考題（有答案）A.該對象屬于標(biāo)簽類B.該對象屬于文本框類C.當(dāng)前該對象的Caption屬性值是“轉(zhuǎn)換”D.當(dāng)前該對象的Font屬性值是“仿宋體”5.(2015浙江學(xué)考導(dǎo)引)小李在設(shè)計VB程序時所使用復(fù)選框?qū)ο蟮膶傩源翱谌鐖D所示,他想編制該復(fù)選框單擊事件的處理過程則該事件處理過程名是()A.CheckBox_Click()B.加粗_Click()C.Check1_Click()D.復(fù)選框_Click()6.一個VB工程的部分設(shè)計界面如圖所示。下列說法不正確的是)①工程文件名是“工程1.vbp”②該工程只有1個窗體③窗體文件名是“Form.frm”④窗體名稱是“尋找水仙花數(shù)”A.①②B.②③C.①③D.③④7.(2016杭州二中第一學(xué)期期末)VB語句List1.addItemd(i)的作用是把數(shù)組的數(shù)據(jù)添加到列表框?qū)ο驦ist1中。該語句中的“”是()A.屬性名B.屬性值C.方法D.事件8.運(yùn)行如下Visual序,單擊命令按鈕Command1,出現(xiàn)如圖所示的出錯信息。27

VB基模擬演練選考題（有答案）PrivateSubCommand1_Click()DimaAsAsIntegera=10‘①b=20‘②Text1.Text=“a+b=”+Vala+b‘③EndSub‘④發(fā)生“類型不匹配”錯誤時所執(zhí)行的語句是)A.①B.②C.③D.④9.(2016嘉興3月選考模擬)如圖所示程序段中a(5)不是數(shù)組元素的是()A.①B.②C.③D.④10.(2015寧波期末)編寫VisualBasic程序,求n!(說明:n!=1×2×3×…×n。(1)這個程序主要采用的算法結(jié)構(gòu)是①分支結(jié)構(gòu)②順序結(jié)構(gòu)③循環(huán)結(jié)構(gòu))。(2)程序運(yùn)行,在Text1中無論輸入什么數(shù),發(fā)現(xiàn)在中輸出的都是原因:①n的初值是0,PrivateSubCommand1_Click()DimmAsIntegerDimnAsIntegerDimiAsIntegerm=Val(Text1.Text)n=0Fori=1Tomn=n*iNextText2.Text=Str(n)EndSub應(yīng)該如何修改程序?②把n=0改為n=1。(3)上述錯誤修改成功后,程序運(yùn)行時,在Text1輸入5,按“計算”按鈕,則在Text2中輸出120,如下圖左所示:37

VB基模擬演練選考題（有答案）但是當(dāng)輸入10的時候,則跳出一個實時錯誤提示“溢出”,如上右圖所示生該錯誤的原因是:①n的值超出了定義的范圍,為了能計算出10的階乘應(yīng)該怎么修改程序?②將DimnAsInteger改為DimnAslong。11.(2015浙江9月學(xué)考+選考模擬加試題)有如下程序:DimiAsInteger,jAsInteger,kAsString,nAsIntegern=3List1.ClearFori=1Tonk=“”Forj=1Toik=k+“”NextjList1.AddItemkNexti該程序運(yùn)行后,在列表框List1中顯示的是(A)12.(2016臺溫麗衢第一學(xué)期期末)【加試題】編寫程序,功能如下在文本框Text1里輸入數(shù)學(xué)表達(dá)式(表達(dá)式的長度<=100),列表框List1里輸出所有配對括號在表達(dá)式中的位置。如在文本框Text1輸入“123-1+23”,運(yùn)行效果如圖所示。實現(xiàn)上述功能的VB代碼如下,劃線的地方填入合適代碼,完善程序。PrivateSubCommand1_Click()DimsAsStringDima(1To100)AsIntegerDimiAsInteger,topAsIntegers=Text1.Text47

VB基模擬演練選考題（有答案）i=1top=0DoWhilei<=Len(s)IfMids,i,1=“”Thentop=top+1①EndIfIfMids,i,1=“”ThenList1.AddItemStratop+“”+Stri②EndIf③LoopEndSub程序中①劃線處應(yīng)填入a(top)=i。程序中②劃線處應(yīng)填入top=top-1。程序中③劃線處應(yīng)填入i=i+1。13.(2016臺州六校第一學(xué)期期末選考科目聯(lián)考【加試題】編寫VB程序?qū)崿F(xiàn)如下功能:在文本框Text1輸入篩選關(guān)鍵詞“ca”,單擊“篩選”按鈕Command1,在列表框List1所列字符串中查找左邊與“ca”相匹配的字符串并在列表框List2中輸出(運(yùn)行效果如圖所示);否則,在列表框List2顯示“無篩選結(jié)果”。實現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯請改正。Dima(1To20)AsString‘用于存儲20個字符串20個字符串分別保存賦值給數(shù)組元素a(19)、a(20),并在列表框List1中顯示PrivateSubForm_Load()‘代碼略EndSubPrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerDimflagAsBoolean‘變量flag用于標(biāo)記是否在數(shù)組a中篩選到左邊與匹配的字符串57

VB基模擬演練選考題（有答案）List2.Clear‘篩選時清空上次篩選結(jié)果s=Text1.Textn=Len(s)flag=FalseFori=1To20IfMid(a(i),1,i)=sThen’(1)Mid(a(i),1,n)=sList2.AddItema(i)flag=TrueEndIfNextiIfflag=FalseThenList2.AddItema(20)‘(2)List2.AddItem“無篩選結(jié)果”EndIfEndSub14.(2015浙江9月學(xué)考+選考模擬加試題)用編寫一個字符串分行程序,功能如下:單擊“分行”按Command1,將文本框Text1的英文文本在列表框List1中分行顯示(分行時單詞不得跨行,每行字符盡可能多但不超過40個),并在標(biāo)簽Label1中輸出總行數(shù),運(yùn)行效果如圖所示。分行算法如下(1)將文本框中的字符串保存到變量s中;(2)當(dāng)s中字符個數(shù)超過40時,循環(huán)執(zhí)行下列①、②、③步,否則跳轉(zhuǎn)到(3):①如果第41個字符不是英文字母,則分行位置否則,向左逐個查找,直至找到第一個非英文字母,將其位置作為分行位置②截取s的前p個字符,作為新增行顯示在列表框中,同時總行數(shù)加③將s中未分行部分重新賦值給變量s。(3)將s作為新增行顯示在列表框List1中,時總行數(shù)加1。實現(xiàn)上述功能的VB程序如下,請在劃線處填入合適代碼。PrivateSubCommand1_Click()DimsAsString,cAsStringDimrAsInteger,totalAsInteger,pAsIntegertotal=0s=①Text1.TextDoWhileLen(s)>40r=41c=Mid(s,r,1)IfNotc>=“a”Andc<=“z”O(jiān)rc>=“A”Andc<=“Z”Then67

VB基模擬演練選考題（有答案）p=40Else’從第41個字符開始向左找到第1個非英文字母并將其位置值賦給pDoWhilec>=“a”Andc