2018信息技術(shù)考試題算法(1-5)

1、2018第一套(算法部分)23、下列選項(xiàng)中，關(guān)于算法的描述正確的是（ ）。A算法只能用自然語(yǔ)言描述B算法必須在有限步驟內(nèi)實(shí)現(xiàn)C 算法就是一種高級(jí)程序設(shè)計(jì)語(yǔ)言D算法可以有0個(gè)或多個(gè)輸入，但只能有一個(gè)輸出24、下列選項(xiàng)中，能作為VB程序變量名的是（ ）。A whileB 4A123C a%cD dist25、以下程序段執(zhí)行后，輸出結(jié)果為（ ）。 m=29 If m Mod 3 0 Then Print m & “不能被3整除” ElsePrint m & “能被3整除” End If A n能被3整除 B n不能被3整除 C 29不能被3整除 D 29能被3整除26、下列VB表達(dá)式中，值為字符串類

2、型的是（ ）。(1) Abs(x)(2) Text1.Text(3)”123+45” (4) Sqr(x) (5) Labell.CaptionA (1)(3)(5)B (2)(3)(5)C (2)(4)(5)D (1)(2)(3)27、在VB中，下列哪個(gè)選項(xiàng)是正確的賦值語(yǔ)句？（）A 2018=xB 5s=80 C a+b=cD s=s+528、閱讀程序，寫出運(yùn)行結(jié)果Dim n As Integern=Val(InputBox(“n=”)Do While n Mod 2=0 n=n2LoopPrint n程序運(yùn)行時(shí)，輸入24，輸出n的值是：_29、分析并完善程序以下是計(jì)算s=1+6+11+10

3、1的程序代碼，請(qǐng)完善程序。 Dim s As Integer Dim i As Integer s=0 For i=1 To 101 Step_ s=_ Next i Print s30、算法設(shè)計(jì)與程序?qū)崿F(xiàn)某市出租車收費(fèi)標(biāo)準(zhǔn)如下： （1）3公里內(nèi)（含3公里），收費(fèi)8元； （2）超過(guò)3公里但未超過(guò)6公里部分，按1.5元/公里收費(fèi)； （3）超過(guò)6公里部分，按2.25元/公里收費(fèi)。根據(jù)以上標(biāo)準(zhǔn)，輸入出租車行駛的公里數(shù)，請(qǐng)計(jì)算顧客需付費(fèi)多少元？【參考代碼】Dim s As SingleDim p As Single s=Val(InputBox(“s=”)If s6 Then p=2.25*(s-6)

4、+1.5*3+8End IfPrint p根據(jù)上述回答下列問(wèn)題：1、 本題采用的算法是_（填寫：解析法/查找法/枚舉法/排序法）。2、 程序代碼中空白處應(yīng)填寫的條件是_（填寫字母：A/B/C/D）.A 33 And s3 Or sb And b3的值是（）。A 1B -1C FalseD True24、以下程序段運(yùn)行后，x和st的值分別是（）。Dim x AsIntegerDim st AsString x=123+678 st=”123”+”678”A“”B801“”C“801”D801“801”25、用流程圖表示條件“AB”是否成立，要用到以下哪個(gè)圖形？（）A 平行四邊形B 菱形C 圓角矩

5、形直角矩形D26、下列選項(xiàng)中，能作為VB程序變量名的是（）。AdimB 3abC a*bD xy27、以下程序段運(yùn)行后，s的值是（）。n=0s=0DoWhile s=10n=n+3s=s+nloopA 30B 18C 0D 328、閱讀程序，寫出運(yùn)行結(jié)果Dim a(10) As IntegerDim iAs Integera(1)=1a(2)=1Fori=3 To 6 a(1)=a(i-1)+a(i-2)Next iPrint a(6)上述程序運(yùn)行后，輸出a(6)的值是_。（6分）29、分析并完善程序以下是計(jì)算s=1*2*3*10的程序代碼，請(qǐng)補(bǔ)全程序。（6） Dim s As Long Di

6、m i As Integer s=_ For i=1 To 10 s=_ Next i Print s30、算法設(shè)計(jì)與程序?qū)崿F(xiàn)勾股數(shù)求出100以內(nèi)滿足ab的所有勾股數(shù)。【參考程序】Dim a As IntegerDim b As IntegerDim c As IntegerFor a=1 To 100For b=1 To 100 For c=1 To 100If _Then Print a;b;cEnd If Next cNext bNext a1、本題采用的算法是_（填寫：解析法/ 枚舉法/排序法/遞歸法）。2、程序代碼中空白處應(yīng)填寫的條件是_（填寫字母：A/B/C/D）.A ab And

7、 a2+b2=c2B ab Or a2+b2=c2C ab And a2+b2=c2D ab Ora2+b2=c22018第三套(算法部分)23、下列選項(xiàng)中，能作為VB程序變量名的是（）。A 、s+1B 、3stuC 、trueD 、 s124、下列哪個(gè)程序段的運(yùn)行結(jié)果如圖1所示？（）*圖1A 、for i=1to5 Forj=1to 6 Print” *”nextj print next iB 、for i=1to5fori=1to 6print” *” next i printnext iC、for i=1 to5 Forj=1to 6Print” *” next j printnext

8、jD、 for i=1to5 Forj=1to 6Print” *” next j print next i25、在VB中，Int(x)函數(shù)的功能是返回不大于x的最大整數(shù)，設(shè)a=3，b=4，c=5，則下列表達(dá)式的運(yùn)算結(jié)果中值最大的是（）。A 、 Sqr(c)B、 Abs(a-b)C 、 Int(2*a-c/b)D 、a2+b2-c226、在VB中，用變量code存儲(chǔ)學(xué)生的借閱卡編碼（code=”N”），則變量code的數(shù)據(jù)類型應(yīng)定義為（）。A IntegerB DoubleC StringD Single27、Visual Basic程序設(shè)計(jì)語(yǔ)言屬于（）。A、匯編語(yǔ)言B、自然語(yǔ)言C、高級(jí)語(yǔ)言D

9、、機(jī)器語(yǔ)言28、閱讀程序，寫出運(yùn)行結(jié)果Dim i As IntegerDim x As IntegerDim y As Integery=30For i=1 To 3x=Val(InputBox(“x=”)If y xTheny=xEndIfNext iPrint y程序運(yùn)行后，依次輸入：36 87 51運(yùn)行后輸出結(jié)果是_。（6分）29、算法設(shè)計(jì)與程序?qū)崿F(xiàn)（拖動(dòng)滾動(dòng)條瀏覽全部試題內(nèi)容，點(diǎn)擊右側(cè)圖標(biāo)可切換輸入法）GDP增長(zhǎng)問(wèn)題某省2016年的GDP是6.7萬(wàn)億元，如果每年按7%的比例增長(zhǎng)，問(wèn)多少年以后此省的GDP超過(guò)15萬(wàn)億？【算法分析】假設(shè)n年后此省的GDP超過(guò)15萬(wàn)億元，根據(jù)題意得出數(shù)學(xué)關(guān)系

10、式？求最小的n。【參考程序】Dim pAs Singlep用于記錄GDP的值 Dimr As Singler用于記錄GDP的年增長(zhǎng)比例 Dimn As Integern用于統(tǒng)計(jì)年數(shù) p=6.7r=0.07n=0Do While_p=p*(1+r)n=n+1LoopPrint n & ”年后，GDP的值超過(guò)15萬(wàn)億元?！备鶕?jù)上述回答下列問(wèn)題：（共6分，每空3分）1、本題采用的算法是_（填寫：解析法/枚舉法/排序法/遞歸法）。2、寫出程序中空白處表達(dá)式_。30、算法設(shè)計(jì)與程序?qū)崿F(xiàn)判斷車牌的單雙號(hào)【背景知識(shí)】為了保障空氣質(zhì)量，減少霧霾，某市決定當(dāng)空氣污染嚴(yán)重時(shí)，實(shí)行汽車單雙號(hào)限行，違反規(guī)定的車輛將予

11、以處罰。如何讓高清攝像頭自動(dòng)判斷車牌的單雙號(hào)，交警犯了愁，他需要編程高手的你幫忙，完善下面的程序。（提示：（1）所有車牌號(hào)中都含有數(shù)字，并且車牌號(hào)的長(zhǎng)度都是6；（2）以車牌中最后一位阿拉伯?dāng)?shù)字的奇、偶來(lái)決定單雙號(hào)。）（1）輸入：AD2367（2）輸入：A8888A(3)輸入：A8963C輸出：?jiǎn)翁?hào)輸出：雙號(hào)輸出：?jiǎn)翁?hào)【算法描述】自然語(yǔ)言流程圖第1步：輸入車牌號(hào)第2步：取車牌號(hào)的最后一位x；第3步：判斷x是否為數(shù)字，如果是，轉(zhuǎn)第4步；如果不是，則依次取得倒數(shù)第二、三位判斷，知道找到數(shù)字為止；第4步：判斷x是奇數(shù)還是偶數(shù)，然后輸出相應(yīng)的結(jié)果。開(kāi)始請(qǐng)根據(jù)上述算法描述補(bǔ)全代碼 Dim n As Int

12、eger Dim s As String定義s為字符串類型 Dim x As String s=InputBox(“s=”,s)將輸入的車牌號(hào)賦值給s n=6 車牌號(hào)的長(zhǎng)度為6 x=Mid(s,n,1)取車牌號(hào)s的第n位 Do While x”9” x不是數(shù)字字符，則取x的前一位_x=Mid(s,n,1)取車牌號(hào)s的第n位 Loop If _then Print“雙號(hào)”Else Print“單號(hào)”End If(提示：Mid(s,m,n)的功能：從字符創(chuàng)S的第m位開(kāi)始，截取長(zhǎng)度為n的子串。例如：Mid(“A8963C”,5,1)的返回值是“3”。)請(qǐng)完善上述程序：（共8分，每空4分）1、根據(jù)題意

13、，程序中空白處應(yīng)填寫：_。2、根據(jù)題意，程序中空白處應(yīng)填寫：_（填寫字母：A/B/C/D）。A、Val(x) 2= 0B、Val(x)Mod 2 = 1C、Val(x) Mod 2=0D、Val(x) Mod 2 02018第四套(算法部分)23、一下程序段運(yùn)行后，y的值是（）。 x=3 If x3Then y=2*x Else y=3*x+1end ifA 25B 26C 10D 524、某晚會(huì)的猜數(shù)字游戲中，有100張寫有1100之間整數(shù)的卡片，主持人隨機(jī)抽取一張卡片，讓大家競(jìng)猜。有一種方案是：第一次猜50，若提示低了，則第二次猜75，若提示還是低了，則第三次猜87，依次類推；若第一次猜5

14、0，提示高了，則第二次猜25，若提示還是高了，則第三次猜12，依次類推；。這種每次縮小一半查找范圍而達(dá)到迅速確定目標(biāo)的算法稱為（）。A順序查找法B排序法C解析法D二分查找法25、在平面直角坐標(biāo)系中，設(shè)點(diǎn)A（x1,y1）、點(diǎn)B（x2，y2），則AB兩點(diǎn)之間的距離為：VB表達(dá)式是（）。A Sqr(x1-x22+(y1-y2)2)B Sqr(x1-x2)2+(y1-y2)2C Sqr(x1-x2)2+(y1-y2)2)D Sqr(x1-x2)2+(y1-y2)226、下列語(yǔ)句正確定義了一個(gè)單精度實(shí)型變量x的是（）。ADim x As SingleB其它三項(xiàng)都不對(duì)CDim x As IntegerDD

15、im x As String27、在VB中表示“x屬于區(qū)間a,b)”的正確表達(dá)式是（）。Aa=x And xbBa=x Or xbCax And xbD a=xb28、閱讀程序，寫出運(yùn)行結(jié)果 Dim s As Integer Dim i As Integer s=0 For i=1 To 10 Step 4Print “#”;s=s+i Next i Print s上述程序運(yùn)行后，輸出“#”的個(gè)數(shù)是_；輸出s的值是_。（共6分，每空3分）29、閱讀程序，寫出運(yùn)行結(jié)果 Dim a As Integer Dim b As Integer Dim r As Integera=98 b=63 r=a

16、Mod b Do While r 0 a=b b=r r=a Mod bLoop Print b程序運(yùn)行后，輸出結(jié)果為：_。（6分）30、算法設(shè)計(jì)與程序?qū)崿F(xiàn)拖動(dòng)滾動(dòng)條瀏覽全部試題內(nèi)容，點(diǎn)擊右側(cè)圖標(biāo)可切換輸入法換錢問(wèn)題要將一張100元的鈔票，換成等值的5元、2元、1元一張的鈔票共50張。其中一種換法如下：5元：3張2元：38張1元：9張求出所有的換錢方案?！舅惴ㄔO(shè)計(jì)】x表示5元的張數(shù)：1x20；y表示2元的張數(shù)：1y50；z表示1元的張數(shù)：1z100.【參考程序】Dim x AsIntegerDim y AsIntegerDim z As IntegerFor x=1 To20 For y=1T

17、o 50Forz=1 To 100If _ThenPrint x;y;zx y z 之間以分號(hào)分隔End If Nextz Next y Next x根據(jù)上述回答下列問(wèn)題：（8分，每空4分）1、本題采用的算法是 _（填：解析法/枚舉法/排序法/遞歸法）。2、程序代碼中空白處應(yīng)填寫的條件是 _（填寫字母：A/B/C/D）。A 5x + 2y + z=100Or x+ y + z = 50B 5x + 2y + z=100And x + y + z = 50C 5*x + 2*y + z=100 Or x + y + z = 50D 5*x + 2*y + z=100 And x + y + z

18、= 52018第五套(算法部分)23、在VB中，下列屬于字符串常量的是（）。 Acnt B3.14 C2018 D “Visual Basic”24、將數(shù)學(xué)表達(dá)式轉(zhuǎn)化為VB表達(dá)式，下列選項(xiàng)正確的是（）。25、以10下程序段運(yùn)行后，整型變量s的值是（）。 s=1 Fori=1 To 10 Step 3s=s*iNext iPrint s A 55 B 3640 C 28 D 28026、以下程序段運(yùn)行后，整型變量max1，min1的值分別是（）。 a=3 b=5max1=(a+b)/2+Abs(a-b)/2min1=(a+b)/2-Abs(a-b)/227、給定一個(gè)四位數(shù)的年份，判斷它是否為閏年：四年一閏、百年不閏；四百年又閏（年份能被4整除但不能被100整除是閏年，或者年份能被400整除也是閏年。例如2004年和2000年都是閏年，2100年不是閏年）。下列判斷年份。下列判斷年份y是閏年的表達(dá)式正確的是（）。 A yMod 4=0 Or y Mod 1000 And y Mod 400=0 B yMod 4=0 C yMod 4=0 And y Mod 100 0 Or y Mo