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

一、程序設計題（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

• 1．有如下Visual Basic程序段：
  m=8
  n=5
  t=m+n
  t=t-n
  該程序段運行后，變量t的值為

   

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

  解析

一、程序設計題（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

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

   

  。
  （2）循環(huán)剛退出時，變量i的值為

   

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

  解析

• 4．在某學校里，每位同學都會得到一張一卡通卡，一卡通的卡號是唯一的，卡內會記錄每位同學的姓名、住址、班級、金額等信息。每當同學刷卡時，卡號就被輸入電腦，然后進行查找，如果找到就顯示姓名，否則顯示“查無此人”。下列程序的功能是根據(jù)卡號查找對應的姓名，程序中數(shù)組a保存所有已發(fā)放一卡通的卡號，數(shù)組b保存卡號對應的姓名，第i位同學的卡號保存在a（i）中，姓名保存在b（i）中。
  程序界面如圖1所示，左邊列表框列出所有同學的卡號和姓名，在右邊文本框Text1中輸入卡號，單擊“開始查詢”按鈕（Command1），程序就按卡號進行查找，如果找到就在標簽Label3中輸出卡號對應同學的姓名，否則就輸出“查無此人”。
  解決此問題的算法流程圖如圖2所示，相應的程序如下，在程序①和②橫線處，填入適當?shù)恼Z句或表達式，把程序補充完整。
  Private Sub Command1_Click （　　）
  Dim x As String,i As Integer,s As String,f As Boolean
  x=

   

  
  i=0：f=False'f為找到標志變量，值為True表示找到，否則表示沒找到
  Do While （i＜n） And （f=False）
  i=i+1
  If x=a（i） Then
  f=True
  End If
  Loop
  If f=True Then
  

   

  
  Else
  s=“查無此人！“
  End If
  Label3．Caption=s
  End Sub
  程序中①橫線處應填入

   

  
  程序中②橫線處應填入

   

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

  解析