2019-2020学年浙江省金华市武义三中高二（上）月考信息技术试卷（10月份）

一、选择题（共10小题，每小题4分，满分40分）

• 1．对10个数据进行冒泡排序，需要比较的次数是（　　）

  A．90

  B．110

  C．45

  D．55
  组卷：10引用：2难度：0.5

  解析

• 2．篮球联赛中，有5个班级的比赛积分依次为14，11，13，8，9．若采用冒泡排序算法对其进行从小到大排序，则完成第二遍时的结果是（　　）

  A．8，11，13，14，9	B．8，9，13，14，11
  C．8，9，14，11，13	D．14，13，11，9，8
  组卷：6引用：3难度：0.5

  解析

• 3．有如下Visual Basic程序段：
  m=a（1）
  i=2
  Do While i＜=10
  If m＜a（i） Then m=a（i）
  i=i+1
  Loop
  该程序段执行后，变量m中存储的是（　　）

  A．a（1）至a（10）中的最大值

  B．a（1）至a（10）中的最小值

  C．a（2）至a（10）中的最大值

  D．a（2）至a（10）中的最小值
  组卷：1引用：2难度：0.5

  解析

一、选择题（共10小题，每小题4分，满分40分）

• 10．有如下VB程序：
  Dim i As Integer,j As Integer,k As string,n As Integer
  n=3
  List1．Clear
  For i=1To n
  k=″″
  For j=1To i
  k=k+″*″
  Next j
  List1．AddItem k
  Next i
  该程序运行后，在列表框List中显示的是（　　）

  A．

  B．

  C．

  D．
  组卷：11引用：3难度：0.5

  解析

二、填空题（共1小题，每小题10分，满分10分）

• 11．下面VB程序的功能是求100～999间被3除余2，被5除余3的所有整数，并统计符合条件的数的个数。
  Private Sub Command1_Click （　　）
  Dim i As Integer,P As Integer
  p=0
  For i=100 To 999
  If

   

  Then
  List1．AddItem Str（i）
  

   

  
  End If
  Next i
  List1．AddItem Str（p）
  End Sub
  为实现上述功能，请在程序横线处填入合适的语句：
  划线①处应填入的语句为：

   

  ；
  划线②处应填入的语句为：

   

  。
  组卷：1引用：1难度：0.6

  解析