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

一、選題題（算法）

• 1．在Visual Basic中，下列能作為變量名的是（　　）

  A．Len

  B．Gcd

  C．End

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

  解析

• 2．在Visual Basic中，表達式Str（100）+“20“的值是（　　）

  A．“30“

  B．“120“

  C．“320“

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

  解析

• 3．在Visual Basic中，下列屬于窗體文件的是（　　）

  A．book.jye.ai	B．book.jye.ai
  C．book.jye.ai	D．book.jye.ai
  組卷：1引用：1難度：0.7

  解析

二、填空部分

• 10．為了找出QQ在線時間最長的5名學生，李風設計了一個排序程序．程序運行界面如圖所示：
  
  左邊列表框List1中顯示排序前數據，單擊“排序”按鈕Command1，在右邊列表框List2中顯示在線時間從高到低排名前5名的數據．程序中數組a和數組b分別存儲學生的QQ昵稱和對應的QQ在線時間．
  程序代碼如下：
  Const n As Integer=14'n為學生數
  Dim a（1To n） As String'數組a用于存儲學生的QQ昵稱
  Dim b（1To n） As Integer'數組b用于存儲學生的QQ在線時間
  Private Sub Command1_Click （　　）
  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
  '以下函數用于在字符串后補插空格
  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 （　　）
  '此過程用于對數組a和數組b進行賦值，并顯示在List1中，代碼略
  End Sub
  （1）解決此問題采用的算法是

   

  ．（填：選擇排序/冒泡排序）
  （2）在程序①和②填入適當的語句或表達式，將程序補充完整：
  程序中①應填入

   

  ．程序中②處應填入

   

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

  解析

三、操作題

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

  解析