2017年浙江省普通高校招生信息技術仿真試卷（選考）（1）（11月份）

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

• 1．某同學將《如何學習高中英語》分享在朋友圈供大家學習參考，這主要體現了信息具有（　　）

  A．共享性

  B．時效性

  C．載體依附性

  D．真偽性
  組卷：11引用：1難度：0.9

  解析

• 2．某同學使用某軟件打開浙江教育考試網查詢學業水平考試成績時，其界面如圖所示：
  
  他正在使用的軟件可能是（　　）

  A．Microsoft  Word

  B．Internet  Explorer

  C．ACDSee

  D．Windows  Media  Player
  組卷：10引用：1難度：0.9

  解析

• 3．小華在淘寶上看到了某賣家的信用評價等信息，其部分頁面如圖所示，圖中好評率為“99.51%”代表的含義是屬于信息評價中的（　　）
  

  A．核心期刊評價	B．專家評價
  C．統計評價	D．個人評價
  組卷：5引用：1難度：0.9

  解析

• 4．在用光學字符識別（OCR）軟件識別文字時，能被直接識別的源文件有（　　）

  A．xy.jpg   xy.jye.ai

  B．xy.bmp   xy.jye.ai

  C．xy.jye.ai   xi.jye.ai

  D．xy.jpg   xy.jye.ai
  組卷：4引用：1難度：0.7

  解析

• 5．某學生入學成績信息表如下：
  
  若用Access數據表來存儲學生信息，下列部分字段設計不合理的是（　　）

  A． 字段名稱 數據類型 準考證號 文本 姓名 文本

  B． 字段名稱 數據類型 準考證號 文本 出生年月 日期

  C． 字段名稱 數據類型 聯系電話 數字 入學總分 數字

  D． 字段名稱 數據類型 入學總分 數字 是否保送 是/否
  組卷：5引用：2難度：0.5

  解析

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

• 16．現有n根棍子，第i根棍子的長度為a_i．想要從中選出三根棍子組成周長盡可能長的三角形，輸出最大的周長；若無法組成三角形，則輸出0．如當n=5，a={2，3，4，5，10}時，輸出12，即選擇了3、4、5．當n=4，a={4，5，10，20}時，無法組成三角形，輸出0．加框處代碼有誤，請改正．
  Dim a（ 1To 1000）As Integer
  Dim n As Integer
  Private Sub Form_Load （　　）
  ‘確定n的值和數組a的各個元素值，即每根棍子的長度值，代碼略
  End Sub
  Function max（x As Integer,y As Integer） As Integer
  If x＞y Then
  max=x
  Else
  Max=y
  End  If
  End  Function
  Private  Sub Command1_Click （　　）
  Dim  i  As Integer,j  As  Integer,k  As  Integer
  Dim  ans  As  Integer,c  As  Integer,longest  As  Integer,rest  As  Integer
  ans=0
  ‘讓i＜j＜k,保證棍子不會重復選中
  For i=1To n
  For j=i+1  To n
  For  k=j+1  To  n
  c=a（i）+a（j）+a（k）
  longest=‘①
  rest=c-longest‘rest保存最短的兩條邊的和
  If  Then‘②
  ans=max（ans,c）
  End  If
       Next  k
  Next  j
       Next  i
  Print  ans
  End  Sub.
  組卷：4引用：1難度：0.3

  解析

• 17．一個考古學家在尋找外星生物曾到過地球的證據．他偶然發現一面破損的墻上有一串奇怪的數字，數字長度不超過9位數，左側是完整的，而很多數字的右側部分因石頭被腐蝕而極難辨認．他發現保存完好的數都是2的冪，于是他猜測所有數都是2的冪．為了證明他的結論，他選取了一份數的清單，每個數中清晰可辨的數字個數總是嚴格小于模糊不清的數字個數．請你為這些數找出一個盡量小的2的冪，使得它左側的數字和清單吻合．
  以下程序，在Text1中輸入一個清單中的數n,單擊按鈕Command1后在Label中輸出一個最小的指數x（若存在），使得2^x從最高位開始的若干個數字等于n.如：輸入10，則找到最小的x=20，即2²⁰=1048576的前兩位與輸入數相同；而x=10的結果1024長度不符．如果在給定條件內找不到這樣的指數x,則輸出“No Power of 2”．
  'power函數的功能與2^n一致，只不過它的返回值是String類型而不是整數型
  
  Function  power（n As Integer） As String
  Dim  res  As  Long
  res=2^{^}n
  power=Trim（Str（res））‘trim （　　）函數的作用是去掉字符串左右的空格
  End  Function
  'check （　　）函數用于檢測前幾位數和長度是否符合要求，符合要求返回為True
  Function  check（x_power  As  String,n  As  String） As Boolean
  Dim length  As  Integer,x_power_len  As  Integer
  length=Len（n）
  x_power_len=Len（ x_power）
  If Mid（x_power,1，length）=n  And

   

   Then
  check=True
  Else
  check=False
  End If
  End Function
  Private  Sub  Commandl_Click （　　）
  Dim  n  As  String,i  As  Integer,x As String
  n=Textl.Text
  i=0
  x=power（i）
  Do  While  Len（x）＜10And     ②
  i=i+1
  x=power（i）
  Loop
  If Len（x）＜10Then
  Labell.Caption=“2的”&  ③ &
  “次方的前幾位是”& n &“，符合要求”
  Else
  Label1．Caption=“No Power of 2”
  End If
  End Sub.
  組卷：6引用：1難度：0.3

  解析