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

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

• 1．下列有關(guān)信息安全的說法，正確的是（　　）

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

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

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

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

  解析

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

  A．49

  B．147

  C．196

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

  解析

• 3．在研究性學(xué)習(xí)活動中，小強同學(xué)代表其小組書寫了結(jié)題報告，文檔名為“baogao.docx”，發(fā)給小組成員要求進行修改，作為小組成員之一的你在修改文檔時，應(yīng)先啟用的Word功能是（　　）

  A．修訂

  B．批注

  C．查找和替換

  D．自動更正
  組卷：8引用：2難度：0.9

  解析

• 4．以下關(guān)于數(shù)據(jù)庫的說法中，不正確的是（　　）

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

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

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

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

  解析

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

  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．【加試題】一個四位數(shù)，如果它各位上數(shù)字的4次方之和等于這個四位數(shù)本身，則稱這個四位數(shù)為四葉玫瑰數(shù)．編寫VB程序，實現(xiàn)功能如下：單擊“四葉玫瑰數(shù)”按鈕Command1，在標(biāo)簽Label1中顯示四葉玫瑰數(shù)的個數(shù)，在列表框List1中顯示所有四葉玫瑰數(shù)，運行界面如圖1所示．
  
  （1）在設(shè)計應(yīng)用程序界面時，可通過圖2所示“控件工具箱”中的

   

  （填寫相應(yīng)編號）添加列表框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．【加試題】課堂隨機提問產(chǎn)生器．小葉同學(xué)發(fā)現(xiàn)老師在上課提問時喜歡叫座位靠前的同學(xué)回答問題，有時一節(jié)課會重復(fù)叫到某一位同學(xué)多次，為了實現(xiàn)每個同學(xué)被叫到回答問題的幾率均等，且在一節(jié)課老師提問次數(shù)少于班級總?cè)藬?shù)時，被叫到過回答問題的同學(xué)本節(jié)課不再被叫到，小葉同學(xué)用VB設(shè)計了一個課堂隨機提問產(chǎn)生器，功能如下：運行程序時，在列表框List1中顯示班級學(xué)生數(shù)據(jù)，單擊“隨機叫號”按鈕Command1，在文本框Text1、Text2中分別顯示學(xué)生學(xué)號和姓名，其應(yīng)用程序界面如圖所示．
  
  班級學(xué)生的具體數(shù)據(jù)信息存放在數(shù)據(jù)庫文件“student.accdb”的“stu”表中，班級學(xué)生數(shù)不超過60人．
  實現(xiàn)上述功能的VB程序代碼如下：
  Dim xh（1To 60）As Integer'定義存儲學(xué)生學(xué)號的數(shù)組xh
  Dim Xm（1To 60）As String'定義存儲學(xué)生學(xué)號姓名的數(shù)組xm
  Dim flag（1To 60）As Boolean'定義存儲學(xué)生是否被提問過
  flag
  Dim n As Integer'定義存儲班級學(xué)生總數(shù)的變量n
  Dim num As Integer'定義存儲產(chǎn)生的隨機序號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對象實例conn
  Dim rs As New ADODB．Recordset'定義Recordset對象實例rs
  conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=”& App.Path &“\student.accdb”'設(shè)置conn的數(shù)據(jù)庫鏈接字符串
  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é)號字段的序號為0
  xm（n）=rs.Fields（1）'學(xué)生姓名字段的序號為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）請在橫線處填上合適的代碼．
  程序中①橫線處應(yīng)填入

   

  ．
  程序中②橫線處應(yīng)填入

   

  ．
  （2）如將產(chǎn)生隨機數(shù)的程序代碼“Int（Rnd*n）+1”中的變量n直接用xh數(shù)組下標(biāo)60來替換，會出現(xiàn)沒有學(xué)生回答問題的現(xiàn)象，請簡要說明原因：

   

  
  

   

  ．
  組卷：17引用：1難度：0.1

  解析