2016年浙江省普通高校高考信息技術(shù)模擬試卷（4）
發(fā)布：2024/12/13 17:0:3
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求）
-
1．下列有關(guān)信息的說(shuō)法，不正確的是（ ?。?/h2>
組卷：11引用：2難度：0.9 -
2．如果二進(jìn)制101101B的權(quán)值可以表示為：543210，那么十六進(jìn)制16A3H的權(quán)值可以表示為（ ?。?/h2>
組卷：4引用：1難度：0.9 -
3．在IE瀏覽器中要將“浙江高考”網(wǎng)站首頁(yè)保存到本地計(jì)算機(jī)，有如下操作：
①在“保存網(wǎng)頁(yè)”對(duì)話框中，單擊“保存”按鈕
②打開(kāi)“浙江高考”網(wǎng)站的首頁(yè)
③單擊“文件”菜單下的“另存為”選項(xiàng)
④在“保存網(wǎng)頁(yè)”對(duì)話框中，選擇要保存的文件夾
正確的順序是（ ?。?/h2>組卷：8引用：1難度：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)的是（ ）組卷：5引用：2難度：0.5
二、解答題（共5小題，滿分26分）
-
16．編寫(xiě)VB應(yīng)用程序，當(dāng)用戶輸入的一串由字母、數(shù)字等字符組成的字符串，統(tǒng)計(jì)其中每個(gè)字母出現(xiàn)的次數(shù)（不分大小寫(xiě)）．程序運(yùn)行時(shí)界面如圖1所示．
（1）設(shè)計(jì)應(yīng)用程序界面時(shí)，為添加標(biāo)簽對(duì)象“輸入字串：”，應(yīng)使用圖2所示的“控件工具箱”中的（填寫(xiě)相應(yīng)編寫(xiě)），并在圖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é)果，沒(méi)有出現(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ī)定積分排名（從大到小）在前10位的會(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)填寫(xiě)的程序段為：、．組卷：9引用：2難度：0.1