2011年浙江省高中信息技術(shù)會考試卷（15）

一、選題題（算法）

• 1．在Visual Basic中，下列能作為變量名的是（　?。?/h2>

  A．Len

  B．Gcd

  C．End

  D．And
  組卷：2引用：1難度：0.9

  解析

• 2．在Visual Basic中，表達(dá)式Str（100）+“20“的值是（　?。?/h2>

  A．“30“

  B．“120“

  C．“320“

  D．“10020“
  組卷：1引用：1難度：0.9

  解析

• 3．在Visual Basic中，下列屬于窗體文件的是（　?。?/h2>

  A．book.vbp

  B．book.frm

  C．book.frx

  D．book.vbw
  組卷：1引用：1難度：0.7

  解析

二、填空部分

• 10．為了找出QQ在線時間最長的5名學(xué)生，李風(fēng)設(shè)計了一個排序程序．程序運行界面如圖所示：
  
  左邊列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Command1，在右邊列表框List2中顯示在線時間從高到低排名前5名的數(shù)據(jù)．程序中數(shù)組a和數(shù)組b分別存儲學(xué)生的QQ昵稱和對應(yīng)的QQ在線時間．
  程序代碼如下：
  Const n As Integer=14'n為學(xué)生數(shù)
  Dim a（1To n） As String'數(shù)組a用于存儲學(xué)生的QQ昵稱
  Dim b（1To n） As Integer'數(shù)組b用于存儲學(xué)生的QQ在線時間
  Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,t As String,p As Integer
  For i=1To n-1
  For j=n To i+1Step-1
  If  ①Then
  t=a（j-1）：a（j-1）=a（j）：a（j）=t
  p=b（j-1）：b（j-1）=b（j）：b（j）=p
  End If
  Next j
  Next i
  For i=1To 5
  List2．AddItem SpaceEx（a（i））+Str（b（i））+“分鐘“
  Next i
  End Sub
  '以下函數(shù)用于在字符串后補插空格
  Function SpaceEx（s As String） As String
  Dim t As String,d As Integer,i As Integer
  t=s：d=Len（s）
  For i=1To 5-d
  t=t+““
  Next i
  SpaceEx=②
  End Function
  Private Sub Form_Load （　?。?br />'此過程用于對數(shù)組a和數(shù)組b進行賦值，并顯示在List1中，代碼略
  End Sub
  （1）解決此問題采用的算法是

   

  ．（填：選擇排序/冒泡排序）
  （2）在程序①和②填入適當(dāng)?shù)恼Z句或表達(dá)式，將程序補充完整：
  程序中①應(yīng)填入

   

  ．程序中②處應(yīng)填入

   

  ．
  組卷：21引用：2難度：0.1

  解析

三、操作題

• 11．打開考生文件夾下“VB”文件夾中的“test.vbp”，該VB程序的功能是：在列表框List1中顯示10位工人完成的零件數(shù)，單擊“計算”按鈕Command1，計算10位工人完成的零件總數(shù)，并顯示在文本框Text1中。程序運行界面如圖所示：
  完成以下操作：
  （1）將命令按鈕Command1的Caption屬性值設(shè)置為“計算”。
  （2）運行程序，發(fā)現(xiàn)統(tǒng)計出的完成總數(shù)沒有顯示在Text1中，修改程序中的一處代碼修正此問題。調(diào)試程序正確，并保存窗體文件test。frm與工程文件test。vbp。
  組卷：0引用：1難度：0.9

  解析