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