專題訓(xùn)練二算法與程序設(shè)計

1、專題訓(xùn)練二算法與程序設(shè)計一、選擇題1 某算法的流程圖和自然語言表示分別如下:L T/輸出max/_麗自然語言1輸入兩數(shù)a、b2判斷a、b的大小，如果ab,那么max=a,否則max=b3輸出max4結(jié)朿 則流程圖中處應(yīng)填入()A.max.amax-bB. maxb mamaC. a-max b-maxD.b.maxamax2已知f(l)=l,f(2)=l,當(dāng)n2時,f(n)=f(n.l)+f(n-2).求F(10)的值，解決該問題最為合適的算法是()A.排序算法B.査找算法C.枚舉算法D.遞歸算法3任VB中，下列泄義實數(shù)常量正確的是()A.Const pi As SingleB.Dim n=3

2、A4C.Const pi=34 D.Const 7t=3.144在 VB 中使用自企義函數(shù)的主要原因是()A.使程序模塊化，便于反復(fù)調(diào)用B.使程序更加美觀C.便于人機交互D.防止他人解密程序5下列VB表達式的值等于100的是()A.Sqr(lOO) B.Int(-99)+lC.Asc(” 2 )+98 DLcn( 2016 )+966將數(shù)學(xué)表達式J|abc2|寫成Visual Basic表達式，正確的是()A.Int(Abs(ab-c * c)B. Sqr(Abs(ab-c* 2)C.Int(Abs(a* b-c* c)D.Sqr(Abs(a* b-c* c)7運行以下 VB 事件處理過程，出

3、現(xiàn)下圖所示出錯信息。/ 輸Aa、b /Microsoft Visual BasicPrivate Sub Commandl_ClickOa=10b=a-5c=Sqr(bA2-aA2)on=Str(c)End Sub引發(fā)該錯誤的語句是()A.b=a-5B.c=Sqr(bA2-aA2)C.on=Str(c) D.End Sub8如圖所示是VB窗體中某個對象的屬性窗口，下列說法中正確的是()|Textl TextBox（名稱）TextlAligwTitnt0 Left JustilAppearance1 - 3DBackColor AH80000005ABorderStyl*1 Fixed Sing

4、3ausesVali dati onTrue D&taFieldA.True是該對象的屬性名B.該對象需為TextlC.該對象屬于標(biāo)簽類D.BackColor是該對象的屬性值9有如下自泄義函數(shù)gcd功能是求x和y的最大公約數(shù)Function gcd（x As Integer.y As Integer） As IntegerDo While y0z=x Mod yx=yy=zLoopEnd Function運行時發(fā)現(xiàn)該函數(shù)返回值始終是0,原因是（）A.函數(shù)返回數(shù)據(jù)類型錯誤B.函數(shù)沒有返回運算結(jié)果C.函數(shù)名錯誤D.變量z沒有左義10 某算法的部分程序代碼與其對應(yīng)的流程圖分別表示如下:幫助實

5、時錯w：無效的過程調(diào)用述參數(shù)流程圖程序代碼Private Sub Command l_Click()Dim i As Integer.a( 1 to 10) As Integer a(l)=l :a(2)=lForNext i則代碼處應(yīng)填入的語句是()A.上1 to 10Bi=3 to 10C.j=3 to10D.i=3 to 1011.有如下VB程序段：a=3:b=4:c=5If a=b And a=c Theny=aElse If b=c Theny=bElsey=cEnd If該程序運行之后，變量y的值是()A.OB.3C.412以下是一段VB程序：n=0 : m=0For i=l To

6、 100If md0.5 Thenm=m+lElsen=n+lNext i在運行程序時，出現(xiàn)了下圖所示的錯誤信息:Microsoft Visual Basic公編譯錯誤：For沒有Next確定導(dǎo)致該錯誤的原因是程序中缺少了()A.ForB.End IfC.NextD.If13從N張牌中抽出r張，有多少種排列方法，用計算機編程解決這個問題，按以下步驟求解:(1)輸入八r的值(2)用循環(huán)求解r!=l* 2* 3* -用循壞求解n!/r!=(r+l) * (r+2) * * n (4)求解文案數(shù)s=(n!/r!)/r!上述算法屬于()A.枚舉算法B排序算法C.遞歸算法D.解析算法14將文本框Text

7、l中輸入的姓名保存到變量sName中，則使用的語句是()A.sName=onB.sNmac=C.=sNmaeD.on=sName a(i)=a(i-l)+a(i-2) a(i)=a(i-l)+a(i-2) a(i)=a(i-l)+a(i-2)D.515以下VB程序?qū)崿F(xiàn)的功能是()Private Sub Command l_Click()ed=Fa!seEnd SubA單擊Command 1 Jn.Command 1對象不可見B.單擊Command 1后.Command 1對象不響應(yīng)事件C.單擊Command 1后,Commandl對象可見D單擊Command 1后,Command 1對象能響應(yīng)

8、事件16在NBA某賽季中,快船隊5場比賽得分依次是97.89J 11,70.90,若采用冒泡排序算法對其進行從 小到大排序，在整個排序過程中，數(shù)據(jù)9T共被交換的次數(shù)是()A.1次B.2次C.3次D.4次17.(2015-浙江10月選考)已知單調(diào)函數(shù)f(x)在0.1區(qū)間存在一個X。 ,使f(xo)=0o現(xiàn)用對分查找法搜索X。的值，開始搜索區(qū)間為0J,若經(jīng)過10次對分查找后還需繼續(xù)搜索，則第11次搜索區(qū)間的長度為()A.l/2B.I/10C.l/102D1/21&下列VB程序運行時，單擊按鈕Command 1后,文本框Textl和Text2中顯示的內(nèi)容分別是()Private Sub Co

9、mmand l_Click()Dim a(l to 4) As Integer,k As Integers As Stringa(l)=l : a(2)=3 : a(3)=2 : a(4)=0 : s=0For k=2 To 4If a(k)a(l) Thent=a(l)：a( 1 )=a(k) : a(k)=ts=s+lEnd IfNext k=slr(a(l)=str(s)A.l 0B.2 2C.31D.21二、綜合題1.(2015-浙江10月選考)編寫VB程序，實現(xiàn)如下功能:在文本框Textl和Text2中分別輸入一個整數(shù)， 單擊命令按鈕Command 1列表框Listl中顯示結(jié)果，運行

10、效果如左下圖所示。結(jié)果包含兩列數(shù)據(jù)， 第1列為兩數(shù)之間的攝氏溫度值(間隔1度、升序)，第2列為對應(yīng)的華氏溫度值。St性Command!.冋|CoMo:TruDefaultFolseVi 4th返回/設(shè)歆播的刃5。要使命令按鈕Command 1上顯示的文本改為“轉(zhuǎn)換；可在其屬性窗口中將_ 屬性的屬性值修改為“轉(zhuǎn)換二(2)為實現(xiàn)上述功能,請在畫線處填入合適代碼或選項。Private Sub Command l_Click()Dim 11 As Integer, t2 As IntegerDim i As Integer, t As IntegerDim f As Single丫存儲華氏溫度值tl

11、=VaI()t2 =Val()If Then，(選填字母，從下列A. B、C、D四個選項中選取一項)t = tl：tl=t2：(2 = tEnd Ifi = tlDo While (2)* (選填字母,從下列A、B、C、D四個選項中選取一項)f=i* 9/5 + 32攝氏溫度轉(zhuǎn)換為華氏溫度em Str(i) + + Str(f)1(填程序代碼)LoopEnd Sub畫線處應(yīng)選_，處應(yīng)選_ ，處應(yīng)填_oA.i = t2B.ft2D. i= a* And t0 x =_ 0;_Ifx9Thcn如果余數(shù)大于10則將其轉(zhuǎn)換為對應(yīng)的十六進制字母c =Chr(Asc(” A ) + x10)Elsec =

12、Str(x)End Ifsl6=_slO = slO 16Loop= sl6End Sub程序中畫線處應(yīng)填入的代碼是_程序中畫線處應(yīng)填入的代碼是_4小王設(shè)計了一個程序來列舉仁川亞運會的獎牌前十的國家。下列VB程序?qū)崿F(xiàn)如下功能:單擊命令 按鈕Command 1后，在列表框Listl中按獎牌數(shù)由多到少顯示國家名稱，界而如下圖所示。0rira!獎牌數(shù)前十強請根據(jù)算法將下列程序補充完整。Dim a(l To 45) As String*存放45個參賽國家和地區(qū)Dim b(l To 45) As Integer1存放獎牌數(shù)Private Sub Form_Load()Dim conn As New ct

13、ionDim rs As New dsetctionString =,rprovider=.OLEDB.12.0;datasource=& & 仁川亞運.accdbSet rs.ActiveConnection = connrs.Open select#from獎牌榜i=0Do While Not rs.EOFi=i+la(i)=rs.fields(7country)b(i)=rs.fields(medal)rsnovenextLooprs.CloseSet rs=NothingSet conn=NotingEnd SubPrivate Sub Command l_Click(

14、)Dim i As IntegerJ As IntegerDim t As IntegerJ As IntegerFor i = 1 To44Forj =45 To i+1 Step-1If Q Thenf=a(j)：a(j) = a(j-l)：a(jl) = ft=b(j)：b(j) = b(j-l)：b(j-l) = tEnd IfNext jNext iFor i =_cm 第”+S(r(i)+ 名+ a(i) + 獎牌數(shù)+ Str(b(i)Next iEnd Sub(1)程序中，國家和獎牌數(shù)據(jù)來自數(shù)據(jù)庫文件_ 中的數(shù)據(jù)表_ ，其中存放獎牌數(shù)的字段是。845747365751448457

15、4736575144(2)為實現(xiàn)程序功能，代碼中畫線處應(yīng)填寫語句是_ ，處應(yīng)填寫語句是_O(3)程序中對獎牌數(shù)的排序采用的算法是_o專題訓(xùn)練二算法與程序設(shè)計一、選擇題1.A 解析:對照流程圖和自然語言可知，流程圖中處對應(yīng)自然語言的第2步，當(dāng)ab時,max二a,否則max二b,所以處應(yīng)填寫maxa,處應(yīng)填寫maxb。2.D解析:從表達式f(n)=f(n.l)+f(n.2)知球解函數(shù)f(n)的值時，須先取得前兩項f(n-l). f(n-2)的值,函數(shù)發(fā)生了自我調(diào)用，這種算法屬于遞歸算法。3. C 解析:?，摰亩x方法:Const常量名二數(shù)值，常量名命名規(guī)則同變瑩命名規(guī)則一樣，由字母、 數(shù)字和下劃線

16、組成,但必須是字母開頭,VB中已使用的關(guān)鍵字不能作為常量名。4.A5.D解析:Sqr(100)=10Jnt(.99)+l=-9&Asc( 2)+98二148。6.D7.B解析:錯誤無效的過程調(diào)用或參數(shù)該明函數(shù)的參數(shù)有錯誤。程序中，由于b2.aA2=25-100二75,而函數(shù)sqr的功能是返回參數(shù)的算術(shù)平方根,該函數(shù)要求參數(shù)值大于等于0,故而出錯。8.B解析:該對象屬于文本框類TextBox,True是該對象的屬性值,BackColor是該對象的屬性 名。9. B 解析:自定義函數(shù)必須有返回值，語句格式為“函數(shù)名=:表達式。本題可在Loop語句下面插 入一行語句ugcd=xn實現(xiàn)功能。1

17、0.B解析:由流程圖可知，程序是循環(huán)結(jié)構(gòu)，循環(huán)條件是iW10,循環(huán)變量i初值是3,終值是10每 次循環(huán)i增值1,所以處語句為“i=3To 1(F,對照流程圖，處應(yīng)填入a(i)二a(il)+a(i2)。11.D解析:題中a=b”a=c和b=c，嘟不成立，因此執(zhí)行Else分支語句y二c。12.B解析:程序中有一個塊if語句沒有end if。13.B解析:總的牌數(shù)n和抽出的張數(shù)i是一個組合問題,組合數(shù)可以通過公式s=(n!/r!)/r!求解，這 種解決問題的算法是解析算法。14.B15.B解析:Enabled屬性的決定對象是否響應(yīng)事件，若其值為True,對象能響應(yīng)事件，值為False則不能響應(yīng)事件。

18、16.C解析:升序冒泡排序過程如下表所示，可見97被交換3次。原始數(shù)據(jù)97891117090第一遍70978911190第二遍70899790111第三遍7089909711117.D解析:第1次搜索區(qū)間的長度為1,第2次搜索區(qū)間的長度為1/2,第3次為1/4,依次類推，第11次搜索區(qū)間的長度為1/2叭18.C解析:循環(huán)體功能是如果a(k)大于a(l),就交換a(k)和a(l)的值,s累加1”。該循環(huán)執(zhí)行3次,只有當(dāng)k=2,a(k)a(l)條件成立，所以a(l)的值被替換為a(2),s被累加一次，聶終值為1。二、非選擇題1 答案:(l)Caption (2) CA上i+1解析:從Do While循環(huán)可知,循環(huán)體的功能是通過i把攝氏溫度轉(zhuǎn)換為華氏溫度,i是循環(huán)變至其 初值是1終值為2間隔1度，所以步長是1,處應(yīng)填iV二2處應(yīng)填i=i+lo如果n大于2則 交換兩數(shù)，所以填tlt2o2 答案:Lcn(ch)on = s解析:程序的思路是逐個取出字符串中的毎一個字符，如果是小寫字母，則轉(zhuǎn)換為大寫后加入到變 S中,最后把s顯示在Text2中。3答案:slO Mod 16 c + sl6解析:根據(jù)程序除16取余”法的描述,算法首先對十進制數(shù)slO除以16,得到余數(shù)x,把x轉(zhuǎn)換為 相應(yīng)的十六進制數(shù)字， 加入變t S16中， 商S16則重復(fù)上述步驟直到其值為0。