2018-2019学年浙江省台州市临海市白云高级中学高三（上）第一次月考信息技术试卷

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

• 1．关于病毒，下列说法正确的是（　　）

  A．下载安装手机应用软件可能会感染病毒

  B．病毒隐藏在合法的文件中不被发现体现了病毒的传染性

  C．杀毒软件只需经常更新升级，就能有效查杀所有病毒

  D．QQ好友之间发送的文件肯定是安全的，不需要查杀病毒
  组卷：8引用：2难度：0.9

  解析

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

  A．删除批注内容“江苏文艺出版社出版”，则批注也被删除

  B．不能再为《你必须很努力，才能看起来毫不费力》添加批注

  C．图片与文字的环绕方式可能是“紧密型”

  D．接受所有修订后，第三行的部分文字是“该书通过四十个真实有料的故事，让人直面追梦路”
  组卷：7引用：2难度：0.9

  解析

• 3．使用UltraEdit软件观察字符内码，部分界面如图所示。下列关于字符组成的说法中，正确的是（　　）
  

  A．5个汉字	B．10个ASCII码
  C．2个汉字和8个ASCII码	D．4个汉字和2个ASCII码
  组卷：12引用：2难度：0.5

  解析

• 4．下列关于Access数据表中“自动编号”的说法中，正确的是（　　）

  A．可以同时存在两个数据类型为“自动编号”的字段

  B．某字段的数据类型为“自动编号”，该字段不能设置为主键

  C．某字段的数据类型为“自动编号”，该字段对应的记录值不能手工输入

  D．删除记录，剩余记录中数据类型为自动编号的字段值会自动更新
  组卷：3引用：2难度：0.5

  解析

• 5．某算法的部分流程图如图所示。执行这部分流程后s的值是（　　）
  

  A．28

  B．4

  C．18

  D．8
  组卷：2引用：2难度：0.9

  解析

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

• 16．一个正整数（非素数）可以表示成它的质因子（“1”与其本身除外）的乘积。给出任一个整数N，求出它所有的质因子以及每个因子出现的次数，并显示乘积表达式。例如：整数120=2×2×2×3×5，所以它的质因子是2，3，5，次数分别是3次，1次，1次。
  用Visual Basic编写一个程序求质因子，功能如下：在文本框Text1中输入一个数，单击“计算”命令按钮Command1，在列表框中显示该数的质因子及相应的次数，并显示乘积表达式。程序运行时的界面如图所示。
  
  实现上述功能的VB程序如下，但加框处代码有错，请改正：
  Private Sub Command1_Click （　　）
  Dim a（1 To 100）As Integer'数组a存放该整数的质因子出现的次数
  Dim i As Integer,m As Integer,n As Integer,k As Integer,s As String
  n=Val（Text1．Text）
  m=n
  k=Int（Sqr（n））
  For i=2 To k
  a（i）=0
  Next i
  For i=2 To k
  Do While n Mod i=0
  

  a（k）=a（k）+1'

  ①
  n=n\i
  If

  n=1

  Then s=s+Str（i）+″×″Else s=s+Str（i）：Exit For'②
  Loop
  Next i
  List1．AddItem“质因子″&″″&″次数″
  For i=2 To k
  If a（i）＜＞0 Then List1．AddItem Str（i） &″″& Str（a（i））
  Next i
  List1．AddItem Str（m）+″=″+s
  End Sub
  加框①处应改为：

   

  ；加框②处应改为：

   

  。
  组卷：0引用：1难度：0.5

  解析

• 17．小王准备编写一个依据技术学考、加试成绩进行赋分的VB程序，需对成绩进行预处理。预处理算法的基本思想：先从数据库中读取考生的考号、学考、加试成绩，然后进行排序，排序规则是按学考+加试的总分降序，若总分相同按加试成绩降序排列。再根据排序结果给出名次，同分同名，学考、加试成绩相同，则名次相同。
  程序运行时，学生数据显示在列表框List1中，单击“计算”按钮Command1，计算结果显示在列表框List2中，程序运行界面如图所示。
  
  实现上述功能的VB程序如下，请回答下列问题：
  （1）如图所示，学生总数为1500人，排名前1%的学生可赋分为100，则共有

   

  名学生可赋分为100。
  （2）分析数据，可知存放学生成绩的数据表为

   

  。
  （3）请在横线处填入合适的代码。
  Dim kh（1 To 1500）As String'存放学生考号
  Dim a（1 To 1500）As Integer'存放学考成绩
  Dim b（1 To 1500）As Integer'存放加试成绩
  Dim pm（1 To 1500）As Integer'存放排名
  Dim n As Integer'存放总人数
  Private Sub Form_Load （　　）
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  conn.ConnectionString=″Provider=Microsoft.ace.OLEDB.12.0；DATA Source=″+App.Path+″\cj.jye.ai″
  conn.Open
  Set rs.ActiveConnection=conn
  rs.Open″select*from stu_cj″
  List1．AddItem“考号″&″学考″&″加试″
  n=0
  Do While Not rs.EOF'到记录集最后一条记录后退出循环
  n=n+1'计数
  kh（n）=rs.Fields（″考号″）
  a（n）=rs.Fields（″学考成绩″）
  b（n）=rs.Fields（″加试成绩″）
  List1．AddItem kh（n） &″″& a（n） &″″& b（n）
  rs.MoveNext'移动到下一条记录
  Loop
  rs.Close
  conn.Close
  Set rs=Nothing
  Set conn=Nothing
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t As Integer,k As String
  For i=1 To n-1
  For j=n To i+1 Step-1
  If a（j）+b（j）＞a（j-1）+b（j-1）Or ①

   

  Then
  t=a（j）：a（j）=a（j-1）：a（j-1）=t
  t=b（j）：b（j）=b（j-1）：b（j-1）=t
  k=kh（j）：kh（j）=kh（j-1）：kh（j-1）=k
  End If
  Next
  Next
  pm（1）=1
  For i=2 To n
  If a（i）=a（i-1）And b（i）=b（i-1）Then
  ②

   

  
  Else
  pm（i）=i
  End If
  Next
  List2．Clear
  List2．AddItem″排名″&″考号″&″学考″&″加试“
  For i=1 To n
  List2．AddItem pm（i） &″″& kh（i） &″″& a（i） &″″& b（i）
  Next
  End Sub
  组卷：0引用：1难度：0.5

  解析