2010年浙江省高中信息技術(shù)會(huì)考試卷（4）

一、填空題（共4小題，每小題3分，滿分12分）

• 1．有如下Visual Basic程序段：
  a=29：b=6
  a=a Mod b
  b=a+Len（“Input“）
  該程序段運(yùn)行后，變量b的值為

   

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

  解析

• 2．有如下Visual Basic程序段：
  x=2010
  s=10
  If x＜2012Then s=s+x
  Label1．Caption=Str（s）
  該程序段運(yùn)行后，在標(biāo)簽Label1上顯示的是

   

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

  解析

二、填空題（共4小題，每小題3分，滿分12分）

• 7．有如下Visual Basic程序段：
  Dim a As Integer,b As Integer,c As Integer
  a=20
  b=0
  c=2
  Do While a＞b And a＞c
  b=b+1
  c=c+b
  Loop
  問(wèn)：該程序段運(yùn)行后，
  （1）語(yǔ)句“b=b+1”執(zhí)行的次數(shù)為

   

  ．
  （2）變量c的值為

   

  ．
  組卷：11引用：2難度：0.3

  解析

• 8．學(xué)?！半娔X周“活動(dòng)已經(jīng)結(jié)束，林敏在班里舉行了一個(gè)“我最關(guān)注的競(jìng)賽項(xiàng)目“的投票活動(dòng)，她設(shè)計(jì)了一個(gè)Visual Basic程序，把所有同學(xué)的投票情況輸入到電腦里，先將各項(xiàng)目得票數(shù)和項(xiàng)目名分別保存在數(shù)組a和數(shù)組b中，第i個(gè)項(xiàng)目的得票數(shù)保存在a（i）中，對(duì)應(yīng)的項(xiàng)目名保存在b（i）中。
  
  程序界面如圖所示，左邊列表框List1中顯示同學(xué)評(píng)選的原始數(shù)據(jù)，單擊“得票統(tǒng)計(jì)“按鈕（Command1），所有得票數(shù)從高到低顯示在列表框List2中。
  解決此問(wèn)題的算法流程圖如圖所示，排序部分的程序段如下：
  Dim a（1To n） As Single
  Dim b（1To n） As String
  Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,k As Integer,x As Single,y As String
  For i=1To n-1'假設(shè)共有n個(gè)競(jìng)賽項(xiàng)目
  k=i
  For j=i+1To n
  If a（k）＜a（j） Then ①                
  Next j
  If k＜＞i Then
  x=a（i）
  a（i）=a（k）
  a（k）=x
  y=b（i）
  b（i）=b（k）
  b（k）=y
  ②                    
  Next i
  For i=1To n
  List2．AddItem Str（a（i））+““+b（i）
  Next i
  End Sub
  Private Sub Form_Load （　?。?br />'此過(guò)程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行初始賦值，代碼略
  End Sub
  （1）解決此問(wèn)題用的算法是

   

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

   

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

   

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

  解析