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

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

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

  A．在公共場合使用免費的WIFI進行轉賬

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

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

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

  解析

• 2．如圖所示為撰寫電子郵件時的部分操作界面。下列描述正確的是（　　）

  A．keda66用戶的SMTP服務器域名是POP3@188．com

  B．sunny用戶不知道zf用戶也收到了這封郵件

  C．POP3協議出錯會影響郵件的發送

  D．該郵件只能添加文本或圖象類型的文件作為附件
  組卷：25引用：1難度：0.9

  解析

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

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

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

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

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

  解析

• 4．使用Access軟件創建某數據表，并在該數據表中錄入了部分數據。下列說法正確的是（　　）

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

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

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

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

  解析

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

  A．2

  B．10

  C．58

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

  解析

【加試題】

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

  解析

【加試題】

• 17．小明編寫了一個統計成績的VB程序：編寫一個過程，該過程從數據庫讀取學生的物理，化學，生物科目成績，分別存儲到數組a、b、c中；另又編寫一個過程，該過程依據數組a,b,c中的相關數據統計班級物理、化學、生物三門成績大于等于85分的學號。部分學號的成績統計如圖所示。
  

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

  程序功能如下：單擊“統計”按鈕Command2，程序進行統計處理，結果輸出在列表框
  List1、List2、List3中。程序運行界面如圖所示。
  （1）在Command1_Click

   

  過程中變量n的作用是

   

  。
  （2）請在橫線處填入合適的代碼。
  Dim a（1to 600）as integer'數組a存放物理成績
  Dim b（1to 600）as integer'數組b存放化學成績
  Dim c（1to 600）as integer'數組c存放生物成績
  Dim n as integer
  Private Sub 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'從數據表中讀取各科的數據賦值到相應數組
  n=n+1
  a（n）=rs.Fields（“物理“）
  b（n）=rs.Fields（“化學“）
  c（n）=rs.Fields（“生物“）
  rs.MoveNext
  Loop
  '本過程的其他語句略
  End sub
  Private Sub Command2_Click （　　）
  '依據數組a中的相關數據統計各學生每門課大于等于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
  組卷：4引用：1難度：0.5

  解析