2021年浙江省金麗衢十二校高考信息技術二模試卷
發布：2025/1/3 3:30:2
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分。）
-
1．下列關于信息與信息技術的描述，正確的是（ ）
組卷：5引用：3難度：0.6 -
2．以下不屬于人工智能范疇的是（ ）
組卷：7引用：2難度：0.5 -
3．利用Access設計一個數據表，存儲如圖所示的進度完成記錄數據
下列表結構設計最合理的是（ ）序號 內容 是否已上 班級 預計上課時間 1 冒泡排序 已上 高二（2） 20210225 2 冒泡排序優化 未上 高二（1） 20210330 3 選擇排序 未上 高二（11） 20210415 … … … … … 組卷：1引用：1難度：0.5 -
4．下列有關計算機信息編碼的描述，正確的是（ ）
組卷：10引用：3難度：0.4 -
5．使用Photoshop處理“圣誕節賀卡.psd”，編輯界面如圖所示。下
列說法正確的是（ ）組卷：0引用：2難度：0.5
二、非選擇題（本大題共4小題，其中第13題4分，第14題8分，第15題7分，第16題7分，共26分）
-
15．現A港口有n（編號為1到n）個貨物，需要在d天內運送到B港口，要求按照貨物編號從小到大進行運送，求運送貨物的貨船的最低載重量。
現有6個貨物，依次編號為1-6，其重量如下表所示。
若要求在3天內完成，則貨船最低載重量為15。其中第一天運送9、1、5；第二天運送13；第三天運送9、4。編號 1 2 3 4 5 6 重量 9 1 5 13 9 4
編寫VB程序，實現上述功能。運行程序，在文本框Text1中輸入各貨物重量（以逗號分隔），在文本框Text2中輸入要求天數d,單擊命令按鈕后，在標簽Label3中顯示貨船最低載重量。程序運行界面如圖所示。
請回答下列問題：
（1）觀察代碼可知，該程序命令按鈕的對象名為。
（2）請在橫線處①②③填入合適的代碼。
（3）程序中加框處代碼有誤，請修改。
Dim weight（1 To 100）As Integer
Dim t As Integer
Private Sub Boat_Click （ ）
Dim s As String
Dim d As Integer
Dim max,sum As Integer
Dim L，R As Integer
Dim m As Integer
s=Text1.Text
d=Val（Text2.Text）
t=1
'將貨物重量存到weight數組
For i=1 To Len（s）
c=Mid（s,i,1）
If c=“，“Then t=t+1 Else①
Next i
'求貨物最大重量和總重量
max=0
For i=1 To t-1
If weight（i）＞max Then max=weight（i）
②
Next i
L=max：R=sum
Do While L＜R
m=（L+R）\2
If③Then R=m Else L=m+1
Loop
Label1.Caption=“貨船最低載重量為：“+Str（L）
End Sub
Function days（m As Integer）As Integer
Dim temp As Integer
Dim c As Integer
c=1
For i=1 To t-1
temp=temp+weight（i）
If temp＞m Then
temp=0
c=c+1
End If
Next i
days=c
End Function組卷：1引用：1難度：0.5 -
16．學校里有一個水房，水房里一共裝有 m 個水龍頭可供同學們打開水，每個龍頭每秒鐘的供水量相等，均為 1。現在有 n 名同學準備接水，他們的初始接水順序已經確定。將這些同學按接水順序從 1到 n 編號，第i 位同學的接水量為 ai。接水開始時，1 到 m 位同學各占一個水龍頭，并同時打開水龍頭接水。當其中某名同學j 完成其接水量要求aj 后，下一名排隊等候接水的同學 k馬上接替 j 同學的位置開始接水。這個換人的過程是瞬間完成的，且沒有任何水的浪費。即第j 位同學第 x 秒結束時完成接水，則第 k 位同學第 x+1 秒立刻開始接水。若當前接水人數 n不足 m,則只有 n個水龍頭供水，其它m-n個水龍頭關閉。
小王編寫了一個“計算接水時間”的程序，功能如下：程序運行時，在文本框Text1中輸入每位同學的接水時間（以逗號隔開），在文本框Text2中輸入水龍頭數，單擊“計算”按鈕Command1，在標簽Label1中顯示所有同學接水的總時間。程序運行界面如圖所示。
請回答下列問題：
（1）如第圖所示，若文本框Text1中輸入的是“4，5，7，1，6，2，8”（不包括雙引號），則所有同學接水的總時間為秒。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer,t As Integer
Dim m As Integer,n As Integer,ans As Integer
Dim s As String,ch As String
Dim a（1 To 100）As Integer,b（1 To 20）As Integer
s=Text1.Text
m=Val（Text2.Text）
n=1：t=0
For i=1 To Len（s）
ch=Mid（s,i,1）
If ch＞=“0“And ch＜=“9“Then
t=t*10+Val（ch）
Else
n=n+1
a（n-1）=t
t=0
End If
Next i
a（n）=t
For i=1 To m
b（i）=i
Next i
For i=1 To m-1
For ①
If a（b（j））＜a（b（j+1））Then t=b（j）：b（j）=b（j+1）：b（j+1）=t
Next j
Next i
If n＞m Then
For i=m+1 To n
②
For j=m To 2 Step-1
If a（b（j））＞a（b（j-1））Then t=b（j）：b（j）=b（j-1）：b（j-1）=t
Next j
Next i
End If
③
Label1.Caption=“共需要“+Str（ans）+“秒“
End sub組卷：1引用：1難度：0.3