2020-2021學年浙江省寧波市北侖中學高二(下)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項中只有一個是符合題目要求的,不選、錯選、多選均不得分。)
-
1.下列關(guān)于信息的說法,不正確的是( ?。?/h2>
組卷:1引用:2難度:0.9 -
2.下列有關(guān)網(wǎng)頁和電子郵件的說法,不正確的是( ?。?/h2>
組卷:0引用:2難度:0.6 -
3.下列應用中,使用了人工智能技術(shù)的有( )
①通過在線翻譯網(wǎng)站把中文翻譯成英文
②word軟件中的“自動更正”功能
③通過語音控制智能音箱播放音樂
④使用二維碼生成器生成二維碼
⑤通過人臉識別功能登錄某支付軟件組卷:5引用:2難度:0.6 -
4.用GoldWave軟件編輯某音頻文件,部分界面如圖所示。下列說法正確的是( ?。?br />
組卷:2引用:2難度:0.2 -
5.使用UltraEdit軟件觀察字符“AI,人工智能!”的內(nèi)碼,部分界面如圖所示:下列說法正確的是( )
組卷:3引用:3難度:0.6
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
-
15.小李基于選擇排序思想編寫了一個VB程序?qū)崿F(xiàn)數(shù)據(jù)排序,排序后奇數(shù)在前、偶數(shù)在后,奇數(shù)和偶數(shù)都按升序排序。具體功能如下:產(chǎn)生10個隨機整數(shù)存數(shù)組a,在列表框List中顯示,單擊“排序”按鈕Command1,對數(shù)組a排序后在列表框List2中顯示。程序運行界面如圖所示,實現(xiàn)上述功能的ⅤB代碼如下:
Constn=10
Dima(0Ton)AsInteger
PrivateSubForm_Load ( )
′程序功能:產(chǎn)生n個隨機整數(shù)存數(shù)組a,在列表框Listl中顯示,代碼略。
Endsub
PrivateSubCommand1_Click ( ?。?br />DimiAsInteger,jAsInteger,kAsInteger,tAsInteger,flagAsBoolean
i=1:flag=True
DoWhileI<=n-1
IfflagThen
k=0:flag=False
Forj=iTon
Ifa(j)Mod2=1Then
IfThenk=j:flag=True‘改正:
EndIf
Nextj
IfflagThen
IfI<>kThent=a(i):a(i)=a(k):a(k)=t
Else
EndIf
Else
K=i
Forj=i+1Ton
Ifa(j)<a(k)Thenk=j
Nextj
Ifi<>kThent=a(i):a(i)=a(k):a(k)=t
EndIf
i=i+1
Loop
Fori=1Ton
List2.AddItemStr(a(i))
Endsub
(1)代碼“Privatesubcommand1_click ( ?。敝械腃lick是
(2)將程序代碼中橫線處代碼補充完整。
(3)程序代碼中的加框處代碼有誤,請改正。
(4)程序代碼中,flag值為組卷:16引用:2難度:0.3 -
16.小王編寫一個VB程序模擬數(shù)據(jù)篩選,功能如下:程序運行時從數(shù)據(jù)庫中讀取成績數(shù)據(jù),按升序排序后在列表框List1中顯示,在文本框 Text1 中輸入成績1,在文本框Text2中輸入成績2,單擊“篩選”按鈕 Command1,篩選出大于等于成績 1 且小于等于成績2的記錄,并顯示在列表框List2中,程序運行界面如圖所示。
(1)運行上述程序,若在文本框 Text1 中輸入75,Text2中輸入85,單擊“篩選”按鈕,則篩選到的記錄有
(2)實現(xiàn)上述功能的 VB 程序如下,請在橫線處填入合適代碼。
Const n=20
Dim score(1 To n)As Single
Function adj(s As String,n As Integer)
‘此函數(shù)功能:在字符串 s 前添加若干個空格,使其長度變?yōu)?nbsp;n。代碼略
End Function
Function search_left(key As Integer)
‘此函數(shù)功能:返回大于等于 key 的數(shù)組元素的起始位置。代碼略。
End Function
Function search_right(key As Integer)
Dim i As Integer,j As Integer,m As Integer
i=1:j=n
Do While i<=j
①
If key>=score(m)Then i=m+1 Else j=m-1
Loop
②
End Function
Private Sub Form_Load ( ?。?br />‘從數(shù)據(jù)庫中讀取成績存數(shù)組 score,記錄數(shù)存 n,并對此數(shù)組 score 升序排序,代碼略
End Sub
Private Sub Command1_Click ( ?。?br />Dim num1 As Integer,num2 As Integer,first As Integer,last As Integer
List2.Clear
num1=Val(Text1.Text):num2=Val(Text2.Text)
first=search_left(num1):last=search_right(num2)
③
If total<=0 Then
List2.AddItem“無篩選到的記錄!“
Else
List2.AddItem“篩選到“+Str(total)+“條記錄!“
List2.AddItem“依次是:“
For i=first To last
List2.AddItem adj(Str(i),3)+adj(Str(score(i)),6)
Next i
End If
End Sub組卷:0引用:1難度:0.5