2017-2018學(xué)年浙江省五校聯(lián)考高三（上）第一次月考信息技術(shù)試卷

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

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

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

  B．在公共場所上網(wǎng)時，應(yīng)盡量把表單上的用戶名和密碼設(shè)置為自動完成

  C．文字出現(xiàn)以后，才能進(jìn)行傳遞信息

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

  解析

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

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

  解析

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

  A．文檔中圖片的文字環(huán)繞方式為“嵌入型”

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

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

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

  解析

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

  A．B8

  B．8B

  C．70

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

  解析

• 5．關(guān)于Access數(shù)據(jù)表的操作，下列說法正確的是（　?。?/h2>

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

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

  C．在數(shù)據(jù)表視圖刪除字段是不能撤銷的

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

  解析

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

• 16．小龍編寫了一個簡易加法器VB程序，運(yùn)行界面如圖所示．在文本框Text1中輸入一個數(shù)字后再輸入空格表示一個加數(shù)輸入完畢，連續(xù)不斷輸入不同的加數(shù)，待所有需要相加的數(shù)輸入完畢后，單擊“求和”按鈕Command1后，在標(biāo)簽label1中顯示加數(shù)的個數(shù)以及總和．（數(shù)字0和空格的ASCII碼分別為48、32）
  實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正．
  Private Sub Command1_Click （　?。?br />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的數(shù)字或者空格，則給出錯誤提示后結(jié)束子程序
  If （Asc（Mid（a,i,1））＜48Or Asc（Mid（a,i,1））＞57）then’①Label1．Caption=“只能輸入數(shù)字或空格“
  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）+“個數(shù)的和為：“+Str（s）
  End Sub.
  組卷：2引用：2難度：0.3

  解析

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

   

  
  （2）請?jiān)跈M線處填入合適的代碼．
  Dim a（1To 100）As String'數(shù)組大小滿足處理要求，學(xué)生學(xué)號
  Dim b（1To 100）As String'數(shù)組大小滿足處理要求，學(xué)生姓名
  Dim i As Integer'學(xué)生總數(shù)
  Dim j As Integer
  Dim dd（1To 100）As Integer
  Private Sub Form_Load （　?。?br />‘從數(shù)據(jù)庫讀取全班同學(xué)的相關(guān)信息，存儲在數(shù)組a、數(shù)組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．a(chǎn)ccdb“
  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=“錯誤：沒有輸入中獎人數(shù)或超過學(xué)生總數(shù)“
  End If
  End Sub
  '核對重復(fù)，避免同一人再次中獎
  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

  解析