2018-2019学年浙江省温州市九校联考高三（上）第一次联考信息技术试卷

一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）

• 1．下列说法正确的是（　　）

  A．书本不是信息，但文字是信息

  B．电视、广播技术是现代产生的信息技术

  C．制作网页时，删除网页中插入的图片源文件不会影响网页的显示效果

  D．在搜索引擎中输入关键词搜索信息时，本质上是检索搜索引擎的数据库
  组卷：9引用：1难度：0.5

  解析

• 2．小明通过访问“https：∥mail.qq.jye.ai”，登录自己的邮箱并成功发送了一封邮件给老师，此过程 中未涉及的协议是（　　）

  A．POP3

  B．HTTPS

  C．TCP/IP

  D．SMTP
  组卷：7引用：3难度：0.8

  解析

• 3．使用 word 软件编辑某文档，部分界面如图所示：
  
  下列说法正确的是（　　）

  A．对第一行“闭幕式”添加批注，将出现批注[A3]

  B．删除第 2 处批注的内容，“批注[A2]：”也会被删除

  C．图中有 4 处修订，退出修订后，修订标记不会消失

  D．开启修订编辑文档时，将记录对文档的所有修改
  组卷：7引用：1难度：0.4

  解析

• 4．使用Access软件打开数据库，部分界面如图所示，下列说法正确的是（　　）

  A．“ID”字段被设置成主键，无法删除

  B．删除“性别”字段后，该删除操作可撤销

  C．“性别”字段的字段值在计算机中的存储空间为1B

  D．该数据表共有5个字段，数据库名称为“运动员信息。accdb”
  组卷：5引用：1难度：0.4

  解析

• 5．使用 UltraEdit 软件观察字符的内码界面如图所示，下列说法正确的是（　　）
  

  A．“D1 A1”是“选”字在计算机内存储和处理时的交换码

  B．VB 中表达式“考”＞“加”输出结果为 True

  C．字符“10”的十六进制码是“3A”

  D．共有 5 个 ASCII 字符
  组卷：11引用：1难度：0.5

  解析

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

• 16．对 n 个互不相同的整数（整数的最大值不超过 m）进行排序，排序要求如下：①奇 数在前，偶数在后；②奇数升序排序；③偶数降序排序。小刘用 VB 编写了实现上述功能的程序。 程序运行时，自动产生 n 个不同的随机数存储在数组 a 中，并在列表框 List1 中显示。单击按钮 Command1 后，按要求在列表框 List2 中输出排序后的结果。
  实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
  Const n=15
  Const m=100'整数的最大值
  Dim a（1 To n） As Integer
  Private Sub Form_Load（　　）
  '本过程产生 n 个不同随机数存储在数组 a 中，并在列表框 List1  中显示
  End Sub
  Private Sub Command1_Click（　　）
  Dim i As Integer
  Dim flag（1 To m） As Boolean'flag（i）=True  代表数组 a 中存在值为 i 的元素
  For i=1 To m flag（i）=False
  Next i
  For i=1 To n
   ①
  Next i
  For i=1 To m-1 Step 2
  If flag（i） Then List2．AddItem Str（i） Next i
  For         ②
  If flag（i） Then List2．AddItem Str（i） Next i
  End Sub
  组卷：2引用：1难度：0.5

  解析

• 17．小明编写了一个求真分数精确值的 VB 程序。程序运行时，在文本框 Text1 中输入被 除数，在文本 Text2 中输入除数，并保证被除数小于除数，单击“计算”按钮 Command1，在 标签 Label3 中显示结果。如果无限小数的小数点后，从某一位起向右进行到某一位止的一节数 字循环出现，首尾衔接，称这种小数为循环小数，这一节数字称为循环节。如果商为循环小数 保留一个循环节，否则最多计算到第 20 位。程序运行界面如下图所示。
  （1）运行程序，在文本框 Text1 中输入被除数 13，在文本框 Text2 中输入除数 99，单击“计算”按钮 Command1，在标签 Label3 中显示的结果是

   

  。
  （2）实现上述功能的 VB 程序如下，请在横线处填入合适的代码。
  Dim a（1 To 20）As Integer,b（1 To 20）As Integer
  Private Sub Command1_Click（　　）
  Dim m As Integer,n As Integer,pa As Integer,pb As Integer
  Dim flag As Boolean,s As String m=Val（Text1．Text）
  n=Val（Text2．Text）
  s=Str（m）+“/“+Str（n）+“=“s=s+“0．“
  pa=1：pb=1：flag=True b（1）=m
  m=m*10
  Do While pa＜=20 And fla g=True a（pa）=m\n
  If a（pa）＞0 Then pb=pb+1
       ①
  m=b（pb）*10
  Else
  m=m*10
  End If
  flag=Jud（pb）
  If b（pb）=0 Then flag=False s=    ②
  pa=pa+1
  Loop
  Label3．Caption=s
  End Sub
  Function Jud（x As Integer） As Boolean
  Dim i As Integer
  For i=1 To x-1
  If      ③Then
  Jud=False
  Exit Function'退出自定义函数
  End If
  Next i
  Jud=True
  End Function
  组卷：0引用：1难度：0.9

  解析