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

          2019-2020學年浙江省“七彩陽光”新高考研究聯盟高三(下)月考信息技術試卷

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

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

          • 1.下列有關信息和信息技術的說法正確的是(  )

            組卷:3引用:1難度:0.6
          • 2.下列應用到人工智能的是(  )
            ①利用宿舍的測溫門測量體溫
            ②醫院服務機器人與人進行語音交流并提供資訊
            ③居家時期遠程控制公司電腦進行文件下載
            ④手機外賣使用人臉識別付款
            ⑤能夠實現自動駕駛的汽車

            組卷:7引用:1難度:0.6
          • 3..小胡使用IE 瀏覽器訪問網易云音樂 http://music.163.jye.ai/,下列說法正確的是(  )

            組卷:3引用:1難度:0.6
          • 4.用 UltraEdit 軟件查看“2020 中國加油!”的字符內碼,部分界面如圖所示,下列說法正確的是(  )

            組卷:4引用:1難度:0.5
          • 5.使用 Photoshop 軟件制作“中國加油”海報,界面如圖所示,下列說法正確的是(  )

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

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

          • 15.求數組a 中非降序數列的方法,算法描述如下:
            (1)用數組依次存儲每個非降序數列中最大的元素(查找過程中的最大值),初始時 b(1)為數組 a 第 1 個元素。
            (2)加入方法:將 a(i)與數組 b 中的每個元素依次逐個比較:
            若 a(i)不比 b(j)小就用 a(i)替換 b(j)中的值;將 a(i)添加到第 j 個非降序數列中,并連接到 c 數組的 c(j)中。
            若 a(i)比 b(j)都小,則在數組 b 最后添加新的元素值為 a(i),即將 a(i)添加到第 j+1 個下降數列中,并連接到 c 數組的 c(j+1)中。
            (3)若數組a 各元素的值為:12,36,16,36,27,18 時,則 3 個非降序數列分別為:“12,36,36”,“16,27”,“18”。
            程序運行界面如圖所示:
            小明依據上述描述設計了如下 VB 程序。請回答下列問題:
            (1)代碼“List1.Clear“中的 Clear 是
             
            。(單選,填字母:A.對象名/B.事件名/C.屬性名/D.方法名)
            (2)實現上述功能的 VB 程序如下,請在橫線處填上合適的代碼。
             

             

             

            (3)程序中加框處代碼有錯,請改正。
            改正:
             

            Const m=15
            Dim a(1 To m) As Integer Private Sub Form_Load
             

            '讀取m 個數據,依次存儲到 a(1)、a(2)、…a(m)中,代碼略End Sub
            Private Sub Command1_Click
             

            Dim b(1 To m) As Integer'存儲數列最大的值Dim c(1 To m) As String'存儲非降序數列Dim i As Integer
            Dim bottom As Integer Dim j As Integer
            Dim bn As Integer'存儲非降序數列的個數List1.clear
            b(1)=a(1)

            c(1)=Str(a(1))
            For i=2 To m
            For j=1 To bn
            If  ②Then
            b(j)=a(i)

            Exit For
            End If
            Next j
            If j>bn Then
            bn=bn+1

            c(bn)=Str(a(i))
            End If
            Next i
            For i=1 To bn
            List1.AddItem c(i) Next i
            Text2.Text=“數列中共有“+Str(bn)+“個非降序序列“
            End Sub

            組卷:2引用:1難度:0.3
          • 16.淳安千島湖中有若干座島嶼,有些島嶼之間有橋相連,有些島嶼之間無橋相連,可以通過其它的島嶼相連。現在我們來建立一種關系矩陣模擬這種現象,如有 9 個島嶼,依次編號為 1~9,相互之間有橋相連在矩陣中用 1 表示;無橋相連用 0 表示;對于自身也用 0 表示,即矩陣的左上角到右下角的對角線全為0。
            李同學設計了一個用來求兩座島嶼之間相連所需橋的數量的 VB 程序,點擊“生成矩陣”按鈕Command1,隨機產生一個關系矩陣,并在列表框 List1 中顯示。在文本框 Text1 和 Text2 中輸入島嶼的編號(1~9),點擊“求解”按鈕 Command2,在 Labell 中輸出兩座島嶼之間相連所需橋的數量。VB 程序運行界面如圖所示。
            對無橋相連的兩座島嶼 p1,p2 之間相連的算法思想如下:
            ①p1 島嶼所在行開始,將與其相連的島嶼依次添加到數組 b 中。
            ②若數組 b 中未出現島嶼 p2,則依次查找與其相連島嶼的所在行,將新出現的相連的島嶼添加到數組 b 中。
            ③在查找過程中同時記錄查找步數。
            數組 b 內全部搜索完畢,若 p2 還是未出現,則兩座島嶼之間無法相連,反之輸出橋的數量。請回答以下問題:
            (1)如上圖所示的矩陣,從 5 號島嶼到 9 號島嶼最少需要經過
             
            座橋。
            (2)請在橫線處填入合適的代碼。
            Const n=9'島 嶼 的 數 量Dim a(1 To n*n) As Integer
            Private Sub Command1_Click
             
             Dim s  As  String List1.Clear
            For i=1 To n
            For j=i To n
            If j=i Then
            a((i-1)*n+j)=0'對 角 線 為 0
            Else
            a((i-1)*n+j)=Int(Rnd*2)
             ①
             
            '矩 陣 對 稱
            End If
            Next j Next i
            For i=1 To n
            s=““
            For j=1 To n
            s=s+Str(a((i-1)*n+j))
            Next j
            List1.AddItem s Next i
            End Sub
            Private Sub Command2_Click
             

            Dim b(1 To n) As Integer
            Dim qiao(1 To n) As Integer'記錄相連島嶼之間橋的數量
            Dim find(1 To n)  As Boolean'記錄某島嶼是否被添加到數組 b 中
            Dim p1 As Integer,p2 As Integer,cur As Integer,k As Integer,q As Integer
            p1=Val(Text1.Text)
            p2=Val(Text2.Text)
            cur=p1:k=1:q=0
            find(cur)=True
            Do While find(p2)=False
            For i=1 To n
            If a((cur-1)*n+i)=1 And find(i)=False Then
            b(k)=i:k=k+1
            find(i)=True
             ②
             

            End If
            Next i
            q=q+1
            If q=k Then Exit Do Else③
             

            Loop
            If find(p2)=True Then
            Label1.Caption=“需要經過“+Str(qiao(p2))+“座橋“
            Else
            Label1.Caption=“無橋相連“
            End If
            End Sub

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