2016-2017學(xué)年浙江省新高考研究聯(lián)盟高三（上）第二次聯(lián)考信息技術(shù)試卷
發(fā)布：2024/12/8 14:0:2
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求，不選、多選、錯選均不得分）
-
1．下列有關(guān)信息的說法，不正確的是（ ）
組卷：11引用：2難度：0.9 -
2．小王同學(xué)打開某考試院網(wǎng)站查詢自己的初中升學(xué)考試成績，部分界面如圖所示．
以下說法不正確的是（ ）組卷：9引用：1難度：0.9 -
3．要將報紙上的一篇文章轉(zhuǎn)換成電子文本以便在Word中進(jìn)行編輯，以下說法正確的是（ ）
組卷：9引用：2難度：0.9 -
4．某數(shù)據(jù)表如圖所示，以下說法正確的是（ ）
組卷：5引用：1難度：0.5 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量x的值是（ ）
組卷：6引用：1難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．進(jìn)入2016年7月以來，浙江省氣溫連續(xù)高企，為了觀察氣溫的變化情況，小明用VB編寫了一個連續(xù)高溫天數(shù)的統(tǒng)計軟件．小明采集了杭州市7-8月的每日最高氣溫，并存放在ACCESS數(shù)據(jù)庫中．程序運行時，讀取日期和最高氣溫并顯示在列表框List1中，在文本框Text1中輸入溫度值，單擊“統(tǒng)計”按鈕Command1，程序自動統(tǒng)計運行在該溫度值以上的最長連續(xù)天數(shù)，并顯示在Text3中，同時在Text2中顯示日期區(qū)間，運行界面如下圖所示．
實現(xiàn)上述功能的VB代碼如 下，在橫線處填入合適代碼．
Dim rq（1To 100）As String'存放日期
Dim qw（1To 100）As Integer'存放最高氣溫值
Dim n As Integer'總天數(shù)
Private Sub Form_Load （ ）
'讀取數(shù)據(jù)庫內(nèi)容，其中日期數(shù)據(jù)存放在數(shù)組rq中，最高氣溫數(shù)據(jù)存放在qw中，第i個日期保存在rq（i）中，對應(yīng)的氣溫保存在qw（i）中，并顯示在列表框List1中，代碼略
End Sub
Private Sub Command1_Click （ ）
Dim max As Integer'記錄最大連續(xù)天數(shù)
Dim nend As Integer'記錄最大連續(xù)天數(shù)時的結(jié)束日期的下標(biāo)
Dim ncount As Integer'統(tǒng)計連續(xù)天數(shù)
Dim tjqw As Integer'存放輸入的溫度
tjqw=Val（Text1．Text）
ncount=0
max=0
For i=1To n
If ① Then
ncount=ncount+1
Else
ncount=0
End If
If max＜ncount Then
max=ncount
②
End If
Next
If max＜＞0Then Text2．Text= ③ &“-“& rq（nend）
Text3．Text=Str（max）
End Sub.組卷：5引用：1難度：0.3 -
17．刪數(shù)問題．輸入一個數(shù)字串s,刪去其中k個數(shù)字（k＜數(shù)字串中數(shù)字的個數(shù)），使剩余數(shù)字在保持相對位置不變的情況下構(gòu)成一個值最小的整數(shù)．例如，s=“19990608”，k=4，處理結(jié)果為：608．
刪數(shù)的算法如下：
（1）如果k＞0，則從前往后檢測相鄰字符，否則，轉(zhuǎn)（3）；
（2）①若所有相鄰字符都已非降序，則將串尾k個字符刪去，k值置0，轉(zhuǎn)（1）；
②若相鄰兩數(shù)存在逆序（即前一個數(shù)＞后一個數(shù)），則將前一個數(shù)刪除，k值變化，然后回到（1）；
（3）去掉串首的0，輸出結(jié)果．
按照上述算法思路，編寫了VB程序，功能如下：在文本框Text1中輸入數(shù)字串，在文本框Text2中輸入刪數(shù)的個數(shù)，單擊“處理”按鈕Command1，在文本框Text3中顯示最小的整數(shù)．程序運行界面如圖所示．
（1）如果輸入的數(shù)字串為“20160125”，刪除個數(shù)為4，則結(jié)果是．
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼．
delete函數(shù)說明：delete（st,x,y）為自定義函數(shù)，功能為在字符串st中刪除x位置開始的y長度的子串．
Private Sub Command1_Click （ ）
Dim s As String,k As Integer,i As Integer,j As Integer,n As Integer
s=Text1．Text
k=Val（Text2．Text）
n=Len（s）
Do While k＞0
i=1
Do While i＜n And
i=i+1
Loop
If i=n Then
n=n-k
k=0
Else
s=delete（s,i,1）
n=n-1
End If
Loop
i=1
Do While n＞1And Mid（s,1，1）=“0“
s=delete（s,1，1）
i=i+1
n=n-1
Loop
Text3．Text=s
End Sub
Function delete（st As String,x As Integer,y As Integer） As String
delete=Mid（st,1，x-1）+Mid（st,x+y）'mid函數(shù)第3個參數(shù)省略，則截取從開始位置向右到字符串結(jié)尾的所有字符
End Function.組卷：5引用：1難度：0.3