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

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

• 1．下列有關移動設備的使用行為，安全隱患最小的是（　　）

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

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

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

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

  解析

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

  A．文中有2個用戶共做了2處批注

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

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

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

  解析

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

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

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

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

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

  解析

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

  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ù)字組成的編碼，其末位是校驗碼。條形碼校驗的方法如下：
  ①除校驗碼之外，求其余12位編碼中的奇數(shù)、偶數(shù)的數(shù)字之和；
  ②將偶數(shù)的數(shù)字之和乘以3，加上奇數(shù)的數(shù)字之和；
  ③取第②步得到結果的個位數(shù)字，用10減去該數(shù)字，將得到的結果存入變量m；
  ④若m的值為10，則將m的值修改為0，否則不變；
  ⑤若m和校驗碼相等則輸出“校驗碼正確！”，否則輸出“校驗碼錯誤！”。
  現(xiàn)編寫一個VB程序，實現(xiàn)如下功能：在文本框Text1中產(chǎn)生條形碼數(shù)字序列，單擊“校驗”按鈕Command1，在標簽Label1中輸出對應的校驗信息，界面如圖所示。
  實現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正。
  Private Sub Command1_Click （　?。?br />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ù)錯誤!“
  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=“校驗碼正確!“
  Else
  Label1．Caption=“校驗碼錯誤!“
  End If
  End If
  End Sub
  組卷：2引用：2難度：0.5

  解析

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

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

  等于85分的學號。部分學號的成績統(tǒng)計如圖所示。
  程序功能如下：單擊“統(tǒng)計”按鈕Command2，程序進行統(tǒng)計處理，結果輸出在列表框
  List1、List2、List3中。程序運行界面如圖所示。
  （1）在Command1_Click （　?。┻^程中變量n的作用是。
  （2）請在橫線處填入合適的代碼。
  Dim a（1to 600）as integer'數(shù)組a存放物理成績
  Dim b（1to 600）as integer'數(shù)組b存放化學成績
  Dim c（1to 600）as integer'數(shù)組c存放生物成績
  Dim n as integer
  PrivateSub Command1_Click （　?。?br />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ù)賦值到相應數(shù)組
  n=n+1
  a（n）=rs.Fields（“物理“）
  b（n）=rs.Fields（“化學“）
  c（n）=rs.Fields（“生物“）
  rs.MoveNext
  Loop
  '本過程的其他語句略
  End sub
  Private Sub Command2_Click （　　）
  '依據(jù)數(shù)組a中的相關數(shù)據(jù)統(tǒng)計各學生每門課大于等于85分的學號
  Dim i As Integer
  Dim d（1to n） As Integer
  For i=1to n
  ①
  Next i
  List1．AddItem“三門學科＞=85分的學號有：“
  List2．AddItem“兩門學科＞=85分的學號有：“
  List3．AddItem“一門學科＞=85分的學號有：“
  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

  解析