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

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

• 1．有如下Visual Basic程序段：
  m=“VB“
  n=“is“
  t=“easy“
  t=m+n+t
  該程序段運(yùn)行后，變量t的值為

   

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

  解析

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

• 3．.以下Visual Basic程序的功能是：計(jì)算表達(dá)式1×3+2×3+3×3+…100×3的值，并在文本框Text1中輸出計(jì)算結(jié)果．
  Private Sub Command1_Click

   

  
  Dim i As Integer,s As Integer
  s=0
  i=1
  Do While i＜=100
  s=i*3
  i=i+1
  Loop
  Text1．Text=Str（s）
  End Sub
  （1）剛退出循環(huán)時(shí)，變量i的值是

   

  ．
  （2）為了實(shí)現(xiàn)上述表達(dá)式的計(jì)算，程序中橫線處的表達(dá)式應(yīng)更正為

   

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

  解析

• 4．某市出租車(chē)計(jì)費(fèi)標(biāo)準(zhǔn)規(guī)定：出租車(chē)啟動(dòng)后行程不超過(guò)3千米（包含3千米）計(jì)費(fèi)5元；如果行程超過(guò)3千米且不超過(guò)10千米（包含10千米），則超過(guò)3千米部分按1.5元/千米計(jì)費(fèi)（3千米及以?xún)?nèi)部分計(jì)費(fèi)仍為5元）；若行程超過(guò)10千米，則在前面計(jì)費(fèi)基礎(chǔ)上，超出10千米部分按1.8元/千米計(jì)費(fèi)。
  假定某出租車(chē)行程為x千米，計(jì)費(fèi)標(biāo)準(zhǔn)如下：
  當(dāng)x≤3千米時(shí)，計(jì)費(fèi)為5元；
  當(dāng)3＜x≤10千米時(shí)，計(jì)費(fèi)為5+（x-3）×1.5
  當(dāng)x＞10千米時(shí)，計(jì)費(fèi)為5+（10-3）×1.5+（x-10）×1.8
  程序界面如圖1所示，在文本框Text1中輸入行駛里程數(shù)（單位：千米），單擊“開(kāi)始計(jì)算”按鈕（Command1）后，在標(biāo)簽Label3輸出計(jì)費(fèi)結(jié)果。
  解決此問(wèn)題的算法流程圖如圖2所示，相應(yīng)的Visual Basic程序如下，在程序①和②橫線處，填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。
  Private Sub Command1_Click （　　）
  im x As Single,s As Single
  x=Val（Text1．Text）
  If

   

   Then
  s=5
  ElseIf  x＜=10Then
  s=5+（x-3）*1.5
  Else
  s=5+（10-3）*1.5+（x-10）*1.8
  End If
  

   

  =Str（s）
  End Sub
  程序中①橫線處應(yīng)填入

   

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

   

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

  解析