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

          2019-2020學年浙江省名校新高考研究聯(lián)盟(Z20聯(lián)盟)高三(上)第一次聯(lián)考信息技術(shù)試卷

          發(fā)布:2024/11/23 3:0:1

          一、選擇題(共12小題,每小題2分,滿分24分)

          • 1.下列有關(guān)信息的說法中正確的是(  )

            組卷:10引用:2難度:0.6
          • 2.某同學使用搜索引擎查找荷花素材圖片,部分界面如圖所示:下列說法中正確的是(  )

            組卷:11引用:2難度:0.5
          • 3.使用Access軟件創(chuàng)建的數(shù)據(jù)表,部分界面如圖所示。下列說法中正確的是(  )

            組卷:3引用:1難度:0.4
          • 4.使用GltraEdit軟件觀察字符“(Z20名校聯(lián)盟)”的內(nèi)碼,部分界面如圖所示。下列說法中正確的是(  )

            組卷:4引用:1難度:0.4
          • 5.使用GoldWave軟件打開某音頻文件,部分界面如圖所示。下列說法中正確的是(  )

            組卷:0引用:1難度:0.5

          二、解答題(共4小題,滿分26分)

          • 15.食堂排隊買菜。食堂排隊買菜時,每個同學都有一個窗口買菜時間,如果某同學的等待時間超過他在窗口買菜時間的3倍,他就會不愉快,反之是愉快的。等待時間是指排在該同學之前的所有人的買菜時間之和。已知每個同學在窗口的買菜時間,請確定如何排隊才能使愉快的人數(shù)最多,并輸出最多的人數(shù)。例如:10個同學的買菜時間如下表所示,則最多有8個人是愉快的。
            學生編號 l 2 3 4 5 6 7 8 9 10
            買菜時間 3 2 5 5 6 7 1 8 1 3
            最終是否參與排隊
            Const n=10
            Dim a(1 To n) As Integer
            Private Sub Command1_Click (  )
            Dim i As Integer,a As Integer,ans As Integer,t As Integer
            ,讀取每個學生的買菜時間,依次存儲在數(shù)組a中,代碼略
            For i=1 To n-1
            k=i
            For j=n To i+1 Step-1
            If
             
             Then k=j
            Next j
            If a(i)<>a(k) Then t=a(i):a(i)=a(k):a(k)=t
            Next i
            s=0:ans=0
            For i=1 To n
            If Then s=s+a(i):ans=ans+1
            Next i
            Label1.Caption=“共有“+Str(ans)+“個人是愉快的,且參與排隊買菜。“
            (1)代碼“Private Sub Commandl_Click (  )”中的Command1是
             
            (單選,填字母:A.對象名/B.事件名/C.事件處理過程名)
            (2)請在橫線處填入合適代碼。
            (3)程序代碼中,加框處代碼有錯,請改正。
            (4)若10個同學的買菜時間都相同,則有
             
            個人是愉快的,且參與排隊。

            組卷:0引用:1難度:0.5
          • 16.給定一個數(shù)組a,有n個元素(1≤n≤100),有以下兩種操作:
            操作1:在文本框中分別輸入L、R、T(1≤L≤R≤n),對數(shù)組下標為L到R之內(nèi)(包含L和R)的每個元素增加T(1≤T≤100)
            操作2:在文本框中輸入K(1≤K≤n),在標簽中輸出a(K)的值。
            為了提高算法的效率,小明設(shè)計了如下算法,以n=10為例,如表所示。
            數(shù)組下標 1 2 3 4 5 6 7 8 9 10
            元素的值 7 12 3 6 7 11 8 24 9 5
            ①將n個元素依次分成段(表示對
            n
            石向下取整,每段的元素個數(shù)為,若最后有不足個元素,則自成一段。給每段設(shè)置一個標記,初始值都為0,如表所示。
            數(shù)組下標 l 2 3 4 5 6 7 8 9 10
            元素的值 7 12 3 6 7 11 8 24 9 5
            段編號 第1段 第2段 第3段 第4段
            段標記值 0 0 0 0
            ②對于操作1,輸入的L、R屬于同一段,則直接對a(L to R)的每個元素加上T.如輸入4,6,3,則第2段中的每個數(shù)加上3,操作后如表所示。
            數(shù)組下標 1 2 3 4 5 6 7 8 9 10
            元素的值 7 12 3 9 10 14 8 24 9 5
            段編號 第1段 第2段 第3段 第4段
            段標記值 0 0 0 0
            ③對于操作1,若輸入的L,R不屬于同一段,則對元素a(L)所在段中從a(L)開始到該段最后一個元素為止的每個元素加上T,并對元素a(R)所在段中從該段第一個元素開始到a(R)為止的每個元素加上T,對a(L)元素所在段的下一段開始到a(R)元素所在段的前一段為止的每個段標記值增加T,這些段中的元素保持不變。如在上表的基礎(chǔ)上再輸入1,8,2,則第1段的3個數(shù)和第3段中的前2個數(shù)都加上2,第2段的段標記位增加2,如表所示。
            數(shù)組下標 1 2 3 4 5 6 7 8 9 10
            元素的值 9 14 5 9 10 11 10 26 9 5
            段編號 第1段 第2段 第3段 第4段
            段標記位 0 2 0 0
            ④對于操作2,若輸入K的值為5,則輸出a(5)的值,a(5)的值為該數(shù)組元素的值+段標記值,即a(5)=12.程序運行界面如下。請回答下列問題:
            (1)若數(shù)組元素為“3,2,6,8,7,9,3,4,7,9,6”,依次進行以下3次操作后第3段的標記值為
             


            操作1:依次輸入1,11,1
            操作1:依次輸入7,9,2
            操作2:輸入8
            (2)請在橫線處填入合適的代碼。
            Const n=10
            Dim a(1 To n)As Integer
            Dim f(1 T on)As Integer'f數(shù)組元素依次表示每段的標記值
            Dim bk As Integer'bk表示每段的元素個數(shù)
            Function BL(x As Integer)As Integer'BL函數(shù)返回數(shù)組元素a(x)的段編號
            BL=
             

            End Function
            Private Sub Form_Load (  )
            ’讀取數(shù)據(jù),并存儲到數(shù)組a中,代碼略
            bk=Int(Sgr(n))
            End Sub
            Private Sub Command1_Click (  )
            Dim L As Integer,R As Integer,T As Integer,i As Integer
            L=Val(Text1.Text):R=Val(Text2.Text):T=Val(Text3.Text)
            If BL(L)=BL(R)Then
            For i=L To R
            a(i)=a(i)+T
            Next i
            EIse
            For i=
             

            a(i)=a(i)+T
            Next i
            For i=BL(L)+1 To BL(R)-1
            f(i)=f(i)+T
            Next i
            For i=(BL(R)-1)*bk+1 To R
            a(i)=a(i)+T
            Next i
            End If
            End Sub
            Private Sub Command2_Click  (  )
            Dim K As Integer
            K=Val(Text4.Text)
            Labe.15.Caption=“經(jīng)過一系列操作后。a(“+Str(K)+“)的值為:“+
             

            End Sub

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