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

          2018-2019學年浙江省名校新高考研究聯盟高三(下)第二次聯考信息技術試卷

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

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

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

            組卷:54引用:1難度:0.5
          • 2.下列屬于靜態圖象壓縮標準的是(  )

            組卷:5引用:2難度:0.7
          • 3.使用 Word 軟件編輯某文檔,部分界面如圖所示。

            下列說法正確的是(  )

            組卷:23引用:2難度:0.4
          • 4.使用Access軟件編輯數據表,其設計視圖的部分界面如圖所示。下列說法正確的是(  )

            組卷:11引用:2難度:0.5
          • 5.某算法的部分流程圖如圖所示。執行這部分流程,輸出的s和i的值分別是(  )

            組卷:12引用:4難度:0.4

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

          • 16.對于一組升序不重復的正整數,在任意數字位置分成兩段,并交換前后兩段的位置,存入數組a。例如6、17、25、36、44、58,在數字6處分成兩段,交換位置后為:
            a(1) a(2) a(3) a(4) a(5) a(6)
            6 17 25 36 44 58
            在數字44處分成兩段,交換位置后為:
            a(1) a(2) a(3) a(4) a(5) a(6)
            44 58 6 17 25 36
            依據對分查找思想,設計一個在數組a中查找最小值,并輸出在Text1中的程序,實現該功能的VB程序如下,但加框處代碼有錯,請改正。
            Private Sub Command1_Click (  )
            Const n=6
            Dim a(1 To n) As Integer
            Dim i As Integer,j As Integer,m As Integer
            ’讀取數據,按上述規則存入數組a中,代碼略
            i=1:j=n
            If    Then Text1.Text=Str(a(i))'(1)
            Do While i<=j
            m=(i+j)\2
            If a(m)<a(j) Then

            Else
            i=m+1
            End If
            Loop
            Text1.Text=a(j)
            End Sub

            組卷:6引用:1難度:0.5
          • 17.輸入一個正整數N,尋找一個比N大且最接近N的整數,要求這個數的每位數字之和與N的每位數字之和相同。例如N=1231,則滿足上述條件的最接近N的整數為1240.為了解決此問題,設計算法如下:
            ①從右往左掃描,找第一個非0數字,將改數字減1后移到最后面。
            ②繼續掃描,找第一個非9的數字,若遇到,將該數字加1,結束;若遇到9,將其移到最后面,重復執行②。
            ③若掃描完沒有加1,則最前面補“1“。
            例如:N=199000,按照上述算法的處理過程是:199000→190008→100089→200089,滿足條件的最接近的數是200089。
            (1)若輸入N=99900,則滿足條件的最接近的數為
             

            (2)實現上述功能的VB代碼如下,請在橫線處填入適當的代碼:
            Private Sub Command1_Click (  )
            Dim a(1 To 50)As String
            Dim n As String,step1 As Boolean,step2 As Boolean
            Dim i As Integer,length As Integer,zero As Integer,cnt As Integer
            n=Text1.Text
            length=Len(n)
            '將數字串n從右往左依次存儲在數組a中。
            For i=1 To length
            a(i)=①
             

            Next i
            step1=True:step2=False'step1對應步驟①,step2對應現步驟②
            zero=0:cnt=1
            For i=1 To length
            If step1=True Then
            If a(i)=“0“Then
            zero=zero+1
            Else
             ②
             

            If zero>0 Then
            a(cnt)=a(i)
            a(i)=“0“
            End If
            step1=False
            step2=True
            End If
            ElseIf step2=True Then
            If a(i)=“9“Then
            If zero=0 Then
            t=a(cnt+1):a(cnt+1)=a(cnt):a(cnt)=t
            cnt=cnt+1
            If i<>cnt Then
            a(i)=a(i-1)
            End If
            Else
              ③
             

            a(cnt)=“9“
            a(i)=“0“
            cnt=cnt+1
            End If
            Else
            a(i)=a(i)+1
            step2=False
            Exit For
            End If
            End If
            Next i
            '最前面補“1“
            If step2 Then
            length=length+1
            a(length)=“1“
            End If
            '輸出結果,代碼略。
            End Sub

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