2019年4月浙江省普通高中學考選考信息技術模擬試卷

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

• 1．下列關于信息與信息安全的說法正確的是（　　）

  A．物質、能源、信息是人類社會的三大要素，使用過程中都會有損耗

  B．二維碼中可能包含手機病毒、釣魚網站等相關信息

  C．計算機病毒主要通過網絡傳播，只要不上網就不會感染計算機病毒

  D．信息技術的發展對人類社會產生了巨大變革，虛擬現實技術使信息脫離載體被表示
  組卷：28引用：5難度：0.5

  解析

• 2．下列關于因特網信息表達與評價的說法正確的是（　　）

  A．網頁是有HTTP語言編寫的，可以由記事本、FrontPage等軟件編輯

  B．統計評價是網絡信息評價的主要方式之一，評價結果是真實可信的

  C．使用瀏覽器收藏網頁，實際上是保存的時網頁的URL

  D．將網頁以“Web檔案，單個文件（*．mht）”類型保存，其中的圖片未被保存
  組卷：43引用：1難度：0.4

  解析

• 3．下列關于字處理的相關說法正確的是（　　）

  A．在Word軟件中，將批注的內容刪除后，批注框會被保留

  B．在Word軟件中，關閉“修訂”功能后，原有的修訂記錄會自動隱藏

  C．在Word軟件中，將圖片設置為“嵌入型”，則可使得文字環繞圖片的四周

  D．在Word軟件中，“自動更正”功能可以自動更正錯別字，屬于人工智能技術
  組卷：33引用：1難度：0.5

  解析

• 4．某商場將采用“會員管理系統”管理客戶的信息，會員信息表如下
  

  會員編號	姓名	積分	性別	余額	出生日期
  V101	張小明	461	男	￥820.0	1999-12-21
  P103	李小紅	5000	女	￥786.0	2000-01-24
  ……	……	……	……	……	……

  若用Access數據表“會員信息”來存儲上述表的信息，下列說法錯誤的是（　　）

  A．“會員管理系統”是一個數據庫應用系統

  B．“會員編號”字段可以設置為“文本”類型

  C．為了便于信息管理，應將“姓名”字段設置成該表的主鍵

  D．在設計“會員信息”表時，需要考慮表與表之間的關系
  組卷：21引用：1難度：0.4

  解析

• 5．某算法的部分流程圖如圖所示，執行這部分流程，則輸出m,n,i的值依次為（　　）

  A．3  14  7

  B．0  20  7

  C．0  15  6

  D．3  15  7
  組卷：6引用：1難度：0.5

  解析

二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）

• 16．數組a中存儲的是一組正整數，特征是：①以三個數為一組的話，每組中任意一個數都比前面一組中的任意一個數要大；②每組中三個數依次遞減；③數組中數的總個數為3的倍數。依據對分查找思想，設計一個在數組a中查找數據key的程序。實現該功能的VB程序如下，但加框處代碼有錯，請改正。
  
  Private Sub Command1_Click （　　）
  Const n=15
  Dim a（1 To n） As Integer,search As Integer,key As Integer
  Dim i As Integer,j As Integer,m As Integer
  '讀取一組正整數，按上述規則存入數組a中，代碼略。
  key=Val（Text1．Text）
  i=1：j=n：search=0
  Do While i＜=j
  m=（i+j）\2
  If m Mod 3＜＞0 Then m='（1）把m調整到三個一組的最后一個數的位置
  If key=a（m） Then
  search=m：Exit Do
  ElseIf key＜a（m） Then
  j=m-3
  ElseIf  Then'（2）
  i=m+1
  ElseIf key=a（m-2）Then
  search=m-2：Exit Do
  ElseIf key=a（m-1）Then
  search=m-1：Exit Do
  Else
  search=0：Exit Do
  End If
  Loop
  If search＜＞0 Then
  Text2．Text=Str（search）
  Else
  Text2．Text=“找不到“
  End IfEnd Sub
  組卷：5引用：1難度：0.4

  解析

• 17．小胡收集了2018屆高三學生高考成績及相關的選科情況，存入數據庫中，部分界面截圖如圖所示：
  
  程序功能如下：
  在窗體加載時，從數據庫中讀取學生總數N；讀取N名學生的信息存儲在相關數組中。N名學生的學號依次存儲在數組xh（1）～xh（n） 中；學號為i的學生的總成績存儲在數組 zf（i）中，課程選修信息存儲在xk（i）中；
  點擊“統計”按鈕后，程序篩選出所有技術考生的相關信息，并計算該學生在所有技術考生中的排名（總分相同的，排名也相同）。
  實現上述功能的VB程序如下，請回答下列問題：
  （1）請在橫線處填入合適的代碼。
  Dim xh（1 To 1000）As Integer’數據庫中讀取時第i為學生的學號存儲在xh（i）
  Dim zf（1 To 1000）As Integer’學號為i的考生的總分存儲在zf（i）
  Dim xk（1 To 1000）As String’學號為i的考生的選考課程信息存儲在zf（i）
  ’數據格式**-**-**（如：物理-化學-生物）
  Dim jspm（1 To 1000）As Integer’學號為i的技術選考生的總分在所有技術考生中的
  ’排名存儲在數組jspm（i）
  Private Sub Form_Load （　　）
  Dim conn   As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Dim  constr  as string,sql as string
  Constr=“Provider=Microsoft.ace.OLEDB.12.0；“
  Constr=constr &“Data Source=“& App.Path+“\data\stu2018．accdb“
  conn.ConnectionString=constr
  conn.open （　　）
  rs.Open“select*from 2018cj“，conn
  i=0
  Do While Not rs.EOF
  i=i+1
  xh（i）=rs（“xuehao”）
  zf（rs（“xuehao”））=rs（“fenshu”）
  xk（rs（“xuehao”））=rs（“xkinfo”）
  

   

  
  Loop
  N=i
  End Sub
  ’判斷選科信息info中是否包含科目km
  Function YouKM（ByVal km As String,ByVal Info As String） As Boolean
  Dim km1 As String
  YouKM=False
  For i=1 To 3
  If

   

   Then
  YouKM=True
  Exit For
  End If
  Next i
  End Function
  '為技術學科考試求名次
  Private Sub Command1_Click （　　）
  Dim jsinfo（1 To 1000）As Integer’依次存儲每個技術選考生的學號和成績
  Dim k as integer’存儲找到的技術選考學生的數量
  '將所有選考“技術”的考生學號、成績依次存入數組jsinfo中
  k=0
  For i=1 To n
  If

   

  Then
  k=k+1
  jsinfo（2*k-1）=xh（i）
  jsinfo（2*k）=cj（xh（i））
  End If
  Next i
  '學號為i的學生在技術選考生中的排名，存入jspm（i）中
  For i=1 To k
  mc=0
  For j=1 To k
  If jsinfo （2*j）＞jsinfo （2*i） Then mc=mc+1
  Next j
  jspm（jsinfo（2*i-1））=

   

  
  Next i
  '輸出所有技術考試的學號、成績、技術排名信息  代碼略
  End Sub
  組卷：6引用：1難度：0.4

  解析