2016-2017學(xué)年浙江省新高考研究聯(lián)盟高三（上）第一次聯(lián)考信息技術(shù)試卷
發(fā)布：2024/12/26 8:0:14
一、選擇題（本大題共12小題，每小題2分，共24分．每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求，不選、多選、錯(cuò)選均不得分）
-
1．下列有關(guān)信息的說法，不正確的是（ ）
組卷：17引用：6難度：0.9 -
2．使用瀏覽器軟件打開某網(wǎng)頁文件如圖所示．
下列說法正確的是（ ）組卷：5引用：4難度：0.9 -
3．評(píng)價(jià)某網(wǎng)絡(luò)新聞的部分界面如圖所示．
圖中包含的評(píng)價(jià)方式有（ ）組卷：4引用：1難度：0.9 -
4．使用Access軟件創(chuàng)建數(shù)據(jù)表，存儲(chǔ)如下表所示的圖書信息：
則該數(shù)據(jù)表對(duì)應(yīng)的結(jié)構(gòu)恰當(dāng)?shù)氖牵ā 。?/h2>編號(hào) 書名 作者 書價(jià) 出版時(shí)間 出版社 SN-7208061644 追風(fēng)箏的人 卡勒德?胡賽尼 ￥28.90 2014-01-01 上海人民出版社 組卷：10引用：4難度：0.7 -
5．計(jì)算s=2+4+6+…+10的算法流程圖如圖所示．
若要計(jì)算s=2×4×6×…×10，則上述流程圖中的“s←s+x,x←x+2”應(yīng)改為（ ）組卷：6引用：3難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．查找并刪除重復(fù)數(shù)據(jù)的算法是基于順序查找的優(yōu)化，主要思路是把待查數(shù)據(jù)的起點(diǎn)元素設(shè)置成查找關(guān)鍵字，然后從后往前查找，通過結(jié)束時(shí)停留的數(shù)據(jù)位置來判斷查找結(jié)果（即結(jié)束時(shí)若停留在數(shù)據(jù)序列的起點(diǎn)，表示數(shù)據(jù)序列中無重復(fù)數(shù)據(jù)；否則，存在重復(fù)數(shù)據(jù)，刪除該數(shù)據(jù)后繼續(xù)查找）．
編寫VB程序，實(shí)現(xiàn)上述算法．程序功能如下：運(yùn)行程序時(shí)，在列表框List1中顯示數(shù)組a中的原始數(shù)據(jù)；單擊“去重”按鈕（Command1），查找數(shù)組a中的重復(fù)數(shù)據(jù)并刪除，即相同的數(shù)據(jù)僅保留一個(gè)，并在列表框List2中輸出去重后的數(shù)組a中的數(shù)據(jù)，同時(shí)在標(biāo)簽Label1中顯示刪除的數(shù)據(jù)總個(gè)數(shù)，運(yùn)行效果如第16題圖所示．
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請改正．
Const maxn=10
Dim a（1To maxn） As Integer
Private Sub Form_Load （ ?。?br />'maxn個(gè)數(shù)據(jù)存儲(chǔ)在數(shù)組a中，并在列表框List1中顯示
'代碼略
End Sub
Private Sub Command1_Click （ ?。?br />Dim i As Integer,n As Integer'n用于存儲(chǔ)當(dāng)前查找的數(shù)組長度
Dim j As Integer,key As Integer'key用于存儲(chǔ)本次查找關(guān)鍵字的數(shù)據(jù)位置
key=1：n=maxn
Do While key＜=n
i=n
Do While
'（1）
i=i-1
Loop
If i=key Then'找到重復(fù)數(shù)據(jù)，刪除；未找到，設(shè)定下一查找關(guān)鍵字
key=key+1
Else
For j=i To n-1
a（j）=a（j+1）
Next j
n=n-1
End If
Loop
For i=1To n
List2．AddItem a（i）
Next i
Label1．Caption=“共刪除重復(fù)數(shù)據(jù)：“&
&“個(gè)“'（2）
End Sub.組卷：2引用：2難度：0.3 -
17．如果一個(gè)正整數(shù)從左到右讀與從右到左讀是一樣的，就稱它為回文式數(shù)（簡稱回?cái)?shù)），如12321．“回?cái)?shù)猜想”的主要思想是，對(duì)任意正整數(shù)，若它不是回?cái)?shù)，則按下列算法即可獲得一個(gè)回?cái)?shù)：
（1）把該整數(shù)的數(shù)字順序顛倒，求得該數(shù)的逆序數(shù)；
（2）將該整數(shù)和其對(duì)應(yīng)的逆序數(shù)相加；
（3）若相加結(jié)果不是回?cái)?shù)，則將結(jié)果作為新的整數(shù)，返回步驟（1）．
小林按照上述算法，設(shè)計(jì)了驗(yàn)證回?cái)?shù)猜想的VB程序（猜想次數(shù)不超過10次），程序功能如下：在文本框Text1中輸入一個(gè)正整數(shù)，單擊“驗(yàn)證”按鈕（Command1），獲取文本框Text1中的數(shù)，當(dāng)該數(shù)不是回?cái)?shù)時(shí)，采用回?cái)?shù)猜想的方法進(jìn)行驗(yàn)證，并在列表框List1中輸出每次驗(yàn)證的過程，若驗(yàn)證成功或驗(yàn)證次數(shù)超過10次，則停止驗(yàn)證，最后在列表框List1中輸出驗(yàn)證結(jié)果．程序運(yùn)行效果如圖所示．
實(shí)現(xiàn)上述功能的VB程序如下：
Private Sub Command1_Click （ ?。?br />Dim t As String,a As Long,b As Long
Dim count As Integer'count用于存儲(chǔ)回?cái)?shù)猜想的驗(yàn)證次數(shù)
t=Text1．Text
count=1
Do While Check（t）=False And count＜=10
a=Val（t）
c=a+b
List1．AddItem Str（a） &“+“& Str（b） &“=“& Str（c）
count=count+1
t=Str（c）
Loop
If Check（t） Then
List1．AddItem“驗(yàn)證成功！“
Else
List1．AddItem“10次內(nèi)未驗(yàn)證成功！“
End If
End Sub
'自定義函數(shù)Turn
Function Turn（x As String） As Long
Dim s As String,i As Integer
s=““
For i=Len（x） To 1Step-1
s=s & Mid（x,i,1）
Next i
Turn=Val（s）
End Function
'自定義函數(shù)Check,檢查x是否為回文數(shù)
Function Check（x As String） As Boolean
Dim i As Integer
Check=True
For i=1To Len（x）\2Step 1
If Mid（x,i,1）＜＞Then Check=False
Next i
End Function
（1）程序代碼中，自定義函數(shù)Turn（x）的功能是．
（2）請?jiān)跈M線處填入合適代碼．組卷：2引用：1難度：0.3