2017年浙江省普通高校高考信息技術(shù)模擬試卷（15）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個(gè)備選中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）
-
1．下列有關(guān)信息安全的說(shuō)法，正確的是（ ?。?/h2>
組卷：7引用：1難度：0.9 -
2．某小游戲界面如圖所示，游戲隨機(jī)生成由7行7列共49個(gè)小動(dòng)物頭像組成的狀態(tài)，頭像共分6個(gè)不同種類．對(duì)當(dāng)前狀態(tài)進(jìn)行二進(jìn)制編碼，需要多少位二進(jìn)制（ ）
組卷：30引用：1難度：0.9 -
3．在研究性學(xué)習(xí)活動(dòng)中，小強(qiáng)同學(xué)代表其小組書寫了結(jié)題報(bào)告，文檔名為“baogao.jye.ai”，發(fā)給小組成員要求進(jìn)行修改，作為小組成員之一的你在修改文檔時(shí)，應(yīng)先啟用的Word功能是（ ?。?/h2>
組卷：8引用：2難度：0.9 -
4．以下關(guān)于數(shù)據(jù)庫(kù)的說(shuō)法中，不正確的是（ ）
組卷：5引用：1難度：0.7 -
5．產(chǎn)生[a,b]（a,b都是整數(shù)且a＜b）范圍內(nèi)某一隨機(jī)整數(shù)的VB表達(dá)式是（ ?。?/h2>
組卷：12引用：5難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題4分，第15小題5分，第16小題8分，第17小題5分，共26分）
-
16．【加試題】一個(gè)四位數(shù)，如果它各位上數(shù)字的4次方之和等于這個(gè)四位數(shù)本身，則稱這個(gè)四位數(shù)為四葉玫瑰數(shù)．編寫VB程序，實(shí)現(xiàn)功能如下：?jiǎn)螕簟八娜~玫瑰數(shù)”按鈕Command1，在標(biāo)簽Label1中顯示四葉玫瑰數(shù)的個(gè)數(shù)，在列表框List1中顯示所有四葉玫瑰數(shù)，運(yùn)行界面如圖1所示．
（1）在設(shè)計(jì)應(yīng)用程序界面時(shí)，可通過(guò)圖2所示“控件工具箱”中的（填寫相應(yīng)編號(hào)）添加列表框List1對(duì)象．
（2）為實(shí)現(xiàn)程序功能，請(qǐng)?jiān)冖佟ⅱ?、③處填入合適代碼．
Private Sub Command1_Click（ ）
Dim k As Integer'統(tǒng)計(jì)四葉玫瑰數(shù)個(gè)數(shù)
Dim a,b,c,d As Integer
Dim i As Integer
k=0'查找范圍是4位數(shù)
a=i\1000'千位上的數(shù)字
b=（i Mod 1000）\100'百位上的數(shù)字
c=（i Mod 100）\10'十位上的數(shù)字
d='個(gè)位上的數(shù)字
If a^4+b^4+c^4+d^4=i Then
List1．AddItem str（i）'將找到的四葉玫瑰數(shù)添加到列表框
k=k+1
End If
Next i=“一共找到”+Str（k）+“個(gè)四葉玫瑰數(shù)：”
'顯示四葉玫瑰數(shù)的個(gè)數(shù)
End Sub
（3）本程序通過(guò)循環(huán)語(yǔ)句逐一判斷來(lái)查找出所有四葉玫瑰數(shù)，這種算法屬于算法．（選項(xiàng)：解析/枚舉）組卷：16引用：2難度：0.1 -
17．【加試題】課堂隨機(jī)提問(wèn)產(chǎn)生器．小葉同學(xué)發(fā)現(xiàn)老師在上課提問(wèn)時(shí)喜歡叫座位靠前的同學(xué)回答問(wèn)題，有時(shí)一節(jié)課會(huì)重復(fù)叫到某一位同學(xué)多次，為了實(shí)現(xiàn)每個(gè)同學(xué)被叫到回答問(wèn)題的幾率均等，且在一節(jié)課老師提問(wèn)次數(shù)少于班級(jí)總?cè)藬?shù)時(shí)，被叫到過(guò)回答問(wèn)題的同學(xué)本節(jié)課不再被叫到，小葉同學(xué)用VB設(shè)計(jì)了一個(gè)課堂隨機(jī)提問(wèn)產(chǎn)生器，功能如下：運(yùn)行程序時(shí)，在列表框List1中顯示班級(jí)學(xué)生數(shù)據(jù)，單擊“隨機(jī)叫號(hào)”按鈕Command1，在文本框Text1、Text2中分別顯示學(xué)生學(xué)號(hào)和姓名，其應(yīng)用程序界面如圖所示．
班級(jí)學(xué)生的具體數(shù)據(jù)信息存放在數(shù)據(jù)庫(kù)文件“student.jye.ai”的“stu”表中，班級(jí)學(xué)生數(shù)不超過(guò)60人．
實(shí)現(xiàn)上述功能的VB程序代碼如下：
Dim xh（1To 60）As Integer'定義存儲(chǔ)學(xué)生學(xué)號(hào)的數(shù)組xh
Dim Xm（1To 60）As String'定義存儲(chǔ)學(xué)生學(xué)號(hào)姓名的數(shù)組xm
Dim flag（1To 60）As Boolean'定義存儲(chǔ)學(xué)生是否被提問(wèn)過(guò)
flag
Dim n As Integer'定義存儲(chǔ)班級(jí)學(xué)生總數(shù)的變量n
Dim num As Integer'定義存儲(chǔ)產(chǎn)生的隨機(jī)序號(hào)num
Dim total As Integer
Private Sub Command1_Click（ ?。?br />Randomize
num=Int（Rnd*n）+1
Do While
num=Int（Rnd*n）+1
Loop
flag（num）=True
total=total+1
Text1．Text=xh（num）
Text2．Text=xm（num）
If total＞=n Then
For i=1To n
flag（i）=False
n=0
Next i
End If
End Sub
Private Sub Form_Load（ ）
Dim con As New ADODB．Connection'定義Connection對(duì)象實(shí)例conn
Dim rs As New ADODB．Recordset'定義Recordset對(duì)象實(shí)例rs
conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=”& App.Path &“\student.jye.ai”'設(shè)置conn的數(shù)據(jù)庫(kù)鏈接字符串
conn.Open'找開數(shù)據(jù)鏈接
rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，關(guān)聯(lián)conn
rs.Open“SELECT*FROM stu”'打開記錄集，獲取數(shù)據(jù)
n=0
Do While Not rs.EOF
n=n+1
xh（n）=rs.Fields（0）'學(xué)生學(xué)號(hào)字段的序號(hào)為0
xm（n）=rs.Fields（1）'學(xué)生姓名字段的序號(hào)為1
List1．AddItem xh（n）&“--”& xm（n）
rs.MoveNext
Loop rs.Close
For i=1To n'初始化flag數(shù)組的值
flag（i）=Flase
Next i
total=0
End Sub
（1）請(qǐng)?jiān)跈M線處填上合適的代碼．
程序中①橫線處應(yīng)填入．
程序中②橫線處應(yīng)填入．
（2）如將產(chǎn)生隨機(jī)數(shù)的程序代碼“Int（Rnd*n）+1”中的變量n直接用xh數(shù)組下標(biāo)60來(lái)替換，會(huì)出現(xiàn)沒(méi)有學(xué)生回答問(wèn)題的現(xiàn)象，請(qǐng)簡(jiǎn)要說(shuō)明原因：．組卷：17引用：1難度：0.1