2017-2018學(xué)年浙江省臺州中學(xué)高三(上)第四次統(tǒng)練信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.每小題列出的四個選項(xiàng)中,只有一個符合題目要求的,不選、多選、錯選均不得分)
-
1.下列描述中正確的是( ?。?/h2>
組卷:2引用:1難度:0.9 -
2.某協(xié)議的主要功能是完成對數(shù)據(jù)包的確認(rèn)、流量控制和網(wǎng)絡(luò)擁塞;自動檢測數(shù)據(jù)包,并提供錯誤重發(fā)的功能,該協(xié)議的簡稱是( ?。?/h2>
組卷:12引用:3難度:0.9 -
3.使用WinHex軟件查看字符“2017第一學(xué)期”的內(nèi)碼,部分界面如圖所示。下列說法正確的是( )
組卷:36引用:3難度:0.9 -
4.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,輸出c的值是( ?。?img alt src="https://img.jyeoo.net/quiz/images/201802/18/b590ef69.png" style="vertical-align:middle" />
組卷:2引用:3難度:0.9 -
5.使用Access軟件打開數(shù)據(jù)庫,部分界面如圖所示,下列說法正確的是( ?。?img alt src="https://img.jyeoo.net/quiz/images/202003/163/05a7952f.png" style="vertical-align:middle" />
組卷:4引用:3難度:0.7
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.小明基于選擇排序算法編寫了一個VB程序,功能如下:某班有50個學(xué)生,從中選擇10個身高最高的同學(xué),要求被選的任何兩個人不能身高一樣(所給的數(shù)據(jù)保證能選10個)。
實(shí)現(xiàn)上述功能的VB程序如下,但加框處代碼有錯,請改正。
Const n=50
Dim d(0 To n) As single,name(1 to n) as string
'讀入50個學(xué)生的身高,依次存入d(1)…d(50),最高身高小于2,姓名存入name(1)…name(50)
'代碼略
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,temp As single,k As Integer,r as string
d(0)=2
For i=1 To 10
For j=i To n
If d(j)<d(i-1)Then
IfThen
k=j
End If
End If
Next j
If k<>i Then
temp=d(k):d(k)=d(i):d(i)=temp
r=name(k):name(k)=name(i):name(i)=r
End If
Next i
For i=1 To 10‘輸出被選的10個人的名字和身高。
List2.AddItem name(i) & d(i)
Next i
End Sub組卷:10引用:2難度:0.4 -
17.酒店房間管理:酒店房間(房間數(shù)小于10000)編號按1、2、3…連續(xù)編號,老板對于沒有出租的房子使用如下的方法來登記管理。連續(xù)的空房間,登記第一間的編號和連續(xù)的空房間數(shù),比如空房間1,2,6,7,8,10,則登記3條記錄,分別為(1 2),(6 3),(10 1)。
某旅客退房了,需要把這房子也登記上去,有四種情況需要處理:
1)上靠,例如退的房間號為3,則原來登記的3條記錄變成( 1 3),(6 3),(10 1)。
2)下靠,例如退的房間號為5,則原來登記的3條記錄變成(1 2),( 5 4),(10 1)。
3)上下不靠,例如退的房間號為4,則登記的記錄數(shù)變成4條(1 2),( 4 1),(6 3),(10 1)。
4)上下靠,例如退的房間號為9,則登記的記錄數(shù)變成2條(1,2),(6,5)。
小王依據(jù)上述描述設(shè)計(jì)了如下VB程序。請回答下列問題:
(1)當(dāng)?shù)怯浀挠涗浻?條,分別為(1,4),(6,2),(10,3)。現(xiàn)在某旅客退掉5號房間,則登記的記錄變成
(2)請?jiān)跈M線處填入合適的代碼。
Const n=5000
Dim a(0To n) As Integer'a(i)保存第i條記錄的開始房間號
Dim b(0To n) As Integer'b(i)保存第i條記錄的房間數(shù)
Dim c As Integer,k As Integer,sp As Integer'k為原始記錄數(shù)
'讀取原始k條記錄的數(shù)據(jù),依次存入a(1),b(1),a(2),b(2)…a(k),b(k),代碼略
'為了程序處理方便,虛設(shè)了下面2條記錄
a(0)=0:b(0)=0:sp=k+1:a(sp)=10000:b(sp)=0
Private Sub Command1_Click ( ?。?br />Dim i As Integer
c=Val(Text1Text)'c為退掉的房間號
i=1
Do While a(i)<c'查找房間c,應(yīng)該登記在某位置
i=i+1
Loop
i=i-1
'下面為處理退房登記問題
If a(i)+b(i)=c Then
If ①
b(i)=b(i)+1+b(i+1)
For j=i+1To sp-1
a(j)=a(j+1):b(j)=b(j+1)
Next j
sp=sp-1
Else'第1種情況,上靠
b(i)=b(i)+1
End If
ElseIf c+1=a(i+1)Then'第2種情況,下靠
a(i+1)=c:b(i+1)=b(i+1)+1
Else'第3種情況,上下不靠
For j=②
a(j)=a(j-1):b(j)=b(j-1)
Next j
a(i+1)=c:b(i+1)=1:sp=sp+1
End If
‘下面為輸出登記的記錄,不包括虛設(shè)的兩條記錄
For i=1to ③
List3.AddItem“第“& Str(i) &“記錄(“& Str(a(i)) &“,“& Str(b(i)) &“)“
Next i
End Sub組卷:2引用:1難度:0.5