2023年12月山東高中信息技術學業(yè)水平考試算法部分五套_第1頁
2023年12月山東高中信息技術學業(yè)水平考試算法部分五套_第2頁
2023年12月山東高中信息技術學業(yè)水平考試算法部分五套_第3頁
2023年12月山東高中信息技術學業(yè)水平考試算法部分五套_第4頁
2023年12月山東高中信息技術學業(yè)水平考試算法部分五套_第5頁
已閱讀5頁,還剩7頁未讀 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權,請進行舉報或認領

文檔簡介

1、第一套23、以下選項中,關于算法的描述正確的是 。 A算法只能用自然語言描述 B算法必須在有限步驟內(nèi)實現(xiàn) C 算法就是一種高級程序設計語言 D算法可以有0個或多個輸入,但只能有一個輸出 24、以下選項中,能作為VB程序變量名的是 。 A while B 4A123 C a%c D dist25、以下程序段執(zhí)行后,輸出結果為 。 m=29 If m Mod 3 0 Then Print m & “不能被3整除 Else Print m & “能被3整除 End If A n能被3整除 B n不能被3整除C 29不能被3整除 D 29能被3整除26、以下VB表達式中,值為字符串類型的是 。 (1)

2、 Abs(x) (2) Text1.Text (3)123+45 (4) Sqr(x) (5) Labell.Caption A (1)(3)(5) B (2)(3)(5) C (2)(4)(5) D (1)(2)(3) 27、在VB中,以下哪個選項是正確的賦值語句? A 2023=xB 5s=80 C a+b=cD s=s+528、閱讀程序,寫出運行結果 Dim n As Integer n=Val(InputBox(“n=)Do While n Mod 2=0 n=n2 Loop Print n程序運行時,輸入24,輸出n的值是:_29、分析并完善程序以下是計算s=1+6+11+101的程

3、序代碼,請完善程序。 Dim s As IntegerDim i As Integer s=0 For i=1 To 101 Step_ s=_ Next i Print s30、算法設計與程序?qū)崿F(xiàn) 某市出租車收費標準如下: 13公里內(nèi)含3公里,收費8元; 2超過3公里但未超過6公里局部,按1.5元/公里收費; 3超過6公里局部,按2.25元/公里收費。 根據(jù)以上標準,輸入出租車行駛的公里數(shù),請計算顧客需付費多少元? 【參考代碼】 Dim s As Single Dim p As Single s=Val(InputBox(“s=) If s6 Then p=2.25*(s-6)+1.5*3+

4、8 End If Print p 根據(jù)上述答復以下問題:1、 此題采用的算法是_填寫:解析法/查找法/枚舉法/排序法。2、 程序代碼中空白處應填寫的條件是_填寫字母:A/B/C/D.A 33 And s3 Or sb And b3的值是。A 1B -1C FalseD True24、以下程序段運行后,x和st的值分別是。Dim x AsIntegerDim st AsString x=123+678 st=123+678A123678“123678B801“123678C123678“801D801“80125、用流程圖表示條件“AB是否成立,要用到以下哪個圖形?A 平行四邊形B 菱形C 圓角

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

6、Integer s=_ For i=1 To 10 s=_ Next i Print s30、算法設計與程序?qū)崿F(xiàn)勾股數(shù)求出100以內(nèi)滿足ab的所有勾股數(shù)?!緟⒖汲绦颉緿im a As IntegerDim b As IntegerDim c As IntegerFor a=1 To 100For b=1 To 100 For c=1 To 100If _ThenPrint a;b;c End If Next cNext bNext a1、此題采用的算法是_填寫:解析法/ 枚舉法/排序法/遞歸法。2、程序代碼中空白處應填寫的條件是_填寫字母:A/B/C/D.A ab And a2+b2=c2B

7、ab Or a2+b2=c2C ab And a2+b2=c2D ab Ora2+b2=c2第三套23、以下選項中,能作為VB程序變量名的是。A 、s+1B 、3stuC 、trueD 、 s124、以下哪個程序段的運行結果如圖1所示?*圖1A 、for i=1to5 For j=1to 6 Print * nextj print next iB 、for i=1to5 for i=1to 6 print * next i print next iC、for i=1 to5 For j=1to 6 Print * next j print next jD、 for i=1to5 For j=1

8、to 6 Print * next j print next i25、在VB中,Int(x)函數(shù)的功能是返回不大于x的最大整數(shù),設a=3,b=4,c=5,那么以下表達式的運算結果中值最大的是。A 、 Sqr(c)B、 Abs(a-b)C 、 Int(2*a-c/b)D 、a2+b2-c226、在VB中,用變量code存儲學生的借閱卡編碼code=N020230502,那么變量code的數(shù)據(jù)類型應定義為。A IntegerB DoubleC StringD Single27、Visual Basic程序設計語言屬于。A、匯編語言B、自然語言C、高級語言D、機器語言28、閱讀程序,寫出運行結果Di

9、m i As IntegerDim x As IntegerDim y As Integery=30For i=1 To 3 x=Val(InputBox(“x=) If y x Then y=x EndIfNext iPrint y程序運行后,依次輸入:36 87 51運行后輸出結果是_。6分29、算法設計與程序?qū)崿F(xiàn)拖動滾動條瀏覽全部試題內(nèi)容,點擊右側圖標可切換輸入法GDP增長問題某省2023年的GDP是6.7萬億元,如果每年按7%的比例增長,問多少年以后此省的GDP超過15萬億?【算法分析】假設n年后此省的GDP超過15萬億元,根據(jù)題意得出數(shù)學關系式?求最小的n?!緟⒖汲绦颉緿im pAs

10、 Singlep用于記錄GDP的值 Dimr As Singler用于記錄GDP的年增長比例 Dimn As Integern用于統(tǒng)計年數(shù) p=6.7r=0.07n=0Do While_p=p*(1+r)n=n+1LoopPrint n & 年后,GDP的值超過15萬億元。根據(jù)上述答復以下問題:共6分,每空3分1、此題采用的算法是_填寫:解析法/枚舉法/排序法/遞歸法。2、寫出程序中空白處表達式_。30、算法設計與程序?qū)崿F(xiàn)判斷車牌的單雙號【背景知識】為了保障空氣質(zhì)量,減少霧霾,某市決定當空氣污染嚴重時,實行汽車單雙號限行,違反規(guī)定的車輛將予以處分。如何讓高清攝像頭自動判斷車牌的單雙號,交警犯了

11、愁,他需要編程高手的你幫助,完善下面的程序。提示:1所有車牌號中都含有數(shù)字,并且車牌號的長度都是6;2以車牌中最后一位阿拉伯數(shù)字的奇、偶來決定單雙號。1輸入:AD23672輸入:A8888A(3)輸入:A8963C輸出:單號輸出:雙號輸出:單號【算法描述】自然語言流程圖第1步:輸入車牌號第2步:取車牌號的最后一位x;第3步:判斷x是否為數(shù)字,如果是,轉第4步;如果不是,那么依次取得倒數(shù)第二、三位判斷,知道找到數(shù)字為止;第4步:判斷x是奇數(shù)還是偶數(shù),然后輸出相應的結果。開始請根據(jù)上述算法描述補全代碼 Dim n As Integer Dim s As String定義s為字符串類型 Dim x

12、As String s=InputBox(“s=,s) 將輸入的車牌號賦值給s n=6 車牌號的長度為6 x=Mid(s,n,1) 取車牌號s的第n位 Do While x9 x不是數(shù)字字符,那么取x的前一位_x=Mid(s,n,1)取車牌號s的第n位 Loop If _then Print“雙號 Else Print“單號 End If(提示:Mid(s,m,n)的功能:從字符創(chuàng)S的第m位開始,截取長度為n的子串。例如:Mid(“A8963C,5,1)的返回值是“3。)請完善上述程序:共8分,每空4分1、根據(jù)題意,程序中空白處應填寫:_。2、根據(jù)題意,程序中空白處應填寫:_填寫字母:A/B/

13、C/D。A、Val(x) 2= 0B、Val(x)Mod 2 = 1C、Val(x) Mod 2=0D、Val(x) Mod 2 0第四套23、一下程序段運行后,y的值是。 x=3 If x3Then y=2*x Else y=3*x+1end ifA 25B 26C 10D 524、某晚會的猜數(shù)字游戲中,有100張寫有1100之間整數(shù)的卡片,主持人隨機抽取一張卡片,讓大家競猜。有一種方案是:第一次猜50,假設提示低了,那么第二次猜75,假設提示還是低了,那么第三次猜87,依次類推;假設第一次猜50,提示高了,那么第二次猜25,假設提示還是高了,那么第三次猜12,依次類推;。這種每次縮小一半查

14、找范圍而到達迅速確定目標的算法稱為。A順序查找法 B排序法 C解析法 D二分查找法25、在平面直角坐標系中,設點Ax1,y1、點Bx2,y2,那么AB兩點之間的距離為:VB表達式是。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、以下語句正確定義了一個單精度實型變量x的是。ADim x As SingleB其它三項都不對 CDim x As IntegerDDim x As String27、在VB中表示“x屬于區(qū)間a,b)的正確表達式是。Aa=x And x

15、bBa=x Or xbCax And xb D a=xb28、閱讀程序,寫出運行結果Dim s As Integer Dim i As Integers=0 For i=1 To 10 Step 4Print “#;s=s+i Next i Print s上述程序運行后,輸出“#的個數(shù)是_;輸出s的值是_。共6分,每空3分29、閱讀程序,寫出運行結果Dim a As Integer Dim b As Integer Dim r As Integera=98 b=63 r=a Mod b Do While r 0 a=b b=r r=a Mod bLoopPrint b程序運行后,輸出結果為:_

16、。6分30、算法設計與程序?qū)崿F(xiàn)拖動滾動條瀏覽全部試題內(nèi)容,點擊右側圖標可切換輸入法換錢問題要將一張100元的鈔票,換成等值的5元、2元、1元一張的鈔票共50張。其中一種換法如下:5元:3張 2元:38張 1元:9張求出所有的換錢方案。【算法設計】 x表示5元的張數(shù):1x20; y表示2元的張數(shù):1y50; z表示1元的張數(shù):1z100.【參考程序】 Dim x AsInteger Dim y AsIntegerDim z As Integer For x=1 To20 For y=1To 50 Forz=1 To 100If _ThenPrint x;y;zx y z 之間以分號分隔End I

17、f Nextz Next y Next x根據(jù)上述答復以下問題:8分,每空4分1、此題采用的算法是 _填:解析法/枚舉法/排序法/遞歸法。2、程序代碼中空白處應填寫的條件是 _填寫字母:A/B/C/D。A 5x + 2y + z=100 Or x+ y + z = 50B 5x + 2y + z=100 And 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 = 5第五套23、在VB中,以下屬于字符串常量的是。 Acnt B3.14 C 2023 D “Visual Bas

18、ic24、將數(shù)學表達式轉化為VB表達式,以下選項正確的是。25、以10下程序段運行后,整型變量s的值是。 s=1 Fori=1 To 10 Step 3s=s*iNext iPrint s A 55 B 3640 C 28 D 28026、以下程序段運行后,整型變量max1,min1的值分別是。 a=3 b=5max1=(a+b)/2+Abs(a-b)/2min1=(a+b)/2-Abs(a-b)/227、給定一個四位數(shù)的年份,判斷它是否為閏年:四年一閏、百年不閏;四百年又閏年份能被4整除但不能被100整除是閏年,或者年份能被400整除也是閏年。例如2004年和2000年都是閏年,2100年不是閏年。以下判斷年份。以下判斷年份y是閏年的表達式正確的是。 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 Mod 400=0 D yM

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
  • 6. 下載文件中如有侵權或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論