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

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

• 1．下列有关信息的说法，不正确的是（　　）

  A．BBS是一种常用信息交流方式，一般情况下匿名登录不能进行发帖、跟帖操作

  B．邮件服务器使用POP3协议的主要目的就是发送邮件

  C．信息无处不在，但并不一定都是真实的

  D．虚拟现实（VR）和云计算都是信息处理的技术
  组卷：10引用：3难度：0.9

  解析

• 2．以下做法中，有助于提高信息安全等级的措施是（　　）

  A．为了加快系统运行速度，关闭防火墙

  B．从网络上下载的免费软件和共享软件，先安装使用，不喜欢再卸载

  C．及时更新杀毒软件的病毒库

  D．直接打开电子邮件附件中的任何文件
  组卷：14引用：3难度：0.9

  解析

• 3．下列应用中，肯定没有使用到语音识别技术的是（　　）

  A．利用某手机APP录制歌曲，并将录制歌曲上传到某交流平台

  B．使用导航仪，以语音交互的方式规划行车路线

  C．通过电话使用自动语音查询系统查询有关机票、旅游、银行等信息

  D．在某通信软件中将语音对话记录转换成文字记录
  组卷：3引用：1难度：0.9

  解析

• 4．下列关于Access数据表的叙述中，错误的是（　　）

  A．数据表中每一列必须是类型相同的数据

  B．修改字段的数据类型很可能丢失原有的数据

  C．在数据表中删除一条记录后，可以通过“撤销”命令恢复该记录

  D．在输入数据或对数据进行修改时，不能向不同记录的主键字段输入相同的值
  组卷：3引用：1难度：0.7

  解析

• 5．某算法流程图如图所示，执行这部分流程后，变量s的值及x←x+1执行的次数分别为（　　）

  A．0  3

  B．-5  4

  C．0  4

  D．-5  3
  组卷：4引用：1难度：0.7

  解析

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

• 16．数组a中有50个正整数，已按升序排列．在文本框Text1中输入一个正整数m,寻找数组a中是否有一对数的和等于给定的数m.若存在和为m的数对，输出该数对包含的两个整数，小的在前，大的在后．若有多个数对满足条件，则输出最先找到的数对．若找不到符合要求的数对，则输出“没有符合条件的数对”．小吴为此编写了VB程序，代码如下，但加框处代码有错，请改正．
  Dim a（1 To 50）As Integer
  Const n=50
  Private Sub Command1_Click（　　）
    Dim m As Integer,left As Integer,right As Interger,mid As Integer
    Dim flag As Boolean
    flag=False：m=Val（Text1．Text）
    For i=1 To n-1
  （1）
       right=n
         Do While （2）
             mid=（left+right）\2
             If a（i）+a（mid）＜m Then
             left=mid+1
           ElseIf a（i）+a（mid）＞m Then
              right=mid-1
             Else
                List1．AddItem Str（a（i）） &““&Str（a（mid））
               flag=True
            End If
          Loop
    Next i
    If Not flag Then List1．AddItem“没有符合条件的数对“
  End Sub.
  组卷：0引用：1难度：0.3

  解析

• 17．正整数n的阶乘，在数学中定义为：n!=1×2×3×…×n,如：3!=1×2×3，现在输入一个正整数n（n＜=30），计算出1～n中的每一个整数的阶乘的精确结果．小北按照上述要求，设计一个求前n个正整数的阶乘问题的VB程序，功能如下：在程序中他采用加法代替乘法的方法来计算阶乘，如：3!=2!×3=2!+2!+2!．程序启动后在文本框Text1中输入n的值，单击“计算”按钮Command1，在列表框List1中输出前n个数的阶乘．当n=10时，程序运行效果如图所示：
  
  实现上述功能的VB程序如下请在横线处填入合适的代码．
  Const maxn=80
  Dim i As Integer,j As Integer,k As Integer,n As Interger,r As Interger
  Dim a（1 To maxn）As Integer,b（1 To maxn）As Integer,s As String
  Private Sub Form_Load（　　）
       List1．Clear
       For i=1 To maxn
           a（i）=0
       Next i
  End Sub
  Sub array_sum（j As Integer）'该过程用于计算 j!，并将j!的精确值按位保存在数组a中
      For k=1 To j-1
        For i=1 To maxn
        r=

   

  
        If r＞=10 Then

   

  =a（i+1）+1
        a（i）=r Mod 10
        Next i
      Next k
  End Sub
  Private Sub Command1_Click（　　）
      n=Val（Text1．Text）
      a（1）=1
      List1．AddItem“1!=“&Str（a（1））
      For j=2 To n
          For i=1 To maxn
              b（i）=a（i）
          Next i
          s=““
          Call array_sum（j）'该语句用于调用自定义过程 array_sum
          s=s+Str（j）+“!=“
          k=maxn
          Do While a（k）=0
  

   

  
          Loop
          For i=k To 1 step-1
              s=s+Str（a（i））
          Next i
          List1．AddItem s
      Next j
  End Sub.
  组卷：2引用：1难度：0.1

  解析