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

四、程序設(shè)計題（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

• 1．有如下Visual Basic程序段：
  i=7：j=3
  k=i*j-j
  該程序段運行后，變量k的值為

   

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

  解析

四、程序設(shè)計題（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

• 3．有如下Visual Basic程序：
  Private Sub Command1_Click （　?。?br />Dim s As Integer,t As Integer
  t=1：s=0
  For i=1To 10Step 2
  t=t*2
  s=t+1
  Next i
  Text1．Text=Str（s）
  End Sub
  問：
  （1）程序運行后，變量s 的值為

   

  。
  （2）程序運行后，語句“t=t*2”被執(zhí)行的次數(shù)為

   

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

  解析

• 4．交通違章查詢。在違章查詢系統(tǒng)中輸入車主的汽車車牌號，查詢系統(tǒng)就會按照車牌號查找所有的違章記錄。下列程序的功能是根據(jù)車牌號查找該車的違章信息，數(shù)組a和b分別保存所有違章汽車的車牌號和違章原因，第i條信息的車牌號保存在a（i）中，對應(yīng)的違章原因保存在b（i）中。
  程序界面如圖1所示，在文本框Text1中輸入車牌號，單擊“開始查找”按鈕（Command1），電腦就開始查找該汽車所有的違章記錄，如果找到對應(yīng)的信息，就統(tǒng)計所有違章次數(shù)并在標(biāo)簽Label3中顯示違章總次數(shù)，同時在列表框List1中顯示所有違章的原因，如果沒有找到，則在列表框中顯示“沒有任何違章記錄”。
  解決此問題的算法流程圖如圖2所示，相應(yīng)程序如下，在程序①和②橫線處填入適當(dāng)?shù)恼Z句和代碼，把程序補充完整。
  Private Sub Command1_Click （　?。?br />Dim x As String,i As Integer,s As Integer
  List1．Clear
  s=0
  x=①         
  For i=1To n
  If x=a（i） Then
  s=s+1
  List1．AddItem b（i）
  End If
  Next i
  Label3．Caption=Str（s）
  If ②           Then List1．AddItem“沒有任何違章記錄“
  End Sub
  程序中①橫線處應(yīng)填入

   

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

   

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

  解析