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

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

• 1．有如下Visual Basic程序段：
  a=15
  b=Val（“256“）
  a=a*2+b
  該程序段運(yùn)行后，變量a的值為

   

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

  解析

• 2．有如下Visual Basic程序段：
  a=Mid（“Please input“，4，2）
  b=“Please“
  If Len（a）＜Len（b） Then
  Label1．Caption=“標(biāo)準(zhǔn)“
  Else
  Label1．Caption=“不合格“
  End If
  該程序段運(yùn)行后，在標(biāo)簽Label1上顯示的是

   

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

  解析

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

• 7．有如下Visual Basic程序段：
  s=150：i=1
  Do While s＞100
  s=s-i+1
  i=i+20
  Loop
  問：該程序段運(yùn)行后，
  （1）變量i的值是

   

  。
  （2）變量s的值為

   

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

  解析

• 8．陳曉峰和同學(xué)們?nèi)マr(nóng)科院開展研究性學(xué)習(xí)，大家都收獲很大，曉峰設(shè)計(jì)了一個(gè)Visual Basic程序，他把同學(xué)們收集到的水稻畝產(chǎn)量和同學(xué)姓名已分別保存在數(shù)組a和數(shù)組b中，第i個(gè)同學(xué)收集的畝產(chǎn)量保存在a（i）中，對(duì)應(yīng)的同學(xué)姓名保存在b（i）中，最后按畝產(chǎn)量從高到低進(jìn)行排序。
  程序界面如圖所示，左邊列表框List1中顯示的是所有同學(xué)收集到的原始數(shù)據(jù)，單擊“排序“按鈕（Command1）后，在右邊的列表框List2中顯示排序完成后的結(jié)果（按畝產(chǎn)量從高到低排列）。
  
  解決此問題的算法流程圖如圖所示，相應(yīng)的排序部分程序如下：
  Dim a（1To n） As Single
  Dim b（1To n） As String
  Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,c As Single,t As String
  For i=1To n'設(shè)共有n名同學(xué)
  For j=n To i+1 ①               
  If ②             Then
  c=a（j-1）
  a（j-1）=a（j）
  a（j）=c
  t=b（j-1）
  b（j-1）=b（j）
  b（j）=t
  End If
  Next j
  Next i
  For i=1To n
  List2．AddItem Str（a（i））+““+b（i）
  Next i
  End Sub
  Private Sub Form_Load （　　）
  '此過程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行初始賦值，代碼略
  End Sub
  （1）解決此問題的算法是

   

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

   

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

   

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

  解析