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

          2018-2019學年浙江省金華市東陽中學高二(下)月考信息技術試卷(6月份)

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

          一、選擇題(本大題共12小題,每小題2分,共24分.每小題給出的四個選項中,只有一個符合題目要求)

          • 1.二維碼是近年來非常流行的編碼方式,以下關于二維碼的說法正確的是(  )

            組卷:32引用:7難度:0.5
          • 2.小明利用郵件客戶端軟件收到了同學小亮發來的一封電子郵件,但他在寫好回信單擊“發送”按鈕時卻發送失敗,可能的原因是(  )

            組卷:4引用:3難度:0.5
          • 3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是(  )

            組卷:8引用:3難度:0.6
          • 4.編輯Access數據表“精品書籍表”(如圖a所示),將Excel表(如圖b所示)A2:F9區域數據復制到“精品書籍表”中,則正確的是(  )

            組卷:4引用:1難度:0.5
          • 5.某算法的部分流程圖如第20題圖所示,執行這部分流程,輸出s的值為24,流程圖中①處不可能為(  )

            組卷:2引用:2難度:0.5

          二、非選擇題(本大題共5小題,其中第13小題4分,第15小題5分,第16小題3分,第17小題6分,共26分)

          • 16.數組a中存儲的是左右交替上升的n個正整數,如表所示:
            a(1) a(2) a(3) …… a(n-2) a(n-1) a(n)
            3 25 38 …… 55 31 12
            依據對分查找思想,設計一個在數組a中查找數據key的程序。實現該功能的VB程序如下,但加框處代碼有錯,請改正。
            Private Sub Command1_Click (  )
            Const n=6
            Dim a(1 To n)As Integer,flag As Boolean
            Dim i As Integer,j As Integer,m As Integer,key As Integer
            '讀取一組正整數,按上述規則存入數組a中,代碼略。
            key=Val(Text1.Text)
            i=1
            j=(n+1)\2
            flag=False
            Do While  And Not flag'(1)
            m=(i+j)\2
            If key=a(m) Then
            flag=True
            Elself key<a(m) Then
            j=m-1
            Else
            i=m+1
            End If
            Loop
            If Not flag And j>0 Then
            m='(2)
            If key=a(m) Then flag=True
            End If
            If flag Then
            Text2.Text=Str(m)
            Else
            Text2.Text=“找不到“
            End If
            End Sub

            組卷:1引用:2難度:0.5
          • 17.在數組a中按順序找出一組升序子序列,可以不連續,但要求長度最長。例如:數組a的值分別為2,11,4,13,5,7.升序子序列分別有[2,11]、[2,4]、[2,11,13]、[2,4,13]、[2,4,5]、
            [2,4,5,7]、[11,13]、[4,13]、[4,5]、[4,5,7]、[5,7],其中最長升序子序列的數據是2,4,5,7。
            算法思路如下:
            (1)求以a(i)為結尾元素的最長升序子序列時,找到所有序號j(j=1,2……i-1),且a(j)<a(i)。
            如果這樣的元素存在,且d(j)>=d(i)(d(i)記錄i位置的最長升序子序列長度),那么就增加i位置的最長升序子序列長度,并記錄該升序子序列倒數第二個位置。
            (2)在d數組中找出最大值,即最長升序子序列長度。
            (3)例如,2、11、4、13、5、7,d(1)=1,d(2)=2,d(3)=2,d(4)=3,d(5)=3,d(6)=4,所以最長升序子序列長度為4,是以a(6)為結尾元素。
            現設計了如下VB程序,界面如圖所示,請回答下列問題:

            (1)觀察圖,最長升序子序列的數據是
             

            (2)請在橫線處填入合適的代碼。
            Constn=9
            Dima(1Ton)AsInteger
            PrivateSubForm_Load (  )
            ‘生成n個[1,10]范圍的隨機數,存儲在a數組,并顯示在列表框List1.代碼略
            EndSub
            PrivateSubCommand1_Click (  )
            Dim d(1 To n) As Integer‘記錄i位置的最長升序子序列長度
            Dim pre(1 To n) As Integer‘記錄i結尾的最長升序子序列前一數據的位置
            DimstAsString,iAsInteger,kAsInteger,maxlenAsInteger
            Fori=1Ton
            d(i)=1
            Nexti
            Fori=2Ton
            Forj=1Toi-1
            Ifa(j)<a(i)Andd(j)>=d(i)Then
            d(i)=
             

            pre(i)=j
            EndIf
            Nextj
            Nexti
            maxlen=0:k=0
            Fori=1Ton
            If
             
             Then maxlen=d(i):k=i
            Nexti
            DoWhilek<>0
            st=a(k)&″,″&st
             

            Loop
            Text1.Text=Mid(st,1,Len(st)-1)
            EndSub

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