2018-2019學(xué)年浙江省杭州市西湖高級(jí)中學(xué)高二（下）月考信息技術(shù)試卷（4月份）

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

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

  A．a(chǎn)\b

  B．False

  C．cos

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

  解析

• 2．在VB語句dim s（9）as integer中，數(shù)組s的變量個(gè)數(shù)和類型是（　　）

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

  解析

• 3．將數(shù)學(xué)表達(dá)式x²≤y+z寫成VB表達(dá)式，正確的是（　?。?/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表達(dá)式val（mid（str（3.5），2，1））的值是（　?。?/h2>

  A．1

  B．2

  C．3

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

  解析

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

  A．類名

  B．對(duì)象名

  C．屬性名

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

  解析

• 6．VB語句fix（rnd*6）+1所產(chǎn)生數(shù)的范圍（小括號(hào)表示邊界值不能取到，中括號(hào)表示邊界值能取到）是（　　）

  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．下列程序的功能是對(duì)某校2011年3月份技術(shù)高考成績進(jìn)行排名分析，數(shù)組a中保存學(xué)生技術(shù)考試的成績，數(shù)組b中保存學(xué)生的姓名，第i個(gè)學(xué)生的技術(shù)成績保存在a（i）中，對(duì)應(yīng)的學(xué)生姓名保存在b（i）中，最后按技術(shù)成績從高到低進(jìn)行排序。程序界面如圖所示，左邊列表框List1中顯示的是所有學(xué)生到的原始數(shù)據(jù)，單擊“排序“按鈕（Command1）后，在右邊的列表框List2中顯示排序完成后的結(jié)果（按成績從高到低排列）。
  （1）虛線內(nèi)程序段所采用的排序算法名稱是

   

  。
  （2）程序加框處代碼有錯(cuò)，請(qǐng)改正。
  Dim a（1 To n） As Single'設(shè)共有n名學(xué)生
  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．數(shù)組a中存儲(chǔ)的是左右交替上升的n個(gè)正整數(shù)，如表所示：
  

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

  依據(jù)對(duì)分查找思想，設(shè)計(jì)一個(gè)在數(shù)組a中查找數(shù)據(jù)key的程序。實(shí)現(xiàn)該功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
  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
  '讀取一組正整數(shù)，按上述規(guī)則存入數(shù)組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

  解析