2021年浙江省山水聯(lián)盟高考信息技術(shù)模擬試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題
-
1.下列說法不正確的是( ?。?/h2>
組卷:8引用:3難度:0.6 -
2.下列應(yīng)用中,體現(xiàn)了人工智能技術(shù)的有( )
組卷:11引用:2難度:0.5 -
3.某用戶編輯界面如圖所示:
下列說法正確的是( ?。?/h2>組卷:5引用:1難度:0.7 -
4.某校建設(shè)了校園一卡通系統(tǒng),采集的學(xué)生信息存儲在“學(xué)生一卡通信息”數(shù)據(jù)表中,數(shù)據(jù)表結(jié)構(gòu)及記錄分別如圖1和圖2所示,選擇右鍵菜單中的“新記錄”并輸入相應(yīng)數(shù)據(jù),下列可能作為新記錄的是( ?。?img alt src="https://img.jyeoo.net/quiz/images/202105/105/09895270.png" style="vertical-align:middle" />
組卷:4引用:2難度:0.6 -
5.下列有關(guān)信息編碼說法,不正確的是( ?。?/h2>
組卷:12引用:1難度:0.6
二、非選擇題
-
15.輸入一段長度為n的英文字母,對其進(jìn)行某種加密方法,描述如下:
(1)將原文轉(zhuǎn)換為若干行m列(m為奇數(shù))的矩陣,最后一行若不足m個數(shù)據(jù)則以“#”填充。
(2)將矩陣中的數(shù)據(jù),從末行末列數(shù)據(jù)開始以回路的方式提取字符。按順序生成加密字符。例如對字符“helloworld”,m=3的加密過程如下圖,其加密結(jié)果為“#lwleor#dolh”
程序窗口界面如圖:
請回答下列問題:
(1)字符串“helloworld““”經(jīng)過加密后密文為“dollrleowh,則加密矩陣列數(shù)m為
(2)上述加密算法對應(yīng)解密的VB程序代碼如下,請在橫線處填入合適的代碼。
Private Sub commandl_click
Dim a As String,n As Integer,yw As String
Dim i As Integer,j As Integer
Dim index As Integer,k As Integer,x As Integer
s=Tjye.ai1.jye.ai'文本框text中為待解密的字符串
m=Val(Text2.Text)
n=Len(s)
yw=″″
k=0
x=n/m
For i=1 To
index=n-i+1
yw=yw+Mid(s,index,1)
Forj=2 To m
If
index=index-2*(x-i)-1
Else
index=index-2*(i-1)-1
End If
If Mid(s,index,1)=“#“Then
yw=yw+Mid(s,index,1)
Next j
Next i
Label1.Caption=Mid(yw,1,Len(yw)-k)
End Sub組卷:4引用:1難度:0.3 -
16.有m(2≤m≤n)個音箱,直線放在n(n≥2)個位置上,第i個位置坐標(biāo)在a(i)上。每兩個音箱相互靠近就會產(chǎn)生干擾,為了解決這個問題,決定把每個音箱都放在離其他音箱盡可能遠(yuǎn)的位置。為了使任意兩個音箱之間的最小距離盡可能大,設(shè)計了下面的程序。程序?qū)崿F(xiàn)了任意兩個音箱之間最大的最小距離。如有5個位置5個位置分別為1,2,8,4,9,有3個音箱,那么最大的最小距離就為3,可以將3個音箱分別放在1,4,8的位置上。
(1)如果這5個位置分別為5,19,2,18,9,那么3個音箱可以放置的最大的最小距離為
(2)在橫線處補(bǔ)上代碼。
(3)有一句帶框框的代碼有誤,請修改為正確代碼,讓程序可以符合題意。
Dim(1 To 5)As Integer
Dim n,k As Integer
Private Sub Form_Load
n Val(Text1.Text):k=Val(Text2.Text)
’隨機(jī)生成n(n>=2)個不重復(fù)的0及以上的數(shù)字賦值給數(shù)組a,代碼略
End Sub
Private Sub Command1_ Click
Dim m,1,r As Integer
For i=1To n
For j=1 To n-i
Ifa(j)>a(j+1)Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
l=1:r=a(n)-a(1)
Do While l<=r
m=(1+r)\2
If
l=m+1
Else
r=m-1
End If
Loop
Labell.Caption=Str(r)
End Sub
Function check (ByVal d As Integer) As Boolean
Dim cow,rgt As Integer
cow=1
rgt=a(1)+d
Fori=2Ton
If a(i)>=rgt Then.
cow=cow+1
End If
Next i
If
check=True
Else
check=False
End If
End Function組卷:3引用:1難度:0.2