試卷征集
          加入會員
          操作視頻
          當前位置: 試卷中心 > 試卷詳情

          2019-2020學年浙江省湖州中學高三(下)月考信息技術試卷(3月份)

          發布:2024/4/20 14:35:0

          一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項中只有一個是符合題目要求的,不選、錯選、多選均不得分。)

          • 1.下列關于信息的說法,不正確的是(  )

            組卷:2引用:1難度:0.6
          • 2.下列關于網頁與電子郵件的說法,正確的是(  )

            組卷:2引用:1難度:0.6
          • 3.下列應用中,體現了人工智能技術的有(  )
            ①在線中英文互譯
            ②使用人臉識別功能進入手機系統
            ③電子郵件自動回復功能
            ④使用在線二維碼生成器制作二維碼
            ⑤無人汽車駕駛技術

            組卷:8引用:1難度:0.5
          • 4.使用Access軟件打開某數據庫中的數據表“圖書借閱表”,部分界面如圖所示。下列說法正確的是(  )

            組卷:0引用:1難度:0.7
          • 5.使用UltraEdit軟件觀察字符的內碼,界面如圖所示。下列說法正確的是(  )

            組卷:2引用:1難度:0.6

          二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)

          • 15.數組a中隨機產生n個1到10之間的隨機數,并已按升序排列,依據對分查找思想,設計一個在數組a中查找數據key的起始、結束位置的程序,運行界面如圖所示。
            實現上述功能的VB代碼如下。
            Constn=100
            Dima(1Ton+1)AsInteger'產生n個隨機數,存儲在數組a中,并已按升序排序,代碼略
            PrivateSubCommand1_Click (  )
            DimkeyAsInteger,iAsInteger,jAsInteger
            DimmAsInteger,kAsInteger
            key=Val(Text1.Text)
            i=1:j=n
            DoWhilei<=j
            m=(i+j)\2
            If
             
            Then'改錯
            j=m-1
            Else
            i=m+1
            EndIf
            Loop
            Ifa(i)=keyThen'找重復數的結束位置
            Fork=i+1Ton
            Ifa(k)<>keyThen
            ExitFor'退出For循環
            EndIf
            Nextk
            List2.AddItem“a(”+Str(i)+“)--a(”+
             
            +“)”'填空
            Else
            List2.AddItem“未找到”
            EndIf
            EndSub
            (1)代碼“List1.AddItem”中的AddItem是
             
            (單選,填字母:A.對象名/B.屬性名/C.事件名/D.方法名)。
            (2)程序代碼中,加框處語句有錯,請改正。
            (3)請將橫線處代碼補充完整。
            (4)若查找的key值為3,則程序結束時,變量k的值為
             

            組卷:0引用:1難度:0.3
          • 16.桶排序優化。桶排序的思想是根據數組中各元素的值,依次放入相應編號的桶中,最后按順序輸出桶中數據,即可完成排序。例如:數據10、15、8、9、3,桶中的順序如下表:
            桶編號 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
            數據 3 8 9 10 15
            但是,當數據范圍很大時,需要的桶則非常多,會造成很大的資源浪費。為了解決該問題,小張對桶排序進行了優化,算法思想如下:
            ①先依據數組中元素的個位進行桶排序;
            ②再依據數組中元素的十位進行桶排序;
            ……
            直到排序完成。
            例如:有數組a中各元素分別為53,3,542,748,17,214,154,63,616,第一趟按個位排序過程如下:
            ①個位填入相應桶編號中,并統計每個桶中數據個數。
            桶編號 0 1 2 3 4 5 6 7 8 9
            數據 542 53 214 616 17 748
            3 154
            63
            個數 0 0 1 3 2 0 1 1 1 0
            索引 0 0 1 4 6 6 7 8 9 9
            ②計算索引。計算方法是從前往后,依次計算當前桶中元素個數與前一項之和。
            ③按索引從桶中倒序取出數據,每取一個索引減1.重新排列后為542,53,3,63,214,154,616,17,748。
            接下來對重新排序后的數據以十位、百位依次進行桶排序即可完成排序(每一趟排序后數據重新排列)。
            (1)第二趟以十位排序后的結果中,前4個數為
             
            。(數字間用逗號間隔)
            (2)現在有n個0~5000的數據,其VB代碼如下,請在橫線處填入合適的代碼。
            Constn=10
            Dima(1Ton)AsInteger
            Dimtmp(1Ton)AsInteger'臨時數組,用來保存桶排序后的結果
            Dimcount(0To9)AsInteger
            DimiAsInteger,jAsInteger
            DimsAsInteger,kAsInteger
            PrivateSubForm_Load (  )
            '待排序數據保存在a數組中,代碼略
            EndSub
            PrivateSubCommand1_Click (  )
            s=1
            Fori=1To
             

            Forj=0To9'初始化數組
            count(j)=0
            Nextj
            Forj=1Ton'統計各桶中數據個數
            k=(a(j)\s)Mod10
            count(k)=count(k)+1
            Nextj
            Forj=1To9'計算索引
            count(j)=
             

            Nextj
            Forj=nTo1Step-1'根據索引,從桶中取出數據,放入tmp數組
            k=(a(j)\s)Mod10
             

            count(k)=count(k)-1
            Nextj
            Forj=1Ton'數組a重新排列
            a(j)=tmp(j)
            Nextj
            s=s*10
            Nexti'輸出排序后的數據,代碼略。
            EndSub

            組卷:0引用:1難度:0.5
          APP開發者:深圳市菁優智慧教育股份有限公司| 應用名稱:菁優網 | 應用版本:5.0.7 |隱私協議|第三方SDK|用戶服務條款
          本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯系并提供證據,本網將在三個工作日內改正