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

  解析