2017年浙江省普通高校高考信息技術模擬試卷（13）

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

• 1．下列有關信息的說法，不正確的是（　　）

  A．信息可以被重復使用而不會像物質和能源那樣產生損耗

  B．人們可以利用各種信息技術，把信息從一種形態轉換為另一種形態

  C．在微信朋友圈分享自己的旅途見聞，這一過程主要屬于信息獲取

  D．很多網絡支付采用密碼和手機校驗碼結合的方式，主要是為了提高信息的安全性
  組卷：17引用：3難度：0.9

  解析

• 2．某論壇版主對一個“2016年中國大學排名”的帖子進行“置頂”操作，這屬于信息資源評價中的（　　）

  A．專家推薦	B．個人推薦
  C．核心刊物評價	D．統計評價
  組卷：8引用：2難度：0.9

  解析

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

  A．添加批注的用戶為“魯昕”

  B．拒絕第一處修訂后，文字“第一種”應該是“她說：第一種”

  C．文字“技術技能人才的高考”在修訂之前的內容是“技術技能型人才的高考”

  D．接受全部修訂后，文字“技術技能人才的高考”應該是“技術技能型人才的高考”
  組卷：16引用：7難度：0.9

  解析

• 4．某Access數據表如圖所示，則以下說法中正確的是（　　）
  

  A．該數據表最多7個字段

  B．“是否本科”字段類型為是否型，存儲該類型數據需要1個字節

  C．“招生專業”字段類型為數字型，“所在地”字段類型為文本型

  D．該數據庫的名稱為“大學．accdb”
  組卷：9引用：2難度：0.7

  解析

• 5．閱讀如下程序，下列表達式與該程序段運行結果相同的是（　　）
  k=1：s=0，Do while i＜=5，s=s+k/（i*（i+1）），i=i+1，k=-k,Loop.

  A．1/2-1/（2*3）=1/（3*4）-1/（4*5）+1（5*6）

  B．1/2-1/3+1/4-1/5+1/6

  C．1/2+1/（2*3）+1/（3*4）+1/（4*5）+1/（5*6）

  D．1/2+1/3+1/4+1/5+1/6
  組卷：11引用：1難度：0.7

  解析

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

• 16．【加試題】設計VB程序，該程序將輸入的字符串中小寫字母轉換成大寫字母后輸出．在文本框Text1中輸入一串字符（數字、字母均可），單擊“轉換”按鈕Command1，在標簽Label2中輸出結果．（提示：Asc（x）：將字符x轉換為ASCⅡ碼值；Chr（x）：將ASCⅡ代碼x轉換為所對應的字符）該程序的設計界面如圖所示，請根據算法將下列程序補充完整．
  
  Private Sub Command1_Click（　　）
  Dim ch As String,s As String
  Dim i AS Integer,j As Integer
  ch=Text1．Text
  For i=1To

   

  
  j=Asc（Mid（ch,i,1））
  if j＞96And j＜123 Then
  s=s+Chr（j-32）
  Else
  s=s+Chr（j）
  End If
  Next
  

   

  
  End Sub
  完善程序：①橫線處代碼為

   

  ．
  ②橫線處代碼為

   

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

  解析

• 17．【加試題】對于函數f（x），若在某區間[a,b）內是單調函數，且其圖象與x軸有交點，則存在一個x0使得f（x0）=0，我們可以設法找到x0的值．
  滿足上述條件的區間[a,b）和函數f（x）必定有f（a）?f（b）＜=0，我們設計如下算法：第一步：區間中點m=

  a

  +

  b

  2

  ．
  第二步：若f（s）?f（m）＜0，則含零點的區間為[a,m]；否則，含零點的區間為[m,b），將新得到的含零點的區間仍記為[a,b]．
  第三步：判斷[a,b）的長度是否小于一個足夠小的值d.若是，則m是方程的近似解；否則，返回第一步．
  于是我們可以設計函數f（x）=x²-c,就可以用此算法求出任意非負常數c的非負平方根．程序運行效果如下圖所示，程序中還輸出了區間的左右端點和區間長度值．
  
  Const min As Single=0.00005
  Dim c As Single
  Function fn（x As Single）As single
  

   

  
  End Function
  Private Sub Command1_Click（　　）'按鈕上的程序
  Dim a As Single,b As Single,m As Single
  c=Val（Text1．Text）
  a=0
  b=c
  Do While

   

  
  m=（a+b）/2
  List1．AddItem Str（a）&“”&Str（b）&“”Str（b-a）
  If

   

  Then
  b=m
  Else
  a=m
  End If
  Loop
  Label2．Caption=Str（m）
  End Sub
  回答以下問題：
  （1）事件處理過程“Command1_Click（　　）”用到的算法是

   

  （填算法具體名稱）．
  （2）請將程序中的三處代碼補充完整．
  （3）通過測試可知，該程序得到的

  2

  的近似值為1.4142，實際上更精確的值是1.4142135623731，請問如何改善程序，得到一個更精確的近似值？請寫出至少兩種改善意見：
  

   

  ．
  組卷：15引用：1難度：0.1

  解析