2017年浙江省普通高校高考信息技術(shù)模擬試卷（3）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共9小題，每小題2分，共24分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)符合題目要求，不選、多選、錯(cuò)選均不得分）
-
1．飛機(jī)的模擬駕駛室實(shí)現(xiàn)了飛行場(chǎng)景的全程模擬，體驗(yàn)者可以在模擬駕駛室內(nèi)體驗(yàn)操縱飛機(jī)進(jìn)行起、降、機(jī)場(chǎng)滑行、空中改變航向等一系列動(dòng)作．這種飛機(jī)模擬駕駛室主要應(yīng)用（ ?。?/h2>
組卷：6引用：2難度：0.9 -
2．小張從網(wǎng)上下載某軟件，下載頁(yè)面的部分截圖如圖所示．下列說(shuō)法正確的是（ ?。?br />
組卷：11引用：2難度：0.9 -
3．在Word中使用鍵盤輸入文本時(shí)，部分字詞的下方出現(xiàn)了紅色的波浪線，這表明這部分字詞處（ ?。?/h2>
組卷：4引用：5難度：0.9 -
4．某Access數(shù)據(jù)表打開(kāi)后如圖所示，下列說(shuō)法中正確的是（ ）
組卷：7引用：1難度：0.9 -
5．以下關(guān)于數(shù)據(jù)庫(kù)的說(shuō)法正確的是（ ?。?/h2>
組卷：12引用：1難度：0.5
【加試題】
-
16．某學(xué)校開(kāi)設(shè)多樣化選修課程，學(xué)生可以根據(jù)個(gè)人興趣和特長(zhǎng)選擇選修課．假設(shè)每門選修課的選課人數(shù)不超過(guò)40，學(xué)生選課的相關(guān)信息存放在數(shù)據(jù)庫(kù)文件“student.jye.ai”的data表中，選課查詢程序運(yùn)行時(shí)界面如圖所示．
程序功能：在文本框Text1中輸入課程號(hào)，單擊“查詢”按鈕Command1，在列表框List1中顯示選修本課程的各學(xué)生信息．如果沒(méi)有找到，在列表框中顯示“該課程當(dāng)前無(wú)人報(bào)名”．按此要求將程序補(bǔ)充完整．
Private Sub Command1_Click （ ?。?br />Dim xh（1to 40），xm（1to 40）As String'學(xué)號(hào)和姓名的數(shù)組
Dim i,num as integer
Dim conn As New ADODB．Connection,rs As New ADODB．
Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；DataSource=”+App.Path+“\student.jye.ai”'打開(kāi)到數(shù)據(jù)庫(kù)的鏈接
conn.Open
strSQL=“select xh,xm from data where課程=‘&（Text1．Text）&’”'設(shè)置查詢的SQL語(yǔ)句
Set rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫(kù)鏈接
rs.OpenstrSQL'打開(kāi)記錄集，將從表data中讀取的結(jié)果集保存到記錄集rs中
List1．Clear
num=0
DO while not rs.EOF
xh（num）=rs.Fields（“xh”）
xm（hum）=rs.Fields（“xm”）
rs.MoveNext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
For i=1to num
Next i
if num=0then
List1．a(chǎn)dditem（“該課程當(dāng)前無(wú)人報(bào)名”）
End Sub
（1）程序中①橫線處應(yīng)填入．
（2）程序中②橫線處應(yīng)填入．組卷：8引用：2難度：0.1 -
17．競(jìng)選班長(zhǎng)．編號(hào)分別為1、2、3、4、5的五位候選人參加班長(zhǎng)競(jìng)選，現(xiàn)要設(shè)計(jì)一個(gè)計(jì)票程序，根據(jù)回收的選票信息統(tǒng)計(jì)各位候選人的得票數(shù)，得票數(shù)最多的被選為班長(zhǎng)，并輸出班長(zhǎng)的編號(hào)．選票信息為一個(gè)數(shù)字序列，由每張選票的投票結(jié)果構(gòu)成，如某選票序列為101233303，其含義見(jiàn)如表所示．
程序運(yùn)行時(shí)，在文本框Text1中輸入選票信息，單擊“計(jì)算”按鈕Command1后，被選為班長(zhǎng)的編號(hào)顯示在文本框Text2中．程序運(yùn)行效果如圖所示．選票序列 1 0 1 2 3 3 3 0 3 含義 第1張選票投給1號(hào) 第2張選票棄權(quán) 第3張選票投給1號(hào) 第4張選票投給2號(hào) 第5張選票投給3號(hào) 第6張選票投給3號(hào) 第7張選票投給3號(hào) 第8張選票棄權(quán) 第9張選票投給3號(hào) 備注：選票序列101233303，序列中的數(shù)字i,表示投票給編號(hào)為i的人，即編號(hào)為i的人得1票，其中數(shù)字0表示不投給任何人，即為棄權(quán)．表中選票序列的投票結(jié)果為：1號(hào)得2票，2號(hào)得1票，3號(hào)4得票，4號(hào).5號(hào)均為0票（沒(méi)人投），所以3號(hào)得票數(shù)最高，被選為班長(zhǎng)．
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼．
Private Sub Command1_Click （ ?。?br />Dima（1To 5）As Integer
'數(shù)組元素a（1）～a（5）依次存放編號(hào)為1～5的五位候選人的得票數(shù)
Dim st As String,i As Integer,j As Integer,n As Integer
Dim ans As Integer'變量ans存放被選為班長(zhǎng)的人的編號(hào)
Dim max As Integer'變量max存放最多的得票數(shù)
st=Text1．Text
For i=1To 5
a（i）=0
Next i
For i=1To 5
For j=1To n
IfThen a（i）=a（i）+1
Next j
Next i
max=0
For i=1To 5
If a（i）＞max Then
max=a（i）：ans=i
Next i
End Sub.組卷：5引用：1難度：0.1