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

          2016年4月浙江省普通高校招生選考信息技術試卷

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

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

          • 1.下列有關信息的說法,正確的是( ?。?/h2>

            組卷:31引用:6難度:0.9
          • 2.實現將電子郵件從發件人電子信箱發送到收件人電子信箱的協議是( ?。?/h2>

            組卷:21引用:6難度:0.9
          • 3.小華掃描報紙得到“paper.jpg”文件,使用OCR軟件進行字符識別,部分界面如圖所示。下列說法不正確的是( ?。?br />

            組卷:21引用:13難度:0.9
          • 4.關于Access數據表的操作,說法正確的是( ?。?/h2>

            組卷:20引用:3難度:0.9
          • 5.某算法的部分流程圖如圖所示,執行這部分流程后,變量x的值是(  )

            組卷:17引用:8難度:0.9

          【加試題A】

          • 16.【加試題】某地1900-1999年的平均降水量數據保存在數據庫中.現要求找出相鄰兩年年平均降水量變化(即本年度與上年度“年平均降水量”差值的絕對值)最大的年份區間.如果多個符合要求的年份區間,只輸入距今最近的.小吳為此編寫了VB程序,程序運行時,單擊按鈕Command1后,在文本框Text1中輸出運行結果.實現上述功能的VB代碼如下,但加框處代碼有錯,請改正.
            Dim w(1To 100)As Single'依次存儲1900-1999年的年平均降水量數據
            Const n=100
            Private Sub Form_Load(  )
            '本過程從數據庫中按1900-1999年依次讀取年平均降水量數據,并存儲在數組w中
            '代碼略
            End Sub
            Private Sub Command1_Click( ?。?br />Dim i As Integer,imax As Integer
            imax=
            For i=3 To n
            If Abs(w(i)-w(i-1))>=  Then imax=i
            Next i
            Text1.Text=“年平均降水量變化最大的年份區間是“+Str(imax+1898)+“-“+Str(imax+1899)
            End Sub.

            組卷:10引用:1難度:0.1

          【加試題B】

          • 17.某數據壓縮方法描述如下:
            (1)原始數據中,某數不為0且相鄰無重復,壓縮數據用該數據表示;
            (2)原始數據中,某數為0且相鄰無重復,壓縮數據用兩個數表示,第1個位0,第2個為0;
            (3)原始數據中,某數據相鄰有重復,壓縮數據用3個數表示:第1個位0,第2個為重復數的個數,第3個為該數本身;
            根據上述壓縮方法,對應的解壓縮方法示例如圖a所示.

            小明編寫了一個解壓送VB程序,功能如下:窗體加載時,自動讀取壓縮數據,依次存儲在數組元素a(1)、a(2)、a(3)…中,壓縮數據的個數存儲在變量n中,壓縮數據顯示在文本框Text1中.單擊“解壓縮”按鈕Command1,程序對壓縮數據依次進行解壓縮處理,解壓縮數據顯示在文本框Text2中.程序運行界面如圖b所示.
            (1)如果壓縮數據為“23,0,21,66,0,0,77,0,5,0”,則解壓縮數據的個數是
             

            (2)實現上述功能的VB程序如下.請在橫線處填入合適代碼.
            Dim a(1To 100)As Integer'存儲壓縮數據,最大處理個數為100
            Dim b(1To 1000)As Integer'存儲解壓縮數據,最大處理個數為1000
            Dim n As Integer'存儲壓縮數據的個數
            Private Sub Form_Load ( ?。?br />'壓縮數據由上述壓縮方法生成
            '本過程用于讀取壓縮數據并存儲在數組a,壓縮數據個數存儲在變量n中
            '代碼略
            End Sub
            Private Sub Command1_Click (  )
            Dim pa As Integer'存儲壓縮數組當前處理位置
            Dim pb As Integer'存儲解壓縮數組當前處理位置
            Dim firstdata As Integer,count As Integer,i As Integer
            pa=1:pb=1
            Do While pa<=n
            firstdata=a(pa)
            If firstdata<>0Then'示例1情況處理
            b(pb)=firstdata
            pa=pa+1:pb=pb+1
            Else
            count=a(pa+1)
            If count=0Then'示例2情況處理
            b(pb)=0
            pa=:pb=pb+1
            Else'示例3情況處理
            For i=1To count

            Next i
            pa=pa+3:pb=pb+count
            End If
            End If
            Loop
            Text2.Text=Str(b(1))
            For i=2To
            Text2.Text=Text2.Text+“,“+Str(b(i))
            Next i
            End Sub.

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