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

一、選題題（算法）

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

  A．5a

  B．If

  C．Abs

  D．Tea
  組卷：8引用：4難度：0.9

  解析

• 2．在Visual Basic中，若需將150位員工工號（如“B01036”）分別存儲在數(shù)組n的n（1）～n（150）元素中，則下列說明語句最合適的是（　?。?/h2>

  A．Dim n（1 To 150）As Single

  B．Dim n（1 To 150）As String

  C．Dim n（1 To 150）As Integer

  D．Dim n（1 To 150）As Boolean
  組卷：18引用：3難度：0.9

  解析

• 3．下列Visual Basic表達(dá)式中，只能產(chǎn)生[0，8）中的隨機實數(shù)的是（　　）

  A．Rnd（　?。?8	B．Rnd（　?。?9
  C．Int（Rnd（　　）*8）+1	D．Int（Rnd（　?。?9）+1
  組卷：3引用：1難度：0.7

  解析

二、填空部分

• 9．鄭強收集了某月部分品牌電腦在某城市的銷售量，并設(shè)計了一個Visual Basic排序程序。程序運行界面如圖所示，左邊列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Command1，在右邊列表框List2中顯示按銷售量從高到低排序后的結(jié)果。程序中數(shù)組a和數(shù)組b分別存儲品牌名稱和對應(yīng)的銷售量。
  
  程序代碼如下：
  Const n As Integer=10'n為品牌數(shù)
  Dim a（1To n） As String'數(shù)組a用于存儲品牌名稱
  Dim b（1To n） As Integer'數(shù)組b用于存儲銷售量
  Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,c As Integer,t As String
  For i=1To

   

  
  For j=1To n-i
  If

   

  Then
  c=b（j+1）：b（j+1）=b（j）：b（j）=c
  t=a（j+1）：a（j+1）=a（j）：a（j）=t
  End If
  Next j
  Next i
  For i=1To n
  List2．AddItem a（i）+““+Str（b（i））
  Next i
  End Sub
  Private Sub Form_Load

   

  
  '此過程用于對數(shù)組a和數(shù)組b進行賦初值，并顯示在List1中，代碼略
  End Sub
  （1）解決此問題采用的算法是

   

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

   

  。
  程序中②橫線處應(yīng)填入

   

  。
  組卷：0引用：1難度：0.1

  解析

三、操作題

• 10．打開考生文件夾下“VB”文件夾中的“test.jye.ai”，該VB程序的功能是：運行程序，出現(xiàn)“奔跑”畫面；單擊“加速”按鈕Command1，奔跑速度加快；單擊“停止”按鈕Command2，奔跑停止；單擊“結(jié)束”按鈕Command3，退出程序。程序運行界面如圖所示：
  完成以下操作：
  （1）將命令按鈕Command1的Caption屬性值設(shè)置為“加速”；
  （2）為“停止”按鈕Command2添加Click事件過程，并將“VB”文件夾下“code.jye.ai”文件中的所有代碼復(fù)制到該過程中。調(diào)試程序正確，并保存窗體文件test。frm和工程文件test。vbp。
  組卷：0引用：2難度：0.9

  解析