2016-2017學年浙江省寧波市北侖中學高二(下)期中信息技術(shù)試卷
發(fā)布:2024/11/28 23:30:2
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列應用中,體現(xiàn)了人工智能技術(shù)的有( ?。?br />①停車場車牌識別技術(shù)的應用
②Word軟件的查找、替換功能
③手機延時30秒暗屏
④手機微信搖一搖識別歌曲名稱
⑤二維碼識別
⑥刷臉考勤組卷:15引用:8難度:0.9 -
2.如圖所示為某動畫序列的4幅相鄰圖象,這些圖象之間存在一定的相關(guān)性,下列說法正確的是( ?。?br />
組卷:9引用:7難度:0.9 -
3.王林平時關(guān)注手機電池的正確使用,有關(guān)鋰電池的文章截圖如圖所示:
下列說法正確的是( ?。?/h2>組卷:10引用:7難度:0.9 -
4.某學生的Win10自帶郵件客戶端軟件如圖所示,某次使用過程中能正常接收郵件但無法發(fā)送郵件,下列說法正確的是( ?。?/h2>
組卷:5引用:6難度:0.9 -
5.小明通過ATM機進行存款等操作,下列說法錯誤的是( ?。?/h2>
組卷:7引用:1難度:0.7
二、非選擇題(本大題共5小題,第13小題4分,第14小題5分,第15小題8分,第16小題4分,17小題5分,共26分)
-
16.如果兩個質(zhì)數(shù)的差為2,則這兩個質(zhì)數(shù)稱為孿生質(zhì)數(shù)對;編寫VB程序,實現(xiàn)如下功能:單擊“顯示孿生質(zhì)數(shù)對”按鈕Command1,在列表框list1中顯示100以內(nèi)的所有孿生質(zhì)數(shù)對(運行效果如圖所示)。
實現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯,請改正。
Dim a(1To 50)As Integer
Private Sub Command1_Click ( ?。?br />Dim i As Integer
k=0:i=3
Do While i<=100
If Then‘(1)
k=k+1
a(k)=i
End If
i=i+2
Loop
For i=2To k
If Then‘(2)
List1.AddItem Str(a(i-1))+“和“+Str(a(i))
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime=False
For i=2To Int(Sqr(x))
If x Mod i=0Then
prime=True
Exit For
End If
Next i
End Function。組卷:15引用:4難度:0.1 -
17.編寫VB程序,實現(xiàn)如下功能:單擊“排序數(shù)組a”按鈕Command1時,對已有數(shù)組a的數(shù)據(jù)進行升序排列,并顯示在文本框Label1中;單擊“顯示數(shù)組b”按鈕Command2時,將升序數(shù)組b的數(shù)據(jù)顯示在文本框Label2中;再單擊“合并a和b”按鈕Command3時,對數(shù)組a和數(shù)組b升序合并到字符串中,將合并后的數(shù)據(jù)在文本框Label3中顯示.(運行效果如圖所示).實現(xiàn)上述功能的VB代碼如下,請在橫線處填入合適代碼.
Dim a(1To 6)As Integer
Dim b(1To 6)As Integer
Private Sub Command1_Click ( ?。?對數(shù)組a中的數(shù)據(jù)進行排序
Dim i As Integer,j As Integer,k as integer
a(1)=53:a(2)=18:a(3)=62:a(4)=22:a(5)=6:a(6)=25
s=““
For i=1 To 5
k=i
For j=i+1 To 6
If a(k)>a(j) Then
Next j
If i<>k Then
t=a(k):a(k)=a(i):a(i)=t
End If
Next i
For i=1 To 6
s=s+Str(a(i))
Next i
Label1.Caption=s
End Sub
Private Sub Command2_Click ( ?。?br />b(1)=3:b(2)=8:b(3)=15:b(4)=27:b(5)=38:b(6)=49
'此處部分代碼省略
End Sub
Private Sub Command3_Click ( ?。?br />'將數(shù)組a和b中的數(shù)據(jù)逐個比較后添加到新的字符串s中,并將s在label3中顯示
i=1:j=1:s=““
Do While i<=6
If
s=s+Str(a(i)):i=i+1
Else
s=s+Str(b(j)):j=j+1
End If
Loop
Do While i<=6'只有數(shù)組a還有數(shù)據(jù)未合并
s=s+Str(a(i)):i=i+1
Loop
Do While j<=6'只有數(shù)組b還有數(shù)據(jù)未合并
s=s+Str(b(j)):j=j+1
Loop
Label3.Caption=s
End Sub.組卷:10引用:1難度:0.1