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

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

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

   

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

  解析

• 2．有如下Visual Basic程序段：
  a=Mid（“Please input“，4，2）
  b=“Please“
  If Len（a）＜Len（b） Then
  Label1．Caption=“標準“
  Else
  Label1．Caption=“不合格“
  End If
  該程序段運行后，在標簽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
  問：該程序段運行后，
  （1）變量i的值是

   

  。
  （2）變量s的值為

   

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

  解析

• 8．陳曉峰和同學們去農科院開展研究性學習，大家都收獲很大，曉峰設計了一個Visual Basic程序，他把同學們收集到的水稻畝產量和同學姓名已分別保存在數組a和數組b中，第i個同學收集的畝產量保存在a（i）中，對應的同學姓名保存在b（i）中，最后按畝產量從高到低進行排序。
  程序界面如圖所示，左邊列表框List1中顯示的是所有同學收集到的原始數據，單擊“排序“按鈕（Command1）后，在右邊的列表框List2中顯示排序完成后的結果（按畝產量從高到低排列）。
  
  解決此問題的算法流程圖如圖所示，相應的排序部分程序如下：
  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'設共有n名同學
  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 （　?。?br />'此過程用于對數組a和數組b進行初始賦值，代碼略
  End Sub
  （1）解決此問題的算法是

   

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

   

  。
  （3）程序中②橫線處應填入

   

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

  解析