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é)考試成績,部分界面如圖所示.
以下說法不正確的是( ?。?/h2>組卷:9引用:1難度:0.9 -
3.要將報紙上的一篇文章轉(zhuǎn)換成電子文本以便在Word中進行編輯,以下說法正確的是( )
組卷:9引用:2難度:0.9 -
4.某數(shù)據(jù)表如圖所示,以下說法正確的是( )
組卷:5引用:1難度:0.5 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量x的值是( ?。?br />
組卷:6引用:1難度:0.7
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.進入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 ( ?。?br />'讀取數(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 ( ?。?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函數(shù)第3個參數(shù)省略,則截取從開始位置向右到字符串結(jié)尾的所有字符
End Function.組卷:5引用:1難度:0.3