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