2020-2021學(xué)年浙江省寧波市九校聯(lián)考高二(下)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項(xiàng)中,只有一個符合題目要求,不選、多選、錯選均不得分)
-
1.關(guān)于信息與信息技術(shù),下列說法錯誤的是( ?。?/h2>
組卷:9引用:1難度:0.6 -
2.以下實(shí)際生活場景中,涉及到人工智能技術(shù)的是( ?。?br />①疫情期間,進(jìn)入公共場合通過“人臉識別登錄驗(yàn)證”申領(lǐng)健康碼
②通過手機(jī) APP 遠(yuǎn)程打開家里的空調(diào)
③撥打某客服電話,與語音助手溝通解決售后問題
④駕駛搭載自動駕駛技術(shù)的汽車
⑤利用掃描儀掃描文稿并自動通過 Email 進(jìn)行發(fā)送組卷:14引用:3難度:0.5 -
3.利用 Access 軟件設(shè)計(jì)新冠疫苗接種管理系統(tǒng)的數(shù)據(jù)庫,其中已建好的“疫苗入庫出庫”數(shù)據(jù)表用于存儲如表所示的數(shù)據(jù)。下列關(guān)于“疫苗入庫出庫”數(shù)據(jù)表的描述,錯誤的是( ?。?br />
序號 疫苗編號 疫苗名稱 生產(chǎn)廠商 入庫/出庫 數(shù)量 R001 MH098734 滅活疫苗 國藥武漢生物 入庫 5000 R002 MH076321 滅活疫苗 北京科興 入庫 15000 C001 MH098734 滅活疫苗 北京科興 出庫 6800 R003 CZ0102568 重組新冠病毒疫苗 康希諾 入庫 10000 … … … … … … 組卷:0引用:1難度:0.4 -
4.用UltraEdit 軟件查看字符內(nèi)碼,部分界面如圖所示,下列說法正確的是( ?。?br />
組卷:10引用:1難度:0.5 -
5.使用 Photoshop 軟件制作“立夏”作品,部分界面如圖所示。下列操作可行的是( )
組卷:0引用:1難度:0.4
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
-
15.一個含有 n 個元素的整數(shù)數(shù)組,如果數(shù)組兩個連續(xù)元素之間差的絕對值包括了[1,n-1]之間的所有整數(shù),則稱之為一組“完美跳數(shù)”。小余制作了驗(yàn)證完美跳數(shù)的 VB 程序,功能如下:在文本框 Text1 中輸入一組以逗號分隔且以逗號結(jié)尾的整數(shù)數(shù)組,單擊“驗(yàn)證”按鈕 Command1,在標(biāo)簽 Label1 中顯示驗(yàn)證結(jié)果,運(yùn)行界面如圖所示。
(1)觀察程序界面,具有 Caption 屬性的對象有
Private Sub Command1_Click
Dim n As Integer,i As Integer,j As Integer
Dim a(1 To 100)As Integer,b(1 To 100)As Integer
Dim s As String,chr As String,temp As String
s=Text1.Text
i=1:n=0
Do While i<=Len(s)
ch=Mid(s,i,1)
If ch>=“0“And ch<=“9“Then
temp=temp+ch
Else
n=n+1
temp=““
End If
i=i+1
Loop
For i=2 To n
Next i
For i=1 To n-2
For j=
If b(j)<b(j-1)Then
t=b(j):b(j)=b(j-1):b(j-1)=t
End If
Next j
Next i
For i=1 To n-1
If b(i)<>i Then Exit For
Next i
If i=n Then Label1.Caption=“完美跳數(shù)“
Else
Label1.Caption=“非完美跳數(shù)“End Sub
(2)請?jiān)谏鲜龀绦虻臋M線處填上合適的代碼。
(3)上述程序加框處代碼有誤,請改正。組卷:2引用:1難度:0.3 -
16.現(xiàn)有如下問題,在一個 6×6 的跳棋棋盤上放置 6 個棋子,使得每行、每列,每條斜線上至多有一個棋子,請問有幾種不同的擺法。為了方便處理,可將棋盤模擬成 6*6 的正方形矩陣,如圖1所示。該矩陣中從左往右列號依次 1,2,3,4,5,6,從上往下行號依次為 1,2,3,4,5,6。若在位置(1,2)(指第一行第二列)中放置了一個旗子,則第一行,第二列以及該位置所在的左斜線與右斜線均無法放置其他棋子。
解決該問題的算法思想如下:
①從第一行開始逐行放置棋子。
②每行從左到右逐列嘗試放置棋子,放置之前與已放置的棋子作比對。
③若無沖突,放置該行棋子并跳轉(zhuǎn)至下一行。
④若有沖突,則在本行中向右繼續(xù)尋找放置棋子的位置,若找不到則返回上一行,重新尋找棋子放置位置。
⑤最后一行放置結(jié)束,輸出一種方案并繼續(xù)尋找下一方案。用 VB 程序?qū)崿F(xiàn)該算法,程序界面設(shè)計(jì)如圖2所示。
(1)若第一行的棋子放置在第三列,則第二行不能放置棋子的列的數(shù)量為
(2)實(shí)現(xiàn)上述功能的 VB 程序如下,請?jiān)跈M線處填入合適的代碼。
Const n=6
Dim a(1 To n) As Integer
Dim m As Integer
Private Sub Command1_Click
Dim i As Integer,j As Integer
m=0
For i=1 To n
a(i)=0'a(i)存儲第 i 行放置棋子的列號
Next i
For i=1 To n+1
If i=n+1 Then'所有行棋子放置完畢,輸出一種方案
m=m+1
s=““
For j=1 To n
s=s+Str(j)+“:“+Str(a(j))+“|“
Next j
List1.AddItem s
i=i-2
Else'尋找下一行棋子放置位置
j=a(i)+1
Do While j<=n And check(i,j)=False
Loop
If j<=n Then
a(i)=j
Else
a(i)=0
If i<0 Then Exit For
End If
End If Next i
Label1.Caption=“共有“+Str(m)+“種方案“End Sub
'判斷當(dāng)前放置的棋子與已放置有無沖突
Function check(i As Integer'j As Integer) As Boolean
check=True
For k=1 To i-1
If a(k)=j Or j+i=a(k)+k Or
check=False
End If
Next k
End Function組卷:0引用:1難度:0.3