2016-2017學年浙江省金華十校高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．下列關(guān)于人工智能的說法，不正確的是（ ）
組卷：9引用：2難度：0.9 -
2．下列說法中，不正確的是（ ?。?/h2>
組卷：6引用：1難度：0.9 -
3．下列關(guān)于多媒體技術(shù)應用的描述，正確的是（ ?。?/h2>
組卷：22引用：1難度：0.9 -
4．使用UltraEdit軟件觀察字符內(nèi)碼，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：9引用：1難度：0.5 -
5．使用Word軟件編輯某文檔，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：4引用：2難度：0.2
二、填空題（共5小題，每小題4分，滿分26分）
-
16．某校每年都舉辦校園十佳歌手比賽，小明用VB編寫了一個計分用的程序用于統(tǒng)計處理比賽成績，運行界面如圖所示。
在輸入?yún)^(qū)域輸入選手編號和每位評委給該選手的打分后，單擊“計算平均得分”按鈕Command1，得到當前選手的最終得分，并顯示在列表框List1中。所有選手的成績輸入完畢后，單擊“排名”按鈕Command2，在列表框List2中顯示按編號順序排列的選手得分及名次（若得分一樣，排名相同），再在列表框List3中顯示按名次順序排列的前十位選手的編號及得分。
實現(xiàn)上述功能的VB程序如下，代碼加框處有錯，請改正。
Const rs=20'參賽總?cè)藬?shù)為20
Dim num（1 To rs）As Integer'存放選手編號
Dim se（1 To rs）As Double'存放選手得分
Dim rk（1 To rs）As Integer'存放選手名次
Private Sub Command1_Click（ ?。?br />'計算每位選手的平均得分并顯示到列表框List1中，代碼略
End Sub
Private Sub Command2_Click（ ?。?br />Dim i As Integer,j As Integer,me As Integer
List2．Clear：List3．Clear
For i=1 To rs
mc=0
'①
If sc（i）＜sc（j） Then mc=mc+1
Next j
'②
Nxet i
For i=1 To rs
List2．AddItem num（i）&“號選手“&““&Format（Str（sc（i）），“00.00“）&““&rk（i）
Nxet i
'在列表框List3中按名次順序顯示選手信息，代碼略
End Sub
加框①處的代碼應改為：；加框②處的代碼應改為：。組卷：2引用：1難度：0.5 -
17．在英語學科的網(wǎng)上閱卷中，因技術(shù)還不夠成熟，寫作部分仍需手工評卷．在李老師的建議下，小明決定用VB語音對識別成功后的作文做一些初評．他的設(shè)想是：
（1）按位依次取出每個單詞，存入數(shù)組wd中：每個單詞出現(xiàn)的次數(shù)存儲在數(shù)組wd_num中；單詞的字符長度存儲在數(shù)組wd_len中．為方便統(tǒng)計，所有字母均轉(zhuǎn)換為小寫．
（2）所有單詞全部取出并存好后，將這些單詞按字典順序重新排列，對應的長度和出現(xiàn)的次數(shù)也跟著重新排列．
（3）評卷的標準之一是“必須出現(xiàn)指定的關(guān)鍵詞”．這些關(guān)鍵詞在統(tǒng)計之前先輸入并存放在數(shù)組key中．程序中用二分查找法在數(shù)組wd中找到每個關(guān)鍵詞出現(xiàn)的次數(shù)，存儲在數(shù)組key_num中．
（4）最后輸出統(tǒng)計結(jié)果，包括單詞的數(shù)量、單詞的平均長度，以及每個關(guān)鍵詞出現(xiàn)的次數(shù)．運行界面如圖所示：
請回答下列問題：
（1）根據(jù)小明的設(shè)想，如果輸入距離“Read,let the words warm your stillness.”，則經(jīng)過統(tǒng)計后，數(shù)組元素wd_len（3）的值為．
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼．
Const keynum=7'關(guān)鍵詞的個數(shù)為7個
Dim key （1 To keynum） As String'數(shù)組key用于存放指定的關(guān)鍵詞
Dim key_num（1 To keynum） As Integer'數(shù)組key_num用于存放每個關(guān)鍵詞出現(xiàn)的次數(shù)
Dim wd（1 To 500）As String'數(shù)組wd用于存放從作文中提取出來的每個單詞
Dim wd_len（1 To 500）As Integer'數(shù)組wd_len用于存放wd中每個單詞的長度
Dim wd_num（1 To 500）As Integer'數(shù)組wd_num用于存放wd中每個單詞在作文中出現(xiàn)的次數(shù)
Function dtox（ch As String） As String
If ch＞=“A“And ch＜=“Z“Then dtox=Chr（Asc（ch）+32）Else dtox=ch
End Function
Private Sub Form_Load（ ）
'對部分變量和數(shù)組進行初始化，代碼略
End Sub
Private Sub Text2_KeyPress（KeyAscii As Integer）
'將逐個輸入的關(guān)鍵詞依次存入數(shù)組key中，并在List1中顯示出來，代碼略
End Sub
Private Sub Command1_Click（ ?。?br />'其他變量的定義，代碼略
List2．Clear
'以下程序段用于將作文中的每個單詞提取出來，存入數(shù)組wd中
atc=Text1．Text：m=0：word=““
flag1=False'flag=False表示一個單詞的開始，單詞個數(shù)m增加1，
'flag=True表示余下的連續(xù)字母不再計數(shù)，
For i=1 To Len（atc）'按位取出字符，若是大寫字母，則轉(zhuǎn)換為小寫字母
If char＞=“a“And char＜=“z“Then
word=word+char
If Not flag1 Then m=m+1：flag1=True
Else
flag1=False
'檢查該單詞在數(shù)組wd中是否已經(jīng)存在
flag2=False
For j=1 To m-1
If wd（j）=word Then.組卷：5引用：1難度：0.1