2017年浙江省普通高校高考信息技術(shù)模擬試卷（15）

一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個(gè)備選中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）

• 1．下列有關(guān)信息安全的說(shuō)法，正確的是（　?。?/h2>

  A．任何一款殺毒軟件都不能查殺所有的計(jì)算機(jī)病毒，因此不必安裝殺毒軟件

  B．有的計(jì)算機(jī)病毒能幫助查殺其他的病毒，因此計(jì)算機(jī)病毒的危害不大

  C．計(jì)算機(jī)黑客能輕松破解密碼，因此經(jīng)常更換計(jì)算機(jī)系統(tǒng)的密碼沒(méi)有必要

  D．計(jì)算機(jī)病毒和黑客都能給用戶帶來(lái)?yè)p失，因此我們必須高度關(guān)注計(jì)算機(jī)安全
  組卷：7引用：1難度：0.9

  解析

• 2．某小游戲界面如圖所示，游戲隨機(jī)生成由7行7列共49個(gè)小動(dòng)物頭像組成的狀態(tài)，頭像共分6個(gè)不同種類(lèi)．對(duì)當(dāng)前狀態(tài)進(jìn)行二進(jìn)制編碼，需要多少位二進(jìn)制（　?。?br />

  A．49

  B．147

  C．196

  D．294
  組卷：30引用：1難度：0.9

  解析

• 3．在研究性學(xué)習(xí)活動(dòng)中，小強(qiáng)同學(xué)代表其小組書(shū)寫(xiě)了結(jié)題報(bào)告，文檔名為“baogao.docx”，發(fā)給小組成員要求進(jìn)行修改，作為小組成員之一的你在修改文檔時(shí)，應(yīng)先啟用的Word功能是（　?。?/h2>

  A．修訂

  B．批注

  C．查找和替換

  D．自動(dòng)更正
  組卷：8引用：2難度：0.9

  解析

• 4．以下關(guān)于數(shù)據(jù)庫(kù)的說(shuō)法中，不正確的是（　?。?/h2>

  A．一個(gè)數(shù)據(jù)庫(kù)可以由若干張數(shù)據(jù)表組成，一張數(shù)據(jù)表用來(lái)存儲(chǔ)同一類(lèi)型的相關(guān)數(shù)據(jù)

  B．在數(shù)據(jù)表中，刪除記錄是不可恢復(fù)的

  C．?dāng)?shù)據(jù)庫(kù)中保存的數(shù)據(jù)與應(yīng)用程序是緊密關(guān)聯(lián)的

  D．用戶可以用數(shù)據(jù)庫(kù)查詢語(yǔ)言對(duì)數(shù)據(jù)庫(kù)或數(shù)據(jù)表中的數(shù)據(jù)進(jìn)行各種操作
  組卷：5引用：1難度：0.7

  解析

• 5．產(chǎn)生[a,b]（a,b都是整數(shù)且a＜b）范圍內(nèi)某一隨機(jī)整數(shù)的VB表達(dá)式是（　　）

  A．Int（Rnd*a）+b	B．Int（Rnd*b）+a
  C．Int（Rnd*（b-a+1））+a	D．Int（Rnd*（b-a））+a
  組卷：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ù)．編寫(xiě)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所示“控件工具箱”中的

   

  （填寫(xiě)相應(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.accdb”的“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.accdb”'設(shè)置conn的數(shù)據(jù)庫(kù)鏈接字符串
  conn.Open'找開(kāi)數(shù)據(jù)鏈接
  rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，關(guān)聯(lián)conn
  rs.Open“SELECT*FROM stu”'打開(kāi)記錄集，獲取數(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

  解析