2018-2019學年浙江省杭州市西湖高級中學高二（下）月考信息技術試卷（4月份）

一、選擇題：本大題13小題，第小題2分，共26分．在每小題給出的四個選項中，只有一個是符合題目要求的．

• 1．下列可作為VB變量名的是（　　）

  A．a\b

  B．False

  C．cos

  D．sum1
  組卷：7引用：1難度：0.5

  解析

• 2．在VB語句dim s（9）as integer中，數組s的變量個數和類型是（　?。?/h2>

  A．9   整型	B．10  整型
  C．9  單精度型	D．10  單精度型
  組卷：5引用：1難度：0.5

  解析

• 3．將數學表達式x²≤y+z寫成VB表達式，正確的是（　?。?/h2>

  A．sqr（x）≤y+z

  B．x2≤y+z

  C．x^2＜=y+z

  D．x^2≤y+z
  組卷：6引用：1難度：0.8

  解析

• 4．VB表達式val（mid（str（3.5），2，1））的值是（　　）

  A．1

  B．2

  C．3

  D．5
  組卷：3引用：1難度：0.3

  解析

• 5．VB語句Text1．text=“浙江省“用于在文本框中顯示文字“浙江省”，該語句中的“text“是（　?。?/h2>

  A．類名

  B．對象名

  C．屬性名

  D．屬性值
  組卷：3引用：1難度：0.7

  解析

• 6．VB語句fix（rnd*6）+1所產生數的范圍（小括號表示邊界值不能取到，中括號表示邊界值能取到）是（　?。?/h2>

  A．[2，6]

  B．（1，5）

  C．[1，6]

  D．（2，5）
  組卷：1引用：1難度：0.4

  解析

二、綜合題：本大題6小題，其中第14題2分，第15題4分，第16題4分，第17題4分，第18題5分，第19題4分共19分．

• 18．下列程序的功能是對某校2011年3月份技術高考成績進行排名分析，數組a中保存學生技術考試的成績，數組b中保存學生的姓名，第i個學生的技術成績保存在a（i）中，對應的學生姓名保存在b（i）中，最后按技術成績從高到低進行排序。程序界面如圖所示，左邊列表框List1中顯示的是所有學生到的原始數據，單擊“排序“按鈕（Command1）后，在右邊的列表框List2中顯示排序完成后的結果（按成績從高到低排列）。
  （1）虛線內程序段所采用的排序算法名稱是

   

  。
  （2）程序加框處代碼有錯，請改正。
  Dim a（1 To n） As Single'設共有n名學生
  Dim b（1 To n） As String
  Private Sub Form_Load

   

  
  End Sub
  Private Sub Command1_Click

   

  
  Dim i As Integer,j As Integer
  Dim tmp As ，st As String
  
  b（j）=st
  End If
  Next j
  Next i
  For i=1 To n
  st=Str（a（i））+″″+b（i）
  List2．AddItem st
  Next i
  End Sub
  組卷：0引用：1難度：0.6

  解析

• 19．數組a中存儲的是左右交替上升的n個正整數，如表所示：
  

  a（1）	a（2）	a（3）	……	a（n-2）	a（n-1）	a（n）
  3	25	38	……	55	31	12

  依據對分查找思想，設計一個在數組a中查找數據key的程序。實現該功能的VB程序如下，但加框處代碼有錯，請改正。
  Private Sub Command1_Click （　　）
  Const n=6
  Dim a（1 To n）As Integer,flag As Boolean
  Dim i As Integer,j As Integer,m As Integer,key As Integer
  '讀取一組正整數，按上述規則存入數組a中，代碼略。
  key=Val（Text1．Text）
  i=1
  j=（n+1）\2
  flag=False
  Do While  And Not flag'（1）
  m=（i+j）\2
  If key=a（m） Then
  flag=True
  Elself key＜a（m） Then
  j=m-1
  Else
  i=m+1
  End If
  Loop
  If Not flag And j＞0 Then
  m='（2）
  If key=a（m） Then flag=True
  End If
  If flag Then
  Text2．Text=Str（m）
  Else
  Text2．Text=“找不到“
  End If
  End Sub
  組卷：1引用：2難度：0.5

  解析