2017-2018學年浙江省溫州中學高三（上）期中信息技術試卷

一、選擇題（本大題共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．①④
  組卷：6引用：2難度：0.9

  解析

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

  A．SMTP

  B．POP3

  C．HTTP

  D．HTML
  組卷：6引用：1難度：0.9

  解析

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

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

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

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

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

  解析

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

  A．32

  B．20

  C．31

  D．19
  組卷：11引用：2難度：0.7

  解析

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

• 16．小強用VB編寫將正整數十進制轉換為十六進制的程序，運行界面如圖所示．程序功能如下：在文本框Text1中輸入待轉換的十進制值，單擊“十進制轉換十六進制”按鈕Command1，在文本框Text2中輸出轉換結果．
  
  （1）要使命令按鈕Command1顯示的文本改為“十進制轉換十六進制”，可在其屬性窗口中將

   

  屬性的屬性值修改為“十進制轉換十六進制”．
  （2）若在文本框Text1中輸入79，則文本框Text2中輸出的值是

   

  ．
  （3）請在程序的畫線處填寫合適的代碼．
  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
         s=a+s
  

   

            ②
       Text2．Text=s
  End Sub.
  組卷：2引用：2難度：0.3

  解析

• 17．【加試題】居民身份證號碼由十七位數字本體碼和一位數字校驗碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗碼．校驗碼生成步驟如下：
  ①把身份證前 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

  ②根據步驟（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.jye.ai中讀入全校學生身份證數據（全校共15個班級），并在列表框List1中顯示，單擊“校驗”按鈕Command1，在列表框List2中輸出各班身份證號出錯學生的信息和出錯人數，若某班無出錯學生，則不顯示．程序界面如圖所示．實現上述功能的VB程序如下，請回答下列問題：
  （1）某人身份證號的前17位為“33900520000101007”，根據上述步驟可計算出該身份證號的第18位校驗碼是

   

  ．
  （2）請在橫線處填上合適的代碼．
  Const max=1000
  Dim n As Integer'存放學生人數
  Dim sfzh（1To max） As String,xm（1To max） As String
  '數組sfzh、xm分別存放學生身份證號、姓名
  Dim bj（1To max） As Integer,flag（1To max） As Boolean
  '數組bj、flag分別存放學生班級、身份證校驗結果
  Dim cw（1To 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（1To 18）As Integer,w（1To 18）As Integer
  jym=“10X98765432“：sum=0
  For i=18To 2Step-1
  a（i）=Val（Mid（x,19-i,1））
  Next i
  For i=18To 1Step-1
  w（i）=2  （i-1）Mod 11
  Next i
  For i=2To 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=1To n
  If check（sfzh（i））Then flag（i）=True Else flag（i）=False
  Next i
  For i=1To 15
  For j=1To n
  If  bj（j）=i And flag（j）=False Then
  ②_
  List2．AddItem sfzh（j）+““+xm（j）
  End If
  Next j
  If cw（i）＞0Then
  List2．AddItem Str（i）+“班共有以上“+Str（cw（i））+“個身份證號錯誤“
  List2．AddItem““
  End If
  Next i
  End Sub.
  組卷：0引用：1難度：0.2

  解析