2016-2017学年浙江省杭州市五县七校高三（上）期中信息技术试卷

一、选择题

• 1．某日收到如图所示的微信短信，收到此条短信后正确的做法是（　　）
  

  A．马上登陆微信，一直保持登录状态，防止他人登录成功

  B．马上修改微信密码，提高安全等级

  C．马上将手机换成samsung-GT-I9000

  D．马上将手机关机
  组卷：3引用：3难度：0.9

  解析

• 2．如图所示，当选择“接受对文档的所有修订”后，图中第一段最后一句变成（　　）
  

  A．读完这本书之后我的心被海伦的故事深深的感动了

  B．读完这本书之后我的心被海伦的故事深深的震撼了

  C．读完这本书之后我的心被海伦的精神深深的感动了

  D．读完这本书之后我的心被海伦的精神深深的震撼了
  组卷：4引用：2难度：0.9

  解析

• 3．使用UltraEdit软件观察字符编码，相关描述不正确的是（　　）

  A．占用16个字节存储空间

  B．只有3个全角字符

  C．大写字符“O”对应编码为49H

  D．小写字符“l”对应编码为6CH
  组卷：8引用：4难度：0.9

  解析

• 4．对于数据库和数据表，下列说法正确的是（　　）

  A．数据库只能给一个用户使用，不能共享

  B．数据库里可以有多个数据表，数据表之间没有任何联系

  C．数据库中保存的数据与应用程序是紧密关联的

  D．一张数据表中的一个字段只能用来存储同一类型的数据
  组卷：3引用：2难度：0.7

  解析

• 5．某算法流程图如图所示，最后输出s的值是（　　）
  

  A．0.25

  B．1

  C．2

  D．8
  组卷：3引用：2难度：0.5

  解析

二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）

• 16．【加试题】某校有100个学生的期末成绩存储在数据库中，并已经按学号升序排序，学号编号从1到100．现要求找出成绩最高的学生的得分．如果有多个符合要求的学生，只输出学号排在前面的．小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出最大成绩．实现上述功能的VB代码如下，请补全代码．
  Dim a（1To 100）As Single'依次存储100个学生成绩
  Const n=100
  Private Sub Form_Load（　　）
  '本过程从数据库中读取1到100号学生成绩，并存储在数组a中
  '代码略
  End Sub
  Private Sub Command1_Click（　　）
  Dim i As Integer,max As single
  max=①

   

  
  For i=2To n
  if ②

   

  
  Next i
  Text1．Text=“成绩最高分是：“+Str（max）
  End Sub
  （1）程序中①横线处应填入

   

  ．
  （2）程序中②横线处应填入

   

  ．
  组卷：20引用：2难度：0.1

  解析

• 17．【加试题】曲哲同学设计了一个英文字符串的加密算法，其加密的方法如下：
  （1）从被加密字符串中获取单个字符，然后得到其ascii码的8位二进制编码．
  （2）将字符的二进制编码反向，得到其逆序二进制码．
  （3）将逆序二进制码的每4位转换为相应的十六进制编码，即得到单个字符加密后的字符串．
  （4）以此类推，直到所有字符加密完成，得到加密字符串．
  具体程序界面如图，在text1中输入字符串，点击“加密”按钮command1后，在text2中显示加密后的字符串．
  （1）已知字符a的ascii码为97，则字符串idear加密后的字符串为

   

  ．
  （2）阅读整段程序，程序中①横线处应填入

   

  程序中②横线处应填入

   

  ．
  Private Sub Command1_Click

   

  
  Dim s As String,ch As String
  Dim result As String,chA As String,chB As String

   

  
  Dim i As Integer,j As Integer
  Dim n As Integer,m As Integer
  s=Text1．Text
  n=Len（s）
  result=““：c=“0123456789ABCDEF“
  For i=1To n
  ch=①

   

  
  ch=niXu（ch）
  m=0
  For j=1To 4'获取二进制码前4位的值②

   

  
  Next
  chA=Mid（c,m+1，1）
  m=0
  For j=5To Len（ch）
  m=m*2+Val（Mid（ch,j,1））
  Next
  chB=Mid（c,m+1，1）
  result=result+chA+chB
  Next
  Text2．Text=result
  End Sub
  '得到单个字符ch的8位二进制编码
  Function D2B（ByVal ch As String） As String
  Dim s As String
  Dim data As Integer,i As Integer
  data=Asc（ch）：s=““
  Do While data＞0
  s=Str（data Mod 2）+s
  data=data\2
  Loop
  If Len（s）＜8Then
  For i=1To 8-Len（s）
  s=“0“+s
  Next
  D2B=s
  Else
  D2B=s
  End If
  End Function
  '返回字符串s的逆序
  Function niXu（ByVal s As String） As String
  Dim i As Integer：Dim r As String
  r=““
  For i=Len（s） To 1Step-1
  r=r+Mid（s,i,1）
  Next
  niXu=r
  End Function.
  组卷：8引用：1难度：0.1

  解析