2017-2018學(xué)年浙江省紹興市諸暨市牌頭中學(xué)高三（上）月考信息技術(shù)試卷（1月份）

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

• 1．下列有關(guān)移動設(shè)備的使用行為，安全隱患最小的是（　　）

  A．在公共場合使用免費(fèi)的WIFI進(jìn)行轉(zhuǎn)賬

  B．從第三方提供的商城平臺下載山寨APP

  C．隨意打開微信好友發(fā)來的鏈接地址

  D．安裝具有智能分析功能的反病毒軟件
  組卷：17引用：2難度：0.9

  解析

• 2．使用Word軟件編輯某文檔，部分界面如圖所示。下列說法正確的是（　　）
  

  A．文中有2個(gè)用戶共做了2處批注

  B．接受所有修訂后，①處文字為“獨(dú)上蘭舟”

  C．①處使用了自動更正功能

  D．②處紅色波浪線說明此處可能存在語法錯(cuò)誤
  組卷：0引用：2難度：0.4

  解析

• 3．使用Access軟件創(chuàng)建某數(shù)據(jù)表，并在該數(shù)據(jù)表中錄入了部分?jǐn)?shù)據(jù)。下列說法正確的是（　　）

  A．可將“文本”字段類型修改為“自動編號”類型

  B．刪除記錄后，可使用“撤銷”命令來恢復(fù)

  C．能在數(shù)據(jù)表的“設(shè)計(jì)視圖”中新建一個(gè)字段

  D．能在被設(shè)為“主鍵”的字段中輸入重復(fù)的字段值
  組卷：10引用：2難度：0.5

  解析

• 4．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量s的值是（　　）
  

  A．2

  B．10

  C．58

  D．442
  組卷：0引用：2難度：0.7

  解析

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

• 13．某一條形碼是由13位數(shù)字組成的編碼，其末位是校驗(yàn)碼。條形碼校驗(yàn)的方法如下：
  ①除校驗(yàn)碼之外，求其余12位編碼中的奇數(shù)、偶數(shù)的數(shù)字之和；
  ②將偶數(shù)的數(shù)字之和乘以3，加上奇數(shù)的數(shù)字之和；
  ③取第②步得到結(jié)果的個(gè)位數(shù)字，用10減去該數(shù)字，將得到的結(jié)果存入變量m；
  ④若m的值為10，則將m的值修改為0，否則不變；
  ⑤若m和校驗(yàn)碼相等則輸出“校驗(yàn)碼正確！”，否則輸出“校驗(yàn)碼錯(cuò)誤！”。
  現(xiàn)編寫一個(gè)VB程序，實(shí)現(xiàn)如下功能：在文本框Text1中產(chǎn)生條形碼數(shù)字序列，單擊“校驗(yàn)”按鈕Command1，在標(biāo)簽Label1中輸出對應(yīng)的校驗(yàn)信息，界面如圖所示。
  實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請改正。
  Private Sub Command1_Click （　　）
  Dim s As String,x As Integer
  Dim n As Integer,jsAs Integer,os As Integer,m As Integer
  Js=0：Os=0
  s=Text1．Text
  
  If n＜＞13Then
  Label1．Caption=“條形碼位數(shù)錯(cuò)誤!“
  Else
  For i=1To 12
  
  If x Mod 2＜＞0Then
  js=js+x
  Else
  os=os+x
  End If
  Next i
  m=os*3+js
  m=10-m Mod 10
  Ifm=10  Then m=0
  If m=Val（Mid（s,n,1）） Then
  Label1．Caption=“校驗(yàn)碼正確!“
  Else
  Label1．Caption=“校驗(yàn)碼錯(cuò)誤!“
  End If
  End If
  End Sub
  組卷：2引用：2難度：0.5

  解析

• 14．小明編寫了一個(gè)統(tǒng)計(jì)成績的VB程序：編寫一個(gè)過程，該過程從數(shù)據(jù)庫讀取學(xué)生的物理，化學(xué)，生物科目成績，分別存儲到數(shù)組a、b、c中；另又編寫一個(gè)過程，該過程依據(jù)數(shù)組a,b,c中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)班級物理、化學(xué)、生物三門成績大于
  

  門數(shù)	學(xué)號	說明
  只有一門＞=85分	1，10	d（i）存放每個(gè)學(xué)號對應(yīng)的大于等于85分科次
  只有兩門＞=85分	2，3，4，6，12
  只有三門＞=85分	7，8，9，11

  等于85分的學(xué)號。部分學(xué)號的成績統(tǒng)計(jì)如圖所示。
  程序功能如下：單擊“統(tǒng)計(jì)”按鈕Command2，程序進(jìn)行統(tǒng)計(jì)處理，結(jié)果輸出在列表框
  List1、List2、List3中。程序運(yùn)行界面如圖所示。
  （1）在Command1_Click （　　）過程中變量n的作用是。
  （2）請?jiān)跈M線處填入合適的代碼。
  Dim a（1to 600）as integer'數(shù)組a存放物理成績
  Dim b（1to 600）as integer'數(shù)組b存放化學(xué)成績
  Dim c（1to 600）as integer'數(shù)組c存放生物成績
  Dim n as integer
  PrivateSub Command1_Click （　　）
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Conn ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“+“Score.jye.ai“
  Conn.Open
  Set rs.ActiveConnection=conn
  rs.Open“SELECT*FROM whs“
  n=0
  Do While Not rs.EOF'從數(shù)據(jù)表中讀取各科的數(shù)據(jù)賦值到相應(yīng)數(shù)組
  n=n+1
  a（n）=rs.Fields（“物理“）
  b（n）=rs.Fields（“化學(xué)“）
  c（n）=rs.Fields（“生物“）
  rs.MoveNext
  Loop
  '本過程的其他語句略
  End sub
  Private Sub Command2_Click （　　）
  '依據(jù)數(shù)組a中的相關(guān)數(shù)據(jù)統(tǒng)計(jì)各學(xué)生每門課大于等于85分的學(xué)號
  Dim i As Integer
  Dim d（1to n） As Integer
  For i=1to n
  ①
  Next i
  List1．AddItem“三門學(xué)科＞=85分的學(xué)號有：“
  List2．AddItem“兩門學(xué)科＞=85分的學(xué)號有：“
  List3．AddItem“一門學(xué)科＞=85分的學(xué)號有：“
  For i=1To n
  If a（i）＞=85Then
  d（i）=d（i）+1
  End If
  If b（i）＞=85Then d（i）=②
  If ③ Then
  d（i）=d（i）+1
  End If
  Next i
  For i=1To n
  If d（i）=3Then List1．AddItem Str（i）
  If d（i）=2Then List2．AddItem Str（i）
  If d（i）=1Then List3．AddItem Str（i）
  Next i
  End Sub
  組卷：3引用：1難度：0.4

  解析