2017-2018学年浙江省稽阳联谊学校高三（上）月考信息技术试卷（8月份）

一、选择题（共12小题，每小题2分，满分24分）

• 1．关于信息安全、网络道德和知识产权，下列做法正确的是（　　）

  A．开启智能手机的手势密码登录验证

  B．关闭操作系统更新，不安装系统补丁

  C．在观影时录制影片并分享到网络云盘

  D．未经许可使用他人相片制作宣传海报
  组卷：8引用：2难度：0.9

  解析

• 2．关于搜索引擎和网页，下列说法正确的是（　　）

  A．搜索引擎搜索信息时，可通过减少关键字来减少搜索到的信息数

  B．用搜索引擎搜索信息，本质上是检索搜索引擎网站的索引数据库

  C．网页是由HTTP语言编写的纯文本文件，可以由记事本软件编辑

  D．选择“网页，仅HTML”方式保存网页，保存的文件不含超链接
  组卷：10引用：3难度：0.9

  解析

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

  A．文中有两处批注，添加批注的用户是“jw1”和“jw2”

  B．删除第一处批注，文字“乌衣巷”会被删除

  C．修订前，古诗第二行文字是“乌衣巷口夕阳斜”

  D．接受所有修订后，古诗第二行文字是“乌衣巷口夕阳斜”
  组卷：4引用：2难度：0.9

  解析

• 4．使用UltraEdit软件观察字符“Good Luck!”的内码，部分界面如图所示．下列说法正确的是（　　）
  

  A．字符“！”是ASCⅡ字符，其内码是A1

  B．字符“Good Luck!”共占用10个字节

  C．字符“g”内码用二进制表示是01100111

  D．字符“o”内码转十进制过程应为6×162+15×161
  组卷：12引用：5难度：0.7

  解析

• 5．使用Access软件创建的“student”数据表，部分界面如图所示．下列说法正确的是（　　）

  A．该数据表名称是“student”，共有6条记录

  B．“ID”字段的值一定是不相同的且不能为空值

  C．“身份证”字段的类型也可设置成“数字”型

  D．在数据表视图下，可在“班级”字段输入“1班”
  组卷：3引用：2难度：0.7

  解析

二、解答题（共5小题，满分26分）

• 16．【加试题】尼克斯彻定理：任何一个大于等于1的整数的立方等于一串连续奇数之和，如：1³=1，2³=3+5，3³=7+9+11．编写一个VB程序验证尼克斯彻定理，程序运行时，在文本框Text1中输入
  一个大于等于1的整数，单击“验证”按钮Commandl,在文本框Text2中显示验证结果，运行界面如图所示。
  实现上述功能的VB代码如下，其中加框处代码有错，请改正。
  Dim n As Integer,i As Integer,t As Integer,sum As Long,s As string
  n=Val（Text1．Text）
  For i=1 Ton^3 Step 2'变量i表示连续奇数的首个整数 
      sum=0：t=i：flag=False
      Do While sum＜=n^3 And flag=False
  sum=sum+t
                          （1）
  　　If sum=n^3 Then flag=True
     Loop
     If  flag=True Then Exit For
  Next i
  s=Str（n）+“^“+Str（3）+“=“
  Do While sum＞0
                                                  （2）
      If sum=0 Then
         s=s+Str（i）
      Else
          s=s+Str（i）+''+“
      End If
          i=i+2
  Loop
  Text2．Text=s
  End Sub。
  组卷：6引用：3难度：0.3

  解析

• 17．【加试题】某校开展“七选三”选课调查，选课数据存数据库文件“student.jye.ai”中，如图a所示．“选课”字段存储7位“0”、“1”组成的数串，每位对应一个科目，从左往右依次为“物化生政史地技”，“1”
  表示选择，“0”表示未选择，如“1110000”表示选择科目“物化生”．小吴设计了一个VB程序统计全校选课情况，功能如下：程序启动时从数据库中读入全校学生的学籍辅号、姓名、班级、选课信息，处理后在列表框List1中显示，单击“选课统计”按钮Commandl,在列表框List2中按选课人数从高到低输出各选课组及人数．程序界面如图b所示（学籍辅号和姓名的部分内容不显示）．
  实现上述功能的VB程序如下，请回答下列问题：
  （1）若某记录“选课”字段值为“1100001”，则该生的选课科目是

   

  ．
  （2）请在横线处填上合适的代码．
  Const max=1000
  Const s=“物化生政史地技”
  Dim n As Integer'存放学生人数
  Dim xjfh（1To max）As String,xmm（1To max）As string
  '数组bj存放学生班级，数组xk存储学生的选课标志
  Dim zh（1 To 35）As string,tj（1 To 35）As Integer
  '数组zh存储不同选课组合，数组tj存储某一组合选课的学生数
  Function adj（a As String,n As Integer）As string
  '函数功能：在被显示数据之后添加上合适的空格，代码略
  End Function
  Function convert（x As String）As String
  Dim i As Integer,st As String
  st=““
  For i=1 To Len（x）
  If Mid（x,i,1）=“1“Then st=st+Mid（s,i,1）
  Next i
  convert=st
  End Function
  Private Sub Form_-Load（　　）
      Dim i As Integer,km As String
      Dim conn As New ADODB．Connection
      Dim rs As New ADODB．Recordset
      conn.Connection String=“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_-info“
       n=0
       Do while Not rs.EOF
       n=n+1
       xjfh（n）=rs.Fields（0）：xm（n）=rs.Fields（1）
       bj（n）=rs.Fields（2）：xk（n）=rs.Fields（3）
  

   

  
       List1，AddItem xjfh（n）+adj（xm（n），4）+adj（Str（bj（n）），4）+adj（km,6）
       rs.MoveNext
   Loop
  '剩余部分代码略
  功能：产生35种选课组合的“0”“1”数串，存数组zh,；数组tj各元素初始化为0．
  End Sub
  Private Sub Commandl_-Click（　　）
    Dim i As Integer,j As Integer,temp2 As Integer,temp1 As Integer
  For i=1 To 35
     For j=1 To n
     If xk（j）=zh（i） Then

   

  
     Next j
  Next i
  For i=1 To 34
  For j=35 To i+1 Step-1
      If

   

  Then
         temp1=zh（j）：zh（j）=zh（j-1）：zh（j-1）=temp1
         temp2=tj（j）：tj（j）=tj（j-1）：tj（j-1）=temp2
       End If
      Next j
  Next i
  For i=1 To 35
         List2．Str（i）+adj（convert（zh（i）），6）+adj（Str（tj（i）），6）
  Next i
  End Sub.
  组卷：0引用：1难度：0.3

  解析