資源簡介 登錄二一教育在線組卷平臺 助您教考全無憂浙江省寧波市九校2020-2021學年高二下學期信息技術期末聯考試卷一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項中只有一個符合題目要求,不選、多選、錯選均不得分)1.(2021高二下·寧波期末)關于信息與信息技術,下列說法錯誤的是( )A.信息是指對消息接受者來說預先不知道的東西,具有“不確定性”B.經過加工處理后,信息的使用價值一定會更高C.計算機的基本功能是計算,信息加工處理本質上都是通過計算完成的D.現代通信技術是指用現代科學技術手段來實現信息傳遞的一門技術學科2.(2021高二下·寧波期末)以下實際生活場景中,涉及到人工智能技術的是( )①疫情期間,進入公共場合通過“人臉識別登錄驗證”申領健康碼②通過手機APP遠程打開家里的空調③撥打某客服電話,與語音助手溝通解決售后問題④駕駛搭載自動駕駛技術的汽車⑤利用掃描儀掃描文稿并自動通過Email進行發送A.①③④ B.①②④ C.①③⑤ D.③④⑤3.(2021高二下·寧波期末)利用 Access 軟件設計新冠疫苗接種管理系統的數據庫,其中已建好的“疫苗入庫出庫”數據表用于存儲如圖所示的數據。序號 疫苗編號 疫苗名稱 生產廠商 入庫/出庫 數量R001 MH098734 滅活疫苗 國藥武漢生物 入庫 5000R002 MH076321 滅活疫苗 北京科興 入庫 15000C001 MH098734 滅活疫苗 北京科興 出庫 6800R003 CZ0102568 重組新冠病毒疫苗 康希諾 入庫 10000… … … … … …下列關于“疫苗入庫出庫”數據表的描述,錯誤的是( )A.圖中“入庫/出庫”列數據在數據表中可以設置為“是/否”類型B.該數據表的字段名稱可以與上表中的列名不同C.可以將“序號”列所對應的字段設置為主鍵D.創建好的數據表中可以在第一條記錄之前插入一條新記錄4.(2021高二下·寧波期末)用UltraEdit 軟件查看字符內碼,部分界面如圖所示,下列說法正確是 ( )A.圖中字符內碼共占10BB.字符“J”的內碼用二進制表示為 01001010BC.字符“2”的內碼用十六進制表示為20HD.圖中所有字符內碼值的十進制表示均小于1285.(2021高二下·寧波期末)使用Photoshop軟件制作“立夏”作品,部分界面如圖所示。下列操作可行的是( )A.對“背景”圖層設置不透明度B.將“荷花”圖層的圖層樣式拷貝粘貼至“外框”圖層C.利用“自由變換”功能改變“傳統節氣”圖層中“傳”字的大小D.將“外框”圖層設置為不可見6.(2021高二下·寧波期末)使用 GoldWave軟件編輯某音頻文件,選擇其中一段音頻后的部分界面如圖所示。下列說法正確的是( )A.當前音頻的采樣頻率 44100kHzB.執行“靜音”操作后保存,音頻文件的存儲容量不變C.執行“刪除”操作,右聲道最后將出現30秒靜音D.執行“剪裁”操作,左聲道時長將變為30秒7.(2021高二下·寧波期末)設變量 a=2,b=3,c=4,d=5,則表達式 a + b > c - d Or Not a Mod d \ (c - a) <> 0 And b ^ 2 > c * d 的值為( )A.True B.False C.-1 D.18.(2021高二下·寧波期末)某算法的部分流程圖如圖所示,執行這部分流程,下列說法正確的是( )A.其中語句i<=5共執行了6次B.程序結束后s值可能為3C.流程執行結束后k值一定為1D.流程執行過程中共產生5個t值,t值取值為1或29.(2021高二下·寧波期末)有如下VB程序段:s=Text1.Textans=0Text2.Text=Str(ans)若在Text1中輸入110,則Text2中輸出內容是6,劃線處代碼不正確是( )A.For i = 1 To Len(s)t = Val(Mid(s, i, 1)) ans = ans * 2 + tNext iB.For i = 1 To Len(s)t = Val(Mid(s, i, 1))ans = ans + t * 2 ^ (Len(s) - i)Next iC.i = Len(s)Do While i > 0t = Val(Mid(s, Len(s) - i + 1, 1)) ans = ans + t * 2 ^ (i - 1)i = i - 1 LoopD.i = Len(s)Do While i >= 1If Val(Mid(s, i, 1)) = 0 Thenans = ans * 2 Elseans = ans * 2 + 1End Ifi = i - 1Loop10.(2021高二下·寧波期末)有如下 VB 程序段:Dim s As String, t As String, res As String Dim i As Integer, k As Integers = "jpqzaabdcfb"i = 1: k = 1: res = "" t = Mid(s, 1, 1)Do While i < Len(s)If Mid(s, i + 1, 1) >= Mid(s, i, 1) Thenk = k + 1Elseres = res + CStr(k) + tk = 1t = Mid(s, i + 1, 1)End Ifi = i + 1LoopLabel1.Caption = res執行該段程序段后,Label1中輸出的值為 ( )A.4j1a3a2c1b B.4j4a2c1b C.4j4a2c D.4j1a3a2c11.(2021高二下·寧波期末)有如下 VB 程序段:Const n = 7Dim a(1 To 7) As IntegerDim flag(1 To 7) As Integer 'flag 數組初始值均為 0 Dim k As Integer, t As Integera(1) = 18: a(2) = 34: a(3) = 56: a(4) = 23: a(5) = 29: a(6) = 39: a(7) = 72 k = (1 + 7) / 2For i = 1 To nFor j = 1 To nIf a(j) > a(k) And flag(j) = 0 Then t = a(j): a(j) = a(k): a(k) = tNext jflag(k) = 1k = (k + 5) Mod 7 + 1Next i執行該段程序后,數組元素a(1)到a(7)的值為( )A.29,23,18,72,56,39,34 B.39,56,72,18,23,29,34C.34,39,56,72,18,23,29 D.34,29,23,18,72,56,3912.(2021高二下·寧波期末)某查找算法 VB程序段如下:ans = 0: L = 0: R = 7key = 2 ^ (Int(Rnd * 5))Do While L <= Rm = (L + R + 1) \ 2If a(m) > key ThenL = m + 1ans = ans + 1ElseR = m - 1ans = ans - 1End IfLoop數組 a(0)到 a(7)的值依次為16,16,8,8,4,2,2,1,該程序運行后,ans 的值不可能的是( )A.0 B.-4 C.1 D.-1二、非選擇題(本大題共4小題,4+8+7+7,共26分)13.(2021高二下·寧波期末)第七次人口普查后,小余為了解近十年來浙江省各市人口增長情況,從浙江省統計局收集了相關數據,并使用Excel軟件對數據進行處理,如圖a所示。圖 a請回答下列問題:(1)如圖a所示,區域G4:G14的數據是通過排名函數RANK計算得到,在G4中輸入公式 ,再利用自動填充完成 G5:G14 的計算。(2)對A4:G15中的數據進行兩次篩選操作,首先對“十年增量”列進行篩選,篩選條件如圖b所示;再對“城市”列篩選,篩選條件如圖c所示,則篩選出的行數為 。圖 b圖 c(3)對圖a中浙江省各地市數據按“十年增幅”為關鍵字進行降序排序,則排序的數據區域是 。(4)根據圖a中數據制作了反應各地區人口情況的圖表,如圖d所示,創建圖表的數據區域是 。圖 d14.(2021高二下·寧波期末)小余使用Flash軟件創作了主題為“二胡”的多媒體作品,如圖所示。請回答下列問題:(1)在該作品制作過程中,要了解作品的主題思想,作品內容,可查閱 (單選,填字母:A .應用需求分析報告/ B .創作需求分析報告/ C .媒體元素分解表/ D .系統結構設計報告)(2)圖中“月亮”圖層第10幀到第30幀實現了“月亮”實例由完全透明到完全顯示的動畫效果,則動畫類型為 。(單選,填字母:A .逐幀動畫/ B .形狀補間/ C .動畫補間)(3)“聲音”圖層中添加的音頻素材總時長為10s,最后一幀上添加了動作腳本“stop( );”。測試影片時,音頻在5秒后停止播放,則音頻的同步屬性為 (選填:事件/ 開始/ 數據流)。若在“聲音”圖層第37幀“插入關鍵幀”則音頻播放時長為 秒。(4)關于Flash動畫制作,下列說法不正確的是 (多選,填字母)A.Flash是以幀為基礎的多媒體創作工具B.將“二胡簡介”圖層補間動畫的緩動值由0改為75,則補間動畫速度先慢后快C.對“按鈕”圖層第一幀執行“清除關鍵幀”,按鈕將從第一幀開始出現D.在動畫停止播放后,“人物”圖層中仍然有拉二胡的動畫效果,則該圖層中有影片剪輯類型的實例。E.將該Flash文檔發布成exe文件,將不再具有交互性。(5)測試影片時,單擊“返回”按鈕將關閉播放窗口,則按鈕上的動作腳本為 。15.(2021高二下·寧波期末)一個含有n個元素的整數數組,如果數組兩個連續元素之間差的絕對值包括了[1,n-1]之間的所有整數,則稱之為一組“完美跳數”。小余制作了驗證完美跳數的VB程序,功能如下:在文本框Text1中輸入一組以逗號分隔且以逗號結尾的整數數組,單擊“驗證”按鈕Command1,在標簽Label1中顯示驗證結果,運行界面如圖所示。Private Sub Command1_Click()Dim n As Integer, i As Integer, j As IntegerDim a(1 To 100) As Integer, b(1 To 100) As Integer Dim s As String, chr As String, temp As Strings = Text1.Texti = 1: n = 0Do While i <= Len(s)ch = Mid(s, i, 1)If ch >= "0" And ch <= "9" Thentemp = temp + chElsen = n + 1①temp = ""End Ifi = i + 1LoopFor i = 2 To n②Next iFor i = 1 To n - 2For j =If b(j) < b(j - 1) Thent = b(j): b(j) = b(j - 1): b(j - 1) = tEnd IfNext jNext iFor i = 1 To n - 1If b(i) <> i Then Exit ForNext iIf i = n Then Label1.Caption = "完美跳數" Else Label1.Caption = "非完美跳數"End Sub(1)觀察程序界面,具有Caption屬性的對象有 個。(填個數)(2)請在上述程序的劃線處填上合適的代碼。① ② (3)上述程序加框處代碼有誤,請改正。16.(2021高二下·寧波期末)現有如下問題,在一個6×6的跳棋棋盤上放置6個棋子,使得每行、每列,每條斜線上至多有一個棋子,請問有幾種不同的擺法。為了方便處理,可將棋盤模擬成6*6的正方形矩陣,如第1圖a所示。該矩陣中從左往右列號依次1,2,3,4,5,6,從上往下行號依次為1,2,3,4,5,6。若在位置(1,2)(指第一行第二列)中放置了一個旗子,則第一行,第二列以及該位置所在的左斜線與右斜線均無法放置其他棋子。圖a解決該問題的算法思想如下:①從第一行開始逐行放置棋子。②每行從左到右逐列嘗試放置棋子,放置之前與已放置的棋子作比對。③若無沖突,放置該行棋子并跳轉至下一行。④若有沖突,則在本行中向右繼續尋找放置棋子的位置,若找不到則返回上一行,重新尋找棋子放置位置。⑤最后一行放置結束,輸出一種方案并繼續尋找下一方案。用 VB程序實現該算法,程序界面設計如圖b所示。圖b(1)若第一行的棋子放置在第三列,則第二行不能放置棋子的列的數量為 。(填個數)(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。Const n = 6Dim a(1 To n) As IntegerDim m As IntegerPrivate Sub Command1_Click( )Dim i As Integer, j As Integer m = 0For i = 1 To na(i) = 0 'a(i)存儲第 i 行放置棋子的列號Next iFor i = 1 To n + 1If i = n+ 1 Then '所有行棋子放置完畢,輸出一種方案m =m + 1s =""For j = 1 To ns= s + Str(j) + ":" + Str(a(j)) + "|"NextjList1.AddItem si =i - 2Else '尋找下一行棋子放置位置j =a(i) + 1DoWhile j <= n And check(i, j) = False LoopIf j<= n Thena(i) = jElsea(i) = 0 If i < 0 Then Exit ForEndIfEnd IfNext iLabel1.Caption = "共有" + Str(m) + "種方案"End Sub'判斷當前放置的棋子與已放置有無沖突Function check(i As Integer,j As Integer) As Boolean check = TrueFor k = 1 To i - 1If a(k) = j Or j + i = a(k) + k Or Thencheck = FalseEnd If Next kEnd Function答案解析部分1.【答案】B【知識點】信息及其特征;信息技術的概念與關鍵技術;計算機的功能與特征2.【答案】A【知識點】人工智能的應用3.【答案】D【知識點】數據表、字段、記錄的編輯4.【答案】B【知識點】進制及數制轉換;字符編碼5.【答案】D【知識點】圖片加工常用工具的使用;圖層及圖層的基本操作6.【答案】B【知識點】聲音素材的基本處理7.【答案】A【知識點】運算符、基本運算與表達式8.【答案】D【知識點】流程圖識讀9.【答案】B【知識點】循環結構語句及程序實現;常用標準函數10.【答案】C【知識點】分支結構語句及程序實現;循環結構語句及程序實現11.【答案】C【知識點】常見數據類型、數組;排序算法及程序實現12.【答案】A【知識點】查找算法及程序實現;常用標準函數13.【答案】(1)=RANK(F4,$F$4:$F$14)(2)1(3)A4:G14 或A4:F14(4)B4:D14【知識點】表格數據的處理與計算14.【答案】(1)B(2)C(3)數據流;3(4)A;B;E(5)on(press){fscommand("quit");}或on(release){fscommand("quit");}【知識點】多媒體作品的規劃和設計;動畫的類型;時間軸、幀、圖層、庫的概念及基本操作;常用影片控制函數的應用;聲音同步屬性設置15.【答案】(1)3(2)a(n)=Val(temp);b(i-1)=Abs(a(i)-a(i-1))或b(i-1)=Abs(a(i-1)-a(i))(3)n-1 To i+1 Step -1 或2 To n-i【知識點】分支結構語句及程序實現;循環結構語句及程序實現16.【答案】(1)3(2)j=j+1;i= i-2;j- i= a(k)-k 或i-j=k-a(k)或其他等效答【知識點】過程與自定義函數;分支結構語句及程序實現;循環結構語句及程序實現二一教育在線組卷平臺(zujuan.21cnjy.com)自動生成 1 / 1登錄二一教育在線組卷平臺 助您教考全無憂浙江省寧波市九校2020-2021學年高二下學期信息技術期末聯考試卷一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項中只有一個符合題目要求,不選、多選、錯選均不得分)1.(2021高二下·寧波期末)關于信息與信息技術,下列說法錯誤的是( )A.信息是指對消息接受者來說預先不知道的東西,具有“不確定性”B.經過加工處理后,信息的使用價值一定會更高C.計算機的基本功能是計算,信息加工處理本質上都是通過計算完成的D.現代通信技術是指用現代科學技術手段來實現信息傳遞的一門技術學科【答案】B【知識點】信息及其特征;信息技術的概念與關鍵技術;計算機的功能與特征2.(2021高二下·寧波期末)以下實際生活場景中,涉及到人工智能技術的是( )①疫情期間,進入公共場合通過“人臉識別登錄驗證”申領健康碼②通過手機APP遠程打開家里的空調③撥打某客服電話,與語音助手溝通解決售后問題④駕駛搭載自動駕駛技術的汽車⑤利用掃描儀掃描文稿并自動通過Email進行發送A.①③④ B.①②④ C.①③⑤ D.③④⑤【答案】A【知識點】人工智能的應用3.(2021高二下·寧波期末)利用 Access 軟件設計新冠疫苗接種管理系統的數據庫,其中已建好的“疫苗入庫出庫”數據表用于存儲如圖所示的數據。序號 疫苗編號 疫苗名稱 生產廠商 入庫/出庫 數量R001 MH098734 滅活疫苗 國藥武漢生物 入庫 5000R002 MH076321 滅活疫苗 北京科興 入庫 15000C001 MH098734 滅活疫苗 北京科興 出庫 6800R003 CZ0102568 重組新冠病毒疫苗 康希諾 入庫 10000… … … … … …下列關于“疫苗入庫出庫”數據表的描述,錯誤的是( )A.圖中“入庫/出庫”列數據在數據表中可以設置為“是/否”類型B.該數據表的字段名稱可以與上表中的列名不同C.可以將“序號”列所對應的字段設置為主鍵D.創建好的數據表中可以在第一條記錄之前插入一條新記錄【答案】D【知識點】數據表、字段、記錄的編輯4.(2021高二下·寧波期末)用UltraEdit 軟件查看字符內碼,部分界面如圖所示,下列說法正確是 ( )A.圖中字符內碼共占10BB.字符“J”的內碼用二進制表示為 01001010BC.字符“2”的內碼用十六進制表示為20HD.圖中所有字符內碼值的十進制表示均小于128【答案】B【知識點】進制及數制轉換;字符編碼5.(2021高二下·寧波期末)使用Photoshop軟件制作“立夏”作品,部分界面如圖所示。下列操作可行的是( )A.對“背景”圖層設置不透明度B.將“荷花”圖層的圖層樣式拷貝粘貼至“外框”圖層C.利用“自由變換”功能改變“傳統節氣”圖層中“傳”字的大小D.將“外框”圖層設置為不可見【答案】D【知識點】圖片加工常用工具的使用;圖層及圖層的基本操作6.(2021高二下·寧波期末)使用 GoldWave軟件編輯某音頻文件,選擇其中一段音頻后的部分界面如圖所示。下列說法正確的是( )A.當前音頻的采樣頻率 44100kHzB.執行“靜音”操作后保存,音頻文件的存儲容量不變C.執行“刪除”操作,右聲道最后將出現30秒靜音D.執行“剪裁”操作,左聲道時長將變為30秒【答案】B【知識點】聲音素材的基本處理7.(2021高二下·寧波期末)設變量 a=2,b=3,c=4,d=5,則表達式 a + b > c - d Or Not a Mod d \ (c - a) <> 0 And b ^ 2 > c * d 的值為( )A.True B.False C.-1 D.1【答案】A【知識點】運算符、基本運算與表達式8.(2021高二下·寧波期末)某算法的部分流程圖如圖所示,執行這部分流程,下列說法正確的是( )A.其中語句i<=5共執行了6次B.程序結束后s值可能為3C.流程執行結束后k值一定為1D.流程執行過程中共產生5個t值,t值取值為1或2【答案】D【知識點】流程圖識讀9.(2021高二下·寧波期末)有如下VB程序段:s=Text1.Textans=0Text2.Text=Str(ans)若在Text1中輸入110,則Text2中輸出內容是6,劃線處代碼不正確是( )A.For i = 1 To Len(s)t = Val(Mid(s, i, 1)) ans = ans * 2 + tNext iB.For i = 1 To Len(s)t = Val(Mid(s, i, 1))ans = ans + t * 2 ^ (Len(s) - i)Next iC.i = Len(s)Do While i > 0t = Val(Mid(s, Len(s) - i + 1, 1)) ans = ans + t * 2 ^ (i - 1)i = i - 1 LoopD.i = Len(s)Do While i >= 1If Val(Mid(s, i, 1)) = 0 Thenans = ans * 2 Elseans = ans * 2 + 1End Ifi = i - 1Loop【答案】B【知識點】循環結構語句及程序實現;常用標準函數10.(2021高二下·寧波期末)有如下 VB 程序段:Dim s As String, t As String, res As String Dim i As Integer, k As Integers = "jpqzaabdcfb"i = 1: k = 1: res = "" t = Mid(s, 1, 1)Do While i < Len(s)If Mid(s, i + 1, 1) >= Mid(s, i, 1) Thenk = k + 1Elseres = res + CStr(k) + tk = 1t = Mid(s, i + 1, 1)End Ifi = i + 1LoopLabel1.Caption = res執行該段程序段后,Label1中輸出的值為 ( )A.4j1a3a2c1b B.4j4a2c1b C.4j4a2c D.4j1a3a2c【答案】C【知識點】分支結構語句及程序實現;循環結構語句及程序實現11.(2021高二下·寧波期末)有如下 VB 程序段:Const n = 7Dim a(1 To 7) As IntegerDim flag(1 To 7) As Integer 'flag 數組初始值均為 0 Dim k As Integer, t As Integera(1) = 18: a(2) = 34: a(3) = 56: a(4) = 23: a(5) = 29: a(6) = 39: a(7) = 72 k = (1 + 7) / 2For i = 1 To nFor j = 1 To nIf a(j) > a(k) And flag(j) = 0 Then t = a(j): a(j) = a(k): a(k) = tNext jflag(k) = 1k = (k + 5) Mod 7 + 1Next i執行該段程序后,數組元素a(1)到a(7)的值為( )A.29,23,18,72,56,39,34 B.39,56,72,18,23,29,34C.34,39,56,72,18,23,29 D.34,29,23,18,72,56,39【答案】C【知識點】常見數據類型、數組;排序算法及程序實現12.(2021高二下·寧波期末)某查找算法 VB程序段如下:ans = 0: L = 0: R = 7key = 2 ^ (Int(Rnd * 5))Do While L <= Rm = (L + R + 1) \ 2If a(m) > key ThenL = m + 1ans = ans + 1ElseR = m - 1ans = ans - 1End IfLoop數組 a(0)到 a(7)的值依次為16,16,8,8,4,2,2,1,該程序運行后,ans 的值不可能的是( )A.0 B.-4 C.1 D.-1【答案】A【知識點】查找算法及程序實現;常用標準函數二、非選擇題(本大題共4小題,4+8+7+7,共26分)13.(2021高二下·寧波期末)第七次人口普查后,小余為了解近十年來浙江省各市人口增長情況,從浙江省統計局收集了相關數據,并使用Excel軟件對數據進行處理,如圖a所示。圖 a請回答下列問題:(1)如圖a所示,區域G4:G14的數據是通過排名函數RANK計算得到,在G4中輸入公式 ,再利用自動填充完成 G5:G14 的計算。(2)對A4:G15中的數據進行兩次篩選操作,首先對“十年增量”列進行篩選,篩選條件如圖b所示;再對“城市”列篩選,篩選條件如圖c所示,則篩選出的行數為 。圖 b圖 c(3)對圖a中浙江省各地市數據按“十年增幅”為關鍵字進行降序排序,則排序的數據區域是 。(4)根據圖a中數據制作了反應各地區人口情況的圖表,如圖d所示,創建圖表的數據區域是 。圖 d【答案】(1)=RANK(F4,$F$4:$F$14)(2)1(3)A4:G14 或A4:F14(4)B4:D14【知識點】表格數據的處理與計算14.(2021高二下·寧波期末)小余使用Flash軟件創作了主題為“二胡”的多媒體作品,如圖所示。請回答下列問題:(1)在該作品制作過程中,要了解作品的主題思想,作品內容,可查閱 (單選,填字母:A .應用需求分析報告/ B .創作需求分析報告/ C .媒體元素分解表/ D .系統結構設計報告)(2)圖中“月亮”圖層第10幀到第30幀實現了“月亮”實例由完全透明到完全顯示的動畫效果,則動畫類型為 。(單選,填字母:A .逐幀動畫/ B .形狀補間/ C .動畫補間)(3)“聲音”圖層中添加的音頻素材總時長為10s,最后一幀上添加了動作腳本“stop( );”。測試影片時,音頻在5秒后停止播放,則音頻的同步屬性為 (選填:事件/ 開始/ 數據流)。若在“聲音”圖層第37幀“插入關鍵幀”則音頻播放時長為 秒。(4)關于Flash動畫制作,下列說法不正確的是 (多選,填字母)A.Flash是以幀為基礎的多媒體創作工具B.將“二胡簡介”圖層補間動畫的緩動值由0改為75,則補間動畫速度先慢后快C.對“按鈕”圖層第一幀執行“清除關鍵幀”,按鈕將從第一幀開始出現D.在動畫停止播放后,“人物”圖層中仍然有拉二胡的動畫效果,則該圖層中有影片剪輯類型的實例。E.將該Flash文檔發布成exe文件,將不再具有交互性。(5)測試影片時,單擊“返回”按鈕將關閉播放窗口,則按鈕上的動作腳本為 。【答案】(1)B(2)C(3)數據流;3(4)A;B;E(5)on(press){fscommand("quit");}或on(release){fscommand("quit");}【知識點】多媒體作品的規劃和設計;動畫的類型;時間軸、幀、圖層、庫的概念及基本操作;常用影片控制函數的應用;聲音同步屬性設置15.(2021高二下·寧波期末)一個含有n個元素的整數數組,如果數組兩個連續元素之間差的絕對值包括了[1,n-1]之間的所有整數,則稱之為一組“完美跳數”。小余制作了驗證完美跳數的VB程序,功能如下:在文本框Text1中輸入一組以逗號分隔且以逗號結尾的整數數組,單擊“驗證”按鈕Command1,在標簽Label1中顯示驗證結果,運行界面如圖所示。Private Sub Command1_Click()Dim n As Integer, i As Integer, j As IntegerDim a(1 To 100) As Integer, b(1 To 100) As Integer Dim s As String, chr As String, temp As Strings = Text1.Texti = 1: n = 0Do While i <= Len(s)ch = Mid(s, i, 1)If ch >= "0" And ch <= "9" Thentemp = temp + chElsen = n + 1①temp = ""End Ifi = i + 1LoopFor i = 2 To n②Next iFor i = 1 To n - 2For j =If b(j) < b(j - 1) Thent = b(j): b(j) = b(j - 1): b(j - 1) = tEnd IfNext jNext iFor i = 1 To n - 1If b(i) <> i Then Exit ForNext iIf i = n Then Label1.Caption = "完美跳數" Else Label1.Caption = "非完美跳數"End Sub(1)觀察程序界面,具有Caption屬性的對象有 個。(填個數)(2)請在上述程序的劃線處填上合適的代碼。① ② (3)上述程序加框處代碼有誤,請改正。【答案】(1)3(2)a(n)=Val(temp);b(i-1)=Abs(a(i)-a(i-1))或b(i-1)=Abs(a(i-1)-a(i))(3)n-1 To i+1 Step -1 或2 To n-i【知識點】分支結構語句及程序實現;循環結構語句及程序實現16.(2021高二下·寧波期末)現有如下問題,在一個6×6的跳棋棋盤上放置6個棋子,使得每行、每列,每條斜線上至多有一個棋子,請問有幾種不同的擺法。為了方便處理,可將棋盤模擬成6*6的正方形矩陣,如第1圖a所示。該矩陣中從左往右列號依次1,2,3,4,5,6,從上往下行號依次為1,2,3,4,5,6。若在位置(1,2)(指第一行第二列)中放置了一個旗子,則第一行,第二列以及該位置所在的左斜線與右斜線均無法放置其他棋子。圖a解決該問題的算法思想如下:①從第一行開始逐行放置棋子。②每行從左到右逐列嘗試放置棋子,放置之前與已放置的棋子作比對。③若無沖突,放置該行棋子并跳轉至下一行。④若有沖突,則在本行中向右繼續尋找放置棋子的位置,若找不到則返回上一行,重新尋找棋子放置位置。⑤最后一行放置結束,輸出一種方案并繼續尋找下一方案。用 VB程序實現該算法,程序界面設計如圖b所示。圖b(1)若第一行的棋子放置在第三列,則第二行不能放置棋子的列的數量為 。(填個數)(2)實現上述功能的VB程序如下,請在劃線處填入合適的代碼。Const n = 6Dim a(1 To n) As IntegerDim m As IntegerPrivate Sub Command1_Click( )Dim i As Integer, j As Integer m = 0For i = 1 To na(i) = 0 'a(i)存儲第 i 行放置棋子的列號Next iFor i = 1 To n + 1If i = n+ 1 Then '所有行棋子放置完畢,輸出一種方案m =m + 1s =""For j = 1 To ns= s + Str(j) + ":" + Str(a(j)) + "|"NextjList1.AddItem si =i - 2Else '尋找下一行棋子放置位置j =a(i) + 1DoWhile j <= n And check(i, j) = False LoopIf j<= n Thena(i) = jElsea(i) = 0 If i < 0 Then Exit ForEndIfEnd IfNext iLabel1.Caption = "共有" + Str(m) + "種方案"End Sub'判斷當前放置的棋子與已放置有無沖突Function check(i As Integer,j As Integer) As Boolean check = TrueFor k = 1 To i - 1If a(k) = j Or j + i = a(k) + k Or Thencheck = FalseEnd If Next kEnd Function【答案】(1)3(2)j=j+1;i= i-2;j- i= a(k)-k 或i-j=k-a(k)或其他等效答【知識點】過程與自定義函數;分支結構語句及程序實現;循環結構語句及程序實現二一教育在線組卷平臺(zujuan.21cnjy.com)自動生成 1 / 1 展開更多...... 收起↑ 資源列表 浙江省寧波市九校2020-2021學年高二下學期信息技術期末聯考試卷(學生版).docx 浙江省寧波市九校2020-2021學年高二下學期信息技術期末聯考試卷(教師版).docx 縮略圖、資源來源于二一教育資源庫