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

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

• 1．有如下Visual Basic程序段：
  m=“sch”
  n=Mid（“tools”，2，3）
  s=m+n
  該程序段運(yùn)行后，變量s的值為

   

  ．
  組卷：6引用：2難度：0.9

  解析

• 2．有如下Visual Basic程序段：
  a=3：b=4：c=5
  If a＞b And b＞c Then
  Label1．Caption=“happy“
  Else
  Label1．Caption=“better“
  End If
  該程序段運(yùn)行后，在標(biāo)簽Label1上顯示的是

   

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

  解析

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

• 7．有如下Visual Basic程序段：
  s=10
  For i=1To 20Step 3
  s=s+i
  Next i
  For j=1To 3
  s=s*j
  Next j
  問(wèn)：該程序段運(yùn)行后，
  （1）語(yǔ)句“s=s*j“執(zhí)行的次數(shù)為

   

  ．
  （2）變量s的值為

   

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

  解析

• 8．某協(xié)會(huì)進(jìn)行釣魚(yú)比賽，最后有十人進(jìn)入決賽，錄入員編制了如下Visual Basic程序，功能是根據(jù)成績(jī)進(jìn)行排序，程序中數(shù)組a保存所有參賽者的成績(jī)，數(shù)組b保存此成績(jī)對(duì)應(yīng)的姓名，第i位參賽者的成績(jī)保存在a（i）中，姓名保存在b（i）中。
  程序界面如圖所示，左邊列表框List1中顯示原始數(shù)據(jù)（成績(jī)和相應(yīng)的姓名），單擊“排序“按鈕（Command1），排序后的結(jié)果按成績(jī)從高到低顯示在列表框List2中。
  
  解決此問(wèn)題的算法流程圖如圖所示，排序部分的程序段如下：
  Dim a（1To 10）As Single
  Dim b（1To 10）As String
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,k As Integer,x As Single,y As String
  For i=1To 9
  k=i
  For j=i+1To 10
  If ①            Then k=j
  Next j
  If k＜＞i Then
  x=a（i）：a（i）=a（k）：②                       
  y=b（i）：b（i）=b（k）：b（k）=y
  End If
  Next i
  For i=1To 10
  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

  解析