2017年浙江省杭州市蕭山區(qū)高考信息技術(shù)模擬試卷（22）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求，不選、多選、錯(cuò)選均不得分）
-
1．下列有關(guān)信息的說法，不正確的是（ ）
組卷：11引用：2難度：0.9 -
2．用UltraEdit軟件觀察“Bonnie@163．com”這幾個(gè)字符的內(nèi)碼，如圖所示．
則“&Andy”這幾個(gè)字符的內(nèi)碼是（ ）組卷：10引用：2難度：0.9 -
3．“Parkour”一詞翻譯成中文為“跑酷”，《地鐵沖浪》就是一款流行的移動(dòng)設(shè)備跑酷游戲，其軟件開發(fā)團(tuán)隊(duì)在制作前先調(diào)查研究了用戶對(duì)該產(chǎn)品的需求情況，這屬于多媒體作品制作過程（ ?。?/h2>
組卷：10引用：6難度：0.9 -
4．光學(xué)字符識(shí)別（OCR）技術(shù)，可以實(shí)現(xiàn)的功能是（ ）
組卷：5引用：2難度：0.5 -
5．使用 Access軟件創(chuàng)建一張數(shù)據(jù)表，其結(jié)構(gòu)如第圖所示：在該數(shù)據(jù)表中錄入數(shù)據(jù)時(shí)，下列操作能實(shí)現(xiàn)的是（ ?。?/h2>組卷：5引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．編寫VB應(yīng)用程序，當(dāng)用戶輸入的一串由字母、數(shù)字等字符組成的字符串，統(tǒng)計(jì)其中每個(gè)字母出現(xiàn)的次數(shù)（不分大小寫）．程序運(yùn)行時(shí)界面如圖1所示．
（1）設(shè)計(jì)應(yīng)用程序界面時(shí)，為添加標(biāo)簽對(duì)象“輸入字串：”，應(yīng)使用圖2所示的“控件工具箱”中的（填寫相應(yīng)編寫），并在圖3所示的“屬性窗口”中，將屬性設(shè)置為“輸入字串：”．
（2）程序運(yùn)行時(shí)，在Text1中輸入字符串，單擊“統(tǒng)計(jì)”按鈕，在List1中顯示統(tǒng)計(jì)結(jié)果．請(qǐng)?jiān)跈M線處填入合適代碼．
‘函數(shù)IsLetter（x）功能，若x是字母，則返回值為字母x在字母序列“A”～“Z”中的序號(hào)，如字母“A”的序號(hào)為0，字母“D”的序號(hào)為3．若x不是字母，則返回值為-1．
Function IsLetter（x As String） As Integer
If“A“＜=x And x＜=“Z“Then
IsLetter=Asc（x）-Asc（“A“）
ElseIf“a“＜=x And x＜=“z“Then
IsLetter=Asc（x）-Asc（“a“）
Else
End If
End Function
Private Sub Command1_Click
Dim f（25）As Integer,m As Integer,n As Integer
Dim s As String,c As String
List1．Clear
For m=0To 25‘初始化數(shù)組f
f（m）=0
Next m
s=Text1．Text
For m=1To Len（s）‘依次讀取字符串中的每個(gè)字符進(jìn)行判斷
c=Mid（s,m,1）
n=IsLetter（c）
If n＜＞-1Then f（n）=f（n）+1
Next m
For m=0To 25‘輸出統(tǒng)計(jì)結(jié)果，沒有出現(xiàn)的字母不輸出
IfThen
List1．AddItem （Chr（m+Asc（“a“）） &“：“& f（m））
End If
Next m
End Sub.組卷：11引用：4難度：0.1 -
17．某超市舉行抽獎(jiǎng)活動(dòng)，規(guī)定積分排名（從大到?。┰谇?0位的會(huì)員可以參加特等獎(jiǎng)抽獎(jiǎng)．下列程序能根據(jù)左邊列表框中的積分?jǐn)?shù)據(jù)統(tǒng)計(jì)出積分最高的前10位會(huì)員卡號(hào)（程序界面如第17題圖所示），數(shù)組a和b分別保存會(huì)員卡號(hào)和對(duì)應(yīng)的積分，單擊“統(tǒng)計(jì)前10名”按鈕（Command1）后，積分最高的前10名會(huì)員卡號(hào)和對(duì)應(yīng)積分就顯示在右邊的列表框List2中．
Private Sub Command1_Click
Dim t1As String,t2As Long,k As Integer
For i=1To 10
k=i
For j=i+1To n'n表示所有參與排序的會(huì)員人數(shù)
If b（j）＞b（k） Then k=j'①
Next j
If k＜＞i Then'②
t1=a（i）：a（i）=a（k）：a（k）=t1
t2=b（i）：b（i）=b（k）：b（k）=t2
End If
Next j
Next i
List2．AddItem“會(huì)員卡號(hào)“+““+“會(huì)員積分“
End Sub
（1）如果要統(tǒng)計(jì)出積分最低的10名會(huì)員，只需在上述程序段中標(biāo)有①②的行中選擇一行進(jìn)行修改即可，那么應(yīng)該修改的代碼行為（填：①/②），該行代碼應(yīng)該修改為．
（2）上列程序中標(biāo)有③的方框內(nèi)應(yīng)填寫的程序段為：、．組卷：9引用：2難度：0.1