2017年浙江省杭州市蕭山區高考信息技術模擬試卷（13）

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

• 1．2016年，韓國圍棋高手李世石挑戰機器人“AlphaGo”以1：3失利．今年四月份，在浙江烏鎮將進行一場當今圍棋第一人柯潔與“AlphaGo”的較量．機器人“AlphaGo”挑戰人類圍棋高手，這主要體現了下列哪種技術（　　）

  A．光電子技術	B．人工智能技術
  C．多媒體通訊技術	D．遙感技術
  組卷：5引用：3難度：0.9

  解析

• 2．利用OCR光學字符識別軟件可以快速地從圖象中識別出字符，從而得到文本文件．那么OCR軟件能識別下列哪些文件（　　）
  ①example.jye.ai     ②example.jye.ai       ③example.jye.ai      ④example.bmp.

  A．②④

  B．①③

  C．②③

  D．①④
  組卷：8引用：1難度：0.9

  解析

• 3．電子郵件從發送方傳送到接收方的基本流程如圖所示．郵件從“發送方郵件服務器”傳送到“接收方郵件服務器”（即圖中所示的步驟④）的過程中使用的協議是（　　）
  

  A．SMTP

  B．POP3

  C．FTP

  D．HTML
  組卷：9引用：2難度：0.9

  解析

• 4．有同學利用Word修訂功能對某文檔做了修改，部分截圖如圖所示，若接受修訂內容，則第三句話中的文字將變為（　　）
  

  A．人生十分簡短，目標明確、珍惜光陰、才能有所收獲，贏得主動

  B．人生十分簡短，只有目標明確、珍惜光陰、才能有所收獲，贏得主動

  C．人生十分短暫，只有目標明確、珍惜光陰、才能有所收獲，贏得主動

  D．人生十分短暫，目標明確、珍惜光陰、才能有所收獲，贏得主動
  組卷：15引用：5難度：0.9

  解析

• 5．用Ultraedit軟件觀察字符串“Aisa”的內碼，部分界面如圖所示：
  
  則大寫“A”與小寫“a”的ASCII碼十進制值相差多少（　　）

  A．19

  B．20

  C．31

  D．32
  組卷：4引用：3難度：0.7

  解析

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

• 16．小強用VB編寫正整數十進制轉換為十六進制的程序，運行界面如圖所示．程序功能如下：在文本框Text1中輸入待轉換的十進制值，單擊“十進制轉換十六進制”按鈕Command1，在文本框Text2中輸出轉換結果．
  請在程序的橫線處填寫合適的代碼．Private Sub Command1_Click（　　）
  Dim a As String,s As String
  Dim r As Integer,x As Integer
  x=Val（Text1．Text）
  s=““
   Do While x＞0
  

   

  ①
   x=x\16
   If r＞9 Then
   a=Chr（r+55）
  Else
   a=Str（r）
   End If
  

   

  ②
  Loop
  Text2．Text=s
  End Sub
  （1）程序中①橫線處應填入

   

  ．
  （2）程序中②橫線處應填入

   

  ．
  組卷：7引用：2難度：0.1

  解析

• 17．【加試題】居民身份證號碼由十七位數字本體碼和一位數字校驗碼組成。從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗碼。校驗碼生成步驟如下：
  （1）把身份證前 17 位的每個數字和加權系數相乘并累加求和。身份證號碼前17位數的加權系數見下表：
  

  身份證號位數	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
  加權系數	7	9	10	5	8	4	2	1	6	3	7	9	10	5	8	4	2

  （2）根據步驟（1）求得的和值，與11做取余運算得到序號，再根據序號提取校驗碼字符。如：所得和值除以11的余數為“0”，則對應的校驗碼為“1”。如下表：
  

  序號	0	1	2	3	4	5	6	7	8	9	10
  校驗碼	1	0	X	9	8	7	6	5	4	3	2

  若步驟（2）中提取的校驗碼和身份證號最后一位相同，則校驗通過，否則校驗失敗。
  某人根據上述原理設計了一個身份證校驗VB程序，功能如下：程序啟動時從數據庫student。accdb中讀入全校學生身份證數據（全校共15個班級），并在列表框List1中顯示，單擊“校驗”按鈕Command1，在列表框List2中輸出各班身份證號出錯學生的信息和出錯人數，若某班無出錯學生，則不顯示。程序界面如圖所示。
  
  實現上述功能的VB程序如下，請回答下列問題：
  （1）某人身份證號的前17位為“33900520000101007”，根據上述步驟可計算出該身份證號的第18位校驗碼是

   

  。
  （2）請在橫線處填上合適的代碼。
  Const max=1000
  Dim n As Integer'存放學生人數
  Dim sfzh（1 To max） As String,xm（1 To max） As String
  '數組sfzh、xm分別存放學生身份證號、姓名
  Dim bj（1 To max） As Integer,flag（1 To max） As Boolean
  '數組bj、flag分別存放學生班級、身份證校驗結果
  Dim cw（1 To 15）As Integer'數組cw存放各班身份證號出錯人數
  Function check（x As String） As Boolean
  '本函數功能：校驗身份證號x,若校驗通過返回True；否則返回False
    Dim i As Integer,sum As Integer,xh As Integer,jym As String
    Dim a（1 To 18）As Integer,w（1 To 18）As Integer
  jym=“10X98765432“：sum=0
    For i=18 To 2 Step-1
  a（i）=Val（Mid（x,19-i,1））
    Next i
    For i=18 To 1 Step-1
  w（i）=2^（i-1）Mod 11
    Next i
    For i=2 To 18
  sum=sum+a（i）*w（i）
    Next i
  xh=sum Mod 11
    If   ①=Mid（x,18，1）Then check=True Else check=False
  End Function
  Private Sub Form_Load（　　）
  '本過程從數據庫中讀入指定數據到數組sfzh、xm、bj,并在List1中顯示
    Dim conn As New ADODB．Connection
    Dim rs As New ADODB．Recordset
  conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“+App.Path+“\student.jye.ai“
  conn.Open
    Set rs.ActiveConnection=conn
  rs.Open“select*from stu“
  '本過程其它語句略，學生人數存變量n,數組cw各元素初值置為0
  End Sub
  Private Sub Command1_Click（　　）
    Dim i As Integer,j As Integer
    For i=1 To n
      If  check（sfzh（i）） Then flag（i）=True Else flag（i）=False
    Next i
    For i=1 To 15
      For j=1 To n
       If  bj（j）=i And flag（j）=False Then
      ②
   List2．AddItem sfzh（j）+““+xm（j）
       End If
      Next j
      If cw（i）＞0 Then
        List2．AddItem Str（i）+“班共有以上“+Str（cw（i））+“個身份證號錯誤“
        List2．AddItem““
      End If
    Next i
  End Sub。
  組卷：3引用：1難度：0.5

  解析