2019年4月浙江省普通高中學(xué)考選考信息技術(shù)模擬試卷

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

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

  A．物質(zhì)、能源、信息是人類(lèi)社會(huì)的三大要素，使用過(guò)程中都會(huì)有損耗

  B．二維碼中可能包含手機(jī)病毒、釣魚(yú)網(wǎng)站等相關(guān)信息

  C．計(jì)算機(jī)病毒主要通過(guò)網(wǎng)絡(luò)傳播，只要不上網(wǎng)就不會(huì)感染計(jì)算機(jī)病毒

  D．信息技術(shù)的發(fā)展對(duì)人類(lèi)社會(huì)產(chǎn)生了巨大變革，虛擬現(xiàn)實(shí)技術(shù)使信息脫離載體被表示
  組卷：28引用：5難度：0.5

  解析

• 2．下列關(guān)于因特網(wǎng)信息表達(dá)與評(píng)價(jià)的說(shuō)法正確的是（　?。?/h2>

  A．網(wǎng)頁(yè)是有HTTP語(yǔ)言編寫(xiě)的，可以由記事本、FrontPage等軟件編輯

  B．統(tǒng)計(jì)評(píng)價(jià)是網(wǎng)絡(luò)信息評(píng)價(jià)的主要方式之一，評(píng)價(jià)結(jié)果是真實(shí)可信的

  C．使用瀏覽器收藏網(wǎng)頁(yè)，實(shí)際上是保存的時(shí)網(wǎng)頁(yè)的URL

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

  解析

• 3．下列關(guān)于字處理的相關(guān)說(shuō)法正確的是（　?。?/h2>

  A．在Word軟件中，將批注的內(nèi)容刪除后，批注框會(huì)被保留

  B．在Word軟件中，關(guān)閉“修訂”功能后，原有的修訂記錄會(huì)自動(dòng)隱藏

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

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

  解析

• 4．某商場(chǎng)將采用“會(huì)員管理系統(tǒng)”管理客戶的信息，會(huì)員信息表如下
  

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

  若用Access數(shù)據(jù)表“會(huì)員信息”來(lái)存儲(chǔ)上述表的信息，下列說(shuō)法錯(cuò)誤的是（　　）

  A．“會(huì)員管理系統(tǒng)”是一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)

  B．“會(huì)員編號(hào)”字段可以設(shè)置為“文本”類(lèi)型

  C．為了便于信息管理，應(yīng)將“姓名”字段設(shè)置成該表的主鍵

  D．在設(shè)計(jì)“會(huì)員信息”表時(shí)，需要考慮表與表之間的關(guān)系
  組卷：21引用：1難度：0.4

  解析

• 5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程，則輸出m,n,i的值依次為（　?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201904/179/850543b3.png" style="vertical-align:middle" />

  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．數(shù)組a中存儲(chǔ)的是一組正整數(shù)，特征是：①以三個(gè)數(shù)為一組的話，每組中任意一個(gè)數(shù)都比前面一組中的任意一個(gè)數(shù)要大；②每組中三個(gè)數(shù)依次遞減；③數(shù)組中數(shù)的總個(gè)數(shù)為3的倍數(shù)。依據(jù)對(duì)分查找思想，設(shè)計(jì)一個(gè)在數(shù)組a中查找數(shù)據(jù)key的程序。實(shí)現(xiàn)該功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
  
  Private Sub Command1_Click （　?。?br />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
  '讀取一組正整數(shù)，按上述規(guī)則存入數(shù)組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調(diào)整到三個(gè)一組的最后一個(gè)數(shù)的位置
  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屆高三學(xué)生高考成績(jī)及相關(guān)的選科情況，存入數(shù)據(jù)庫(kù)中，部分界面截圖如圖所示：
  
  程序功能如下：
  在窗體加載時(shí)，從數(shù)據(jù)庫(kù)中讀取學(xué)生總數(shù)N；讀取N名學(xué)生的信息存儲(chǔ)在相關(guān)數(shù)組中。N名學(xué)生的學(xué)號(hào)依次存儲(chǔ)在數(shù)組xh（1）～xh（n） 中；學(xué)號(hào)為i的學(xué)生的總成績(jī)存儲(chǔ)在數(shù)組 zf（i）中，課程選修信息存儲(chǔ)在xk（i）中；
  點(diǎn)擊“統(tǒng)計(jì)”按鈕后，程序篩選出所有技術(shù)考生的相關(guān)信息，并計(jì)算該學(xué)生在所有技術(shù)考生中的排名（總分相同的，排名也相同）。
  實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
  （1）請(qǐng)?jiān)跈M線處填入合適的代碼。
  Dim xh（1 To 1000）As Integer’數(shù)據(jù)庫(kù)中讀取時(shí)第i為學(xué)生的學(xué)號(hào)存儲(chǔ)在xh（i）
  Dim zf（1 To 1000）As Integer’學(xué)號(hào)為i的考生的總分存儲(chǔ)在zf（i）
  Dim xk（1 To 1000）As String’學(xué)號(hào)為i的考生的選考課程信息存儲(chǔ)在zf（i）
  ’數(shù)據(jù)格式**-**-**（如：物理-化學(xué)-生物）
  Dim jspm（1 To 1000）As Integer’學(xué)號(hào)為i的技術(shù)選考生的總分在所有技術(shù)考生中的
  ’排名存儲(chǔ)在數(shù)組jspm（i）
  Private Sub Form_Load （　?。?br />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．a(chǎn)ccdb“
  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
  '為技術(shù)學(xué)科考試求名次
  Private Sub Command1_Click （　?。?br />Dim jsinfo（1 To 1000）As Integer’依次存儲(chǔ)每個(gè)技術(shù)選考生的學(xué)號(hào)和成績(jī)
  Dim k as integer’存儲(chǔ)找到的技術(shù)選考學(xué)生的數(shù)量
  '將所有選考“技術(shù)”的考生學(xué)號(hào)、成績(jī)依次存入數(shù)組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
  '學(xué)號(hào)為i的學(xué)生在技術(shù)選考生中的排名，存入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
  '輸出所有技術(shù)考試的學(xué)號(hào)、成績(jī)、技術(shù)排名信息  代碼略
  End Sub
  組卷：6引用：1難度：0.4

  解析