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