2018-2019學年浙江省寧波市北侖中學高二（上）期初信息技術試卷
發布：2024/4/20 14:35:0
一．選擇題：（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列應用中，體現了人工智能技術的有（ ）
①停車場車牌識別技術的應用
②Word軟件的查找、替換功能
③手機延時30秒暗屏
④手機微信搖一搖識別歌曲名稱
⑤二維碼識別
⑥刷臉考勤組卷：15引用：8難度：0.9 -
2．一個六位二進制數100□□1，其中有兩位數字模糊不清．下列數中，與此二進制數大小不可能相等的是（ ）
組卷：8引用：4難度：0.7 -
3．某網站首頁截圖如圖所示，下列說法不正確的是（ ）
組卷：7引用：3難度：0.5 -
4．有一Access數據表，表的結構如圖所示，在數據錄入時截圖如右圖所示，下列說法正確的是（ ）
組卷：11引用：7難度：0.9 -
5．某算法的部分流程圖如圖所示，執行這部分流程后，變量x和Flag的值分別是（ ）組卷：9引用：11難度：0.7
二．非選擇題（本大題共5小題，其中第13小題4分，第14小題4分，第15小題8分，第16小題5分，第17小題5分，共26分）
-
16．編寫“字母出現頻率測試”程序，實現如下功能：在文本框 Text1 中輸入英文句子，單擊“統計”按鈕，在列表框 List1 中顯示小寫字母出現的次數，同時顯示字母出現頻率最高的次數。程序運行界面如題16圖所示。
（1）在設計程序界面時，使應使用題16圖所示“控件工具箱”中的（填寫相應編號）添加“統計”按鈕。
（2）實現“統計”功能的 VB 程序如下，請在橫線處填入合適的代碼。
Private Sub CmdTJ_Click （ ）
Dim count（25）As Integer
Dim ch,ch2As String
Dim m As Integer
ch=Text1．Text
For k=1To Len（ch）
①
n=Asc（ch2）-Asc（“a”）
If n＞=0And n＜=25Then
count（n）=count（n）+1
List1．AddItem“字母“+ch2+“出現“+Str（count（n））+“次“
End If
Next k
m=count（0）
For k=1To 25
If②Then m=count（k）
Next k
Label1．Caption=“字母最高出現“+Str（m）+“次“
End Sub組卷：2引用：1難度：0.5 -
17．“字符洗牌”程序模擬撲克洗牌的操作，為了打亂牌序，把手上的撲克牌中間抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中間的第3個到第5字母抽出并保持原來的順序放到最前面，則一次洗牌操作后字符串變成“34A12BCD”），也可以把撲克牌分成上下兩部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3個字符到最后一個字符移到前面，變成“34ABCD12”），多次重復做這個動作，就能達到洗牌的目的，效果如圖所示。
（1）若要把窗體的標題名稱由“Form1”改為“字符洗牌”，應改變窗體的屬性。
（2）完成上述功能的程序代碼如下，請在橫線處填入合適的代碼
Private Sub Command1_Click （ ）
Dim r As Integer,k1As Integer,k2As Integer
Dim s As String,n As Integer'從文本框TxtIn中獲取字符串
Randomize
r=Int（Rnd （ ）*10）+1'隨機生成洗牌次數
n=Len（s）
Do While r＞=1'洗牌操作
k1=Int（Rnd （ ）*（n-2））+2
k2=Int（Rnd （ ）*（n-k1+1））+k1
s=+Mid（s,1，k1-1）+Mid（s,k2+1，n-k2）
r=r-1
Loop
TxtOut.Text=s'在文本框TxtOut中輸出結果
End Sub
（3）若加框處的語句改為TxtOut.Text=Str（s），則運行程序時會發生的錯誤消息為（單選，填字母）
組卷：2引用：2難度：0.5