2021年浙江省高考信息技術(shù)仿真試卷（三）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關(guān)于瀏覽器及信息獲取的說法中正確的是（ ）
組卷：3引用：1難度：0.6 -
2．下列有關(guān)word相關(guān)功能說法不正確的是（ ?。?/h2>
組卷：2引用：1難度：0.5 -
3．設(shè)計“小微圖書管理系統(tǒng)”時，新建“圖書借閱”Access數(shù)據(jù)表，存放下列表格數(shù)據(jù)：以下有關(guān)“小微圖書管理系統(tǒng)”和Access數(shù)據(jù)表結(jié)構(gòu)設(shè)計描述正確的是（ ）
圖書編號 圖書名稱 借閱人 借書日期 還書日期 是否損壞 JS0001 Python編程從入門到實踐 黃曉琳 2019-5-14 2019-6-5 否 JS0002 深入理解Java虛擬機(jī) 李語敏 2019-11-21 2019-12-25 是 …… …… …… …… …… …… JX0712 歷史的原聲 王甜甜 2019-1-19 2020-6-1 否 組卷：2引用：2難度：0.6 -
4．下列關(guān)于多媒體硬件設(shè)備和多媒體軟件工具說法不正確的是（ ?。?/h2>
組卷：10引用：1難度：0.5 -
5．用photoshop軟件制作“在線教育”作品。當(dāng)前狀態(tài)下，下列說法正確的是（ ?。?br />
組卷：3引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．編寫一個VB程序，實現(xiàn)如下功能：輸入s位數(shù)字構(gòu)成的數(shù)字字符串（第1位數(shù)字不為0），移除k （0＜k＜s）個數(shù)字后，在保證原數(shù)字相對位置不變的情況下，使剩余數(shù)字組成的新數(shù)為最?。ㄗⅲ盒聰?shù)第1位不能為0）。例如8個數(shù)字構(gòu)成的數(shù)字字符串“71803296”，移除3個數(shù)字，得到5位數(shù)字構(gòu)成的最小數(shù)是“10296”，具體算法如圖a所示。
算法分析：要使得到的5位數(shù)字最小，首先需保證能取到5個數(shù)字，且首位應(yīng)盡量小，那么取首位數(shù)的范圍應(yīng)保證余下有4個數(shù)字，即在前4位中選最小非0的數(shù)字。
程序運行時，在文本框Text1中輸入一個數(shù)字字符串，在文本框Text2中輸入要移除的數(shù)字個數(shù)，單擊“運行”按鈕CmdRun后，在標(biāo)簽Labell顯示得到的最小新數(shù)，程序運行界面如圖b所示。
（1）程序運行時，若要在名為Form1的窗體標(biāo)題上顯示“刪數(shù)”，可以在Form Load事件處理過程中添加語句為（單選，填字母：A．Form1.Text=“刪數(shù)“\B．Form1.Caption=“刪數(shù)“\C．Form1.AddItem“刪數(shù)“）
（2）實現(xiàn)上述功能的VB程序代碼如下，請在橫線處填入合適的代碼。
Private Sub CmdRun_ Click （ ?。?br />Dim Num As String,New_num As String'Num為輸入的數(shù)字字符串
Dim i As Integer,j As Integer,m As Integer,
Dim As Integer,s As Integer,k As Integer
Dim a（30）As String,b（30）As Integer
Num=Text1.Text：s=Len（Num）
k=Val （Text2.Text）'k為刪除數(shù)字個數(shù)
For i=1 To s
a（i）=Mid（Num,i,1）
Nexti
j=1
m=1
n=①
For i=m+l To n'取第一個非零最小數(shù)字
If
Then m=I'加框處程序代碼有誤，請改正
Next i
b（j）=m
Do Whil②'取其他最小數(shù)字
m=m+1
n=n+1
For i=m+1 To n
If a（i）＜a（m） Then m=i
Next i
j=j+1：b（j）=m
Loop
For i=m+1 To s'最后直接取的數(shù)字
j=j+1：b（j）=i
Next i
For j=1 To s-k'輸出最小數(shù)
New_ num③
Next j
Labell.Caption=New_num
End Sub
（3）加框處程序代碼有誤，請改正。組卷：2引用：1難度：0.2 -
16．在平面直角坐標(biāo)系中，給定一個矩形左下和右上2個坐標(biāo)點即可確定該矩形，例如左下（1，1）、右上（5，4），則矩形如圖a所示。
現(xiàn)給定若干個小矩形的坐標(biāo)點，要求判斷能否構(gòu)建出一個新的大矩形，在大矩形中，各構(gòu)成的小矩形無重疊，無空白。
例1：給定的5個小矩形能夠精確構(gòu)建一個坐標(biāo)為（1，1）、（5，4）的大矩形。
小矩形左下，右上坐標(biāo)如下：5個小矩形精確構(gòu)建一個大矩形（圖b）：
例2：給定的3個小矩形，有相交區(qū)域，有空白區(qū)域，不能精確構(gòu)建成一個大矩形（圖c）。
在任何兩個小矩形坐標(biāo)不完全相同的情況下，判定能否精確構(gòu)建大矩形的算法如下：
構(gòu)成的大矩形面積等于每個小矩形的面積之和；
獲取每個小矩形的所有坐標(biāo)點，有且僅有四個點只出現(xiàn)一次，其他坐標(biāo)點成對出現(xiàn)。
（1）給定3個矩形左下和右上坐標(biāo)依次為[2，4]，[5，5]，[3，2]，[4，4]，[4，2]，[5，4]，請你再添加一個矩形坐標(biāo)，使4個矩形精準(zhǔn)構(gòu)建一個大矩形，則添加矩形左下和右上坐標(biāo)依次為。
（2）根據(jù)上述算法描述，用VB程序?qū)崿F(xiàn)代碼如下，請在畫線處填入合適的代碼。
Const n=5'常量n存儲小矩形個數(shù)
Dim a（1 To 2*n）As Integer'存儲每個小矩形給定X軸坐標(biāo)
Dim b（1 To 2*n）As Integer'存儲每個小矩形給定Y軸坐標(biāo)
Private Sub Form_Load
'本過程讀取每個小矩形X軸坐標(biāo)存儲在數(shù)組a中、每個小矩形Y軸坐標(biāo)存儲在數(shù)組b中，并在List1中顯示代碼略
End Sub
Private Sub Command1_Click
Dim c（1 To 4*n）As Integer'存儲每個小矩形所有X軸坐標(biāo)，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim d（1 To 4*n）As Integer'存儲每個小矩形所有Y軸坐標(biāo)，1～2*n存左下和右上，2*n+1～4*n存左上和右下
Dim mc（1 To 4*n）As Integer'記錄所有坐標(biāo)是否成對重復(fù)，不重復(fù)為1，重復(fù)為0
Dim temp As Integer
Dim i As Integer,j As Integer,f As Integer
Dim sum As Integer,sumt As Integer,count As Integer
For i=1 To 2*n Step 2
sum=sum+（a（i+1）-a（i））*（b（i+1）-b（i））
Next i
f=1
For i=1 To 2*n
c（i）=a（i）
c（n*2+i）=a（i）
d（i）=b（i）
d（n*2+i）=b（i+f）
①
Next i
For i=1 To 4*n-1
For j=1 To 4*n-i
If c（j）＞c（j+1）Or c（j）=c（j+1）And d（j）＞d（j+1）Then
temp=c（j）：c（j）=c（j+1）：c（j+1）=temp
temp=d（j）：d（j）=d（j+1）：d（j+1）=temp
End If
Next j
Next i
sumt=②
If sum＜＞sumt Then
Label1.Caption=“不能精確構(gòu)建”
Exit Sub'結(jié)束當(dāng)前過程，不再執(zhí)行后續(xù)程序
Else
For i=1 To 4*n
mc（i）=1
Next i
i=1
Do While i＜4*n
If c（i）=c（i+1）And d（i）=d（i+1）Then
mc（i）=0：mc（i+1）=0
i=i+2
Else
i=i+1
End If
Loop
count=0
For i=1 To 4*n
③
Next i
If count=4 Then Label1.Caption=“能精確構(gòu)建“Else Label1.Caption=“不能精確構(gòu)建”
End If
End Sub組卷：1引用：1難度：0.5