2016年4月浙江省普通高校招生選考信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共9小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列有關信息的說法,正確的是( ?。?/h2>
組卷:31引用:6難度:0.9 -
2.實現(xiàn)將電子郵件從發(fā)件人電子信箱發(fā)送到收件人電子信箱的協(xié)議是( ?。?/h2>
組卷:21引用:6難度:0.9 -
3.小華掃描報紙得到“paper.jpg”文件,使用OCR軟件進行字符識別,部分界面如圖所示。下列說法不正確的是( ?。?br />
組卷:21引用:13難度:0.9 -
4.關于Access數(shù)據(jù)表的操作,說法正確的是( ?。?/h2>
組卷:20引用:3難度:0.9 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量x的值是( ?。?br />
組卷:17引用:8難度:0.9
【加試題A】
-
16.【加試題】某地1900-1999年的平均降水量數(shù)據(jù)保存在數(shù)據(jù)庫中.現(xiàn)要求找出相鄰兩年年平均降水量變化(即本年度與上年度“年平均降水量”差值的絕對值)最大的年份區(qū)間.如果多個符合要求的年份區(qū)間,只輸入距今最近的.小吳為此編寫了VB程序,程序運行時,單擊按鈕Command1后,在文本框Text1中輸出運行結果.實現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯,請改正.
Dim w(1To 100)As Single'依次存儲1900-1999年的年平均降水量數(shù)據(jù)
Const n=100
Private Sub Form_Load( ?。?br />'本過程從數(shù)據(jù)庫中按1900-1999年依次讀取年平均降水量數(shù)據(jù),并存儲在數(shù)組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=“年平均降水量變化最大的年份區(qū)間是“+Str(imax+1898)+“-“+Str(imax+1899)
End Sub.組卷:10引用:1難度:0.1
【加試題B】
-
17.某數(shù)據(jù)壓縮方法描述如下:
(1)原始數(shù)據(jù)中,某數(shù)不為0且相鄰無重復,壓縮數(shù)據(jù)用該數(shù)據(jù)表示;
(2)原始數(shù)據(jù)中,某數(shù)為0且相鄰無重復,壓縮數(shù)據(jù)用兩個數(shù)表示,第1個位0,第2個為0;
(3)原始數(shù)據(jù)中,某數(shù)據(jù)相鄰有重復,壓縮數(shù)據(jù)用3個數(shù)表示:第1個位0,第2個為重復數(shù)的個數(shù),第3個為該數(shù)本身;
根據(jù)上述壓縮方法,對應的解壓縮方法示例如圖a所示.
小明編寫了一個解壓送VB程序,功能如下:窗體加載時,自動讀取壓縮數(shù)據(jù),依次存儲在數(shù)組元素a(1)、a(2)、a(3)…中,壓縮數(shù)據(jù)的個數(shù)存儲在變量n中,壓縮數(shù)據(jù)顯示在文本框Text1中.單擊“解壓縮”按鈕Command1,程序對壓縮數(shù)據(jù)依次進行解壓縮處理,解壓縮數(shù)據(jù)顯示在文本框Text2中.程序運行界面如圖b所示.
(1)如果壓縮數(shù)據(jù)為“23,0,21,66,0,0,77,0,5,0”,則解壓縮數(shù)據(jù)的個數(shù)是
(2)實現(xiàn)上述功能的VB程序如下.請在橫線處填入合適代碼.
Dim a(1To 100)As Integer'存儲壓縮數(shù)據(jù),最大處理個數(shù)為100
Dim b(1To 1000)As Integer'存儲解壓縮數(shù)據(jù),最大處理個數(shù)為1000
Dim n As Integer'存儲壓縮數(shù)據(jù)的個數(shù)
Private Sub Form_Load ( ?。?br />'壓縮數(shù)據(jù)由上述壓縮方法生成
'本過程用于讀取壓縮數(shù)據(jù)并存儲在數(shù)組a,壓縮數(shù)據(jù)個數(shù)存儲在變量n中
'代碼略
End Sub
Private Sub Command1_Click ( ?。?br />Dim pa As Integer'存儲壓縮數(shù)組當前處理位置
Dim pb As Integer'存儲解壓縮數(shù)組當前處理位置
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.組卷:14引用:2難度:0.1