2017年浙江省名校信息技术仿真试卷（一）

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

• 1．信息安全危害的两大源头是病毒和黑客，因为黑客是（　　）

  A．网络的非法入侵者	B．Cookies的发布者
  C．计算机编程高手	D．信息垃圾的制造者
  组卷：5引用：2难度：0.9

  解析

• 2．要在Word中达到如图所示的图文混排效果，需要设置图片的环绕方式为（　　）

  A．四周型	B．浮于文字上方
  C．紧密型	D．衬于文字下方
  组卷：10引用：1难度：0.9

  解析

• 3．小刚想假期和同学一起去上海迪士尼乐园游玩，他用浏览器访问了上海迪士尼乐园网站https：//www.shanghaidisneyresort.jye.ai/，该网站所采用的协议是（　　）

  A．FTP

  B．SMTP

  C．HTTP

  D．POP3
  组卷：3引用：4难度：0.9

  解析

• 4．如图所示为Access2010数据表视图，其中“编号”字段数据类型为“自动编号”，下列说法正确的是（　　）
  

  A．该数据库的文件名为“学生信息．accdb”

  B．该表共有20条记录

  C．该表可能有6个字段

  D．如果删除“编号”为16的记录，则新纪录的“编号”为16
  组卷：4引用：1难度：0.5

  解析

• 5．某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是（　　）
  

  A．2，True

  B．3，True

  C．2，False

  D．3，False
  组卷：5引用：2难度：0.7

  解析

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

• 16．【加试题】某地2017.1-2017.2月的日期及日最高气温数据保存在数据库中．现要求根据日最高气温，找出这两个月中连续降温的次数、连续最长降温天数及其日期．小刘为此编写了VB程序，程序运行时，单击按钮Command1后，在标签Label1和Label2上输出运行结果．实现上述功能的VB代码如下，但加框处代码有错，请改正．
  Dim a（1 To 59）As String'依次存储2017.1-2017.2月的日期数据
  Dim b（1 To 59）As Integer'依次存储2017.1-2017.2月的日最高气温数据
  Private Sub Form_Load（　　）
  '本过程从数据库中按2017.1-2017.2的日期次序，读取日期和日最高气温数据，分别存储在数组a和数组b中
  '代码略
  End Sub
  Private Sub Command1_Click（　　）
     Dim d As Integer,n As Integer
     Dim dmax As Integer,m As Integer
     n=0：d=1：dmax=1
     For i=2 To 59
         If Then'①
             d=1+1
         Else
             d=1
         EndIf
         If d=2 Then n=n+1
         If d＞dmax Then
             dmax=d
             m=i
         EndIf
     Next i
     Label1．Caption=“连续降温次数“& Str（n）
     Label2．Caption=“连续最长降温日期为：“& &“-“& Str（a（m）） &“持续天数为：“& Str（dmax）'②
  End Sub
  （1）①处应改为

   

  ；
  （2）②处应改为

   

  ．
  组卷：3引用：1难度：0.1

  解析

• 17．【加试题】当计算机程序中无法用普通数据类型表示位数较多的乘数和计算结果时，就需要采用高精度乘法．如，当两个各有20位数字的整数相乘时，就无法用长整型（Long）数据类型来表示．高精度乘法运算就是运用数组，用程序模拟列竖式计算的过程．两个正整数进行高精度乘法计算的一般算法如下：
  （1）将第一个整数各位上的数字按照从低位到高位的顺序依次存入数组a（1）、a（2）、…、a（La）中，将另一个整数各位上的数字按照从低位到高位的顺序表示第二个整数的位数；
  （2）按照从低位到高位的顺序，将两个整数各位数值进行逐位乘法计算（第一轮先让b（1）依次乘以a（1）、a（2）、…、a（La），第二轮再让b（2）依次乘以a（1）、a（2）、…、a（La），依次进行），每位的乘法结果也按照低位到高位的顺序依次存入数组ans（1）、ans（2）、ans（3）…中；
  （3）对数组ans中的计算结果进行从低位到高位的进位处理；
  （4）统计数组ans中实际计算结果的有效数值位数，并将位数值存入变量length；
  （5）按照高位到低位的顺序输出数组ans中的计算结果．
  小强按照上述方法设计了一个两数进行高精度乘法计算的VB程序，功能如下：在文本框Text1和Text2中依次输入两个整数，单击“计算”按钮Command1，程序进行高精度乘法计算，并在标签Label4中输出计算结果．下面信息显示了进行高精度乘法计算的主要过程（假设输入的两个整数分别为“123”和“45”）：
  
  程序运行效果如图3所示．
  
  实现上述功能的VB程序如下：
  （1）请在画线处填入合适代码．
  Dim a（1 To 30）As Integer,b（1 To 30）As Integer,ans（1 To 60）As Integer
  Dim La As Integer,Lb As Integer,length As Integer
  Private Sub Command1_Click（　　）
     Dim i As Integer,j As Integer,t As Integer,temp As String
  '将两个乘数（正整数）各数位上的数字按照上述算法依次存入数组a和b,每个正整数位数分别保存到变量La和Lb；将保存结果的数组ans（i）值初始化为零（该部分程序代码略）
     For i=1 To Lb'按低位到高位的顺序进行列竖式的逐位乘法
         For j=1 To La
             ans（i+j-1）=

   

  +b（i）*a（j）
         Next j
     Next i
     For i=1 To La+Lb'对计算结果进行进位处理
         ans（i+1）=ans（i+1）+ans（i）\10
         ans（i）=

   

  
     Next i
     Length=La+Lb
     Do While ans（lenth）=0
         length=length-1
     Loop
     For i=

   

   To 1 Step-1
        Label4．Caption=Label4．Caption & Str（ans（i））
     Next i
  End Sub
  （2）根据本题算法，若输入的两个整数分别为5125和18，则在输出乘法计算结果时，变量length的值为

   

  ．
  组卷：5引用：1难度：0.1

  解析