2017-2018學年浙江省五校聯考高三（上）第一次月考信息技術試卷

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

• 1．以下說法正確的是（　　）

  A．信息的表示、傳播、存儲必須依附于某種載體

  B．在公共場所上網時，應盡量把表單上的用戶名和密碼設置為自動完成

  C．文字出現以后，才能進行傳遞信息

  D．“盲人摸象”體現了信息的時效性
  組卷：8引用：2難度：0.9

  解析

• 2．以下軟件中，不屬于瀏覽器的是（　　）

  A．Internet Explorer	B．Firefox
  C．Google Chrome	D．CuteFTP
  組卷：8引用：3難度：0.9

  解析

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

  A．文檔中圖片的文字環繞方式為“嵌入型”

  B．用戶t1和用戶s2添加了批注

  C．共有兩處修訂，兩處批注

  D．拒絕所有修訂后，第一句文字是“記者從今天浙江省政府新聞信息辦召開的新聞發布會上了解到”
  組卷：4引用：2難度：0.9

  解析

• 4．已知英文小寫字母比對應的大寫字母ASCII碼大32（十進制），某數據加密方法描述如下：
  （1）將字符的ASCII碼值加20（十進制）；
  （2）以字節為單位進行加密處理；
  （3）將1個字節的8位二進制數左移一位，最低位用左移出的最高位填充；
  （4）將處理后的8位二進制數分割成前4位與后4位兩個二進制數；
  （5）分別將上述兩個4位二進制數轉換為十六進制數；
  （6）所得兩個十六進制數碼交換順序后連接，即為該字節的密文．
  用UltraEdit-32軟件觀察“i-hangzhou”這幾個字符的內碼，如圖所示
  
  則字符H加密后的密文是（　　）

  A．B8

  B．8B

  C．70

  D．07
  組卷：10引用：2難度：0.5

  解析

• 5．關于Access數據表的操作，下列說法正確的是（　　）

  A．同一張表中兩個字段的字段名稱可以完全相同

  B．字段數據類型若為“自動編號”，則新值一定是遞增的

  C．在數據表視圖刪除字段是不能撤銷的

  D．設置為主鍵的字段是不能刪除的
  組卷：6引用：2難度：0.7

  解析

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

• 16．小龍編寫了一個簡易加法器VB程序，運行界面如圖所示．在文本框Text1中輸入一個數字后再輸入空格表示一個加數輸入完畢，連續不斷輸入不同的加數，待所有需要相加的數輸入完畢后，單擊“求和”按鈕Command1后，在標簽label1中顯示加數的個數以及總和．（數字0和空格的ASCII碼分別為48、32）
  實現上述功能的VB程序如下，但加框處代碼有錯，請改正．
  Private Sub Command1_Click （　　）
  Dim a As String
  Dim x As Integer,s As Integer,k As Integer
  a=Text1．Text
  x=1：s=0：k=0
  For i=1To Len（a）
  '如果輸入的不是0到9的數字或者空格，則給出錯誤提示后結束子程序
  If （Asc（Mid（a,i,1））＜48Or Asc（Mid（a,i,1））＞57）then’①Label1．Caption=“只能輸入數字或空格“
  Exit Sub
  End If
  If Mid（a,i,1）=““Then
  s=s+’②
  x=i+1
  k=k+1
  End If
  Next i
  Label1．Caption=“這“+Str（k）+“個數的和為：“+Str（s）
  End Sub.
  組卷：2引用：2難度：0.3

  解析

• 17．中秋節時，班級組織活動，其中有抽獎環節，小龍在7選3中選考了技術，班主任讓小龍編寫一個VB抽獎程序，功能如下：窗體裝載過程從數據庫讀取所有同學的相關數據并顯示在列表框List1中，抽獎時在文本框Text1中輸入要抽出的人數，單擊“搖獎”按鈕command1，程序進行處理，結果輸出在列表框list2中．程序運行界面如圖所示．
  
  實現上述功能的VB程序如下，請回答下列問題：
  （1）分析下面的程序代碼，可知數據表名為

   

  
  （2）請在橫線處填入合適的代碼．
  Dim a（1To 100）As String'數組大小滿足處理要求，學生學號
  Dim b（1To 100）As String'數組大小滿足處理要求，學生姓名
  Dim i As Integer'學生總數
  Dim j As Integer
  Dim dd（1To 100）As Integer
  Private Sub Form_Load （　　）
  ‘從數據庫讀取全班同學的相關信息，存儲在數組a、數組b和變量i中
  Dim n As Integer
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  Dim strSQL As String
  conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“& App.Path &“\1718．accdb“
  conn.Open
  Set rs.ActiveConnection=conn
  strSQL=“SELECT*FROM stuinfo“
  rs.Open strSQL
  '本過程的其他語句略
  End Sub
  Private Sub Command1_Click （　　）
  Dim ShuruNum As Integer,k As Integer,y As Integer,n As Integer
  Randomize
  ShuruNum=Val（Text1．Text）
  Label4．Caption=““
  For k=1To i
  dd（k）=0
  Next k
  If ShuruNum＞0And ShuruNum＜=i Then
  j=1
  Do While j＜=ShuruNum
  y=Int（Rnd

   

  *i）+1
  If

   

    Then'①
  dd（j）=y
  j=j+1
  End If
  Loop
  List2．Clear
  For n=1To ShuruNum
  List2．AddItem

   

  '②
  Next n
  Else
  Label4．Caption=“錯誤：沒有輸入中獎人數或超過學生總數“
  End If
  End Sub
  '核對重復，避免同一人再次中獎
  Private Function CheckCF（p As Integer） As Boolean
  Dim m As Integer,x As Boolean
  x=True'初始化
  For m=1To j
  If

   

   Then'③
  x=False
  Exit For
  End If
  Next m
  CheckCF=x
  End Function.
  組卷：3引用：1難度：0.1

  解析