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

一、第一套

• 1．有如下Visual Basic程序段：
  a=12：b=20
  b=a+b+28
  a=b+a-5
  b=a+b
  該程序段運行后，變量b的值為

   

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

  解析

• 2．有如下Visual Basic程序段：
  a=5
  b=Len（“1011“）
  If a＞b Then
  Label1．Caption=“請重新輸入“
  Else
  Label1．Caption=“歡迎光臨“
  End If
  該程序段運行后，在標簽Label1上顯示的是

   

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

  解析

三、標題

• 7．有如下Visual Basic程序段：
  s=0
  a=5
  For i=1To 10Step 2
  a=a+i
  s=a*i
  Next i
  問：該程序段運行后，
  （1）變量i的值是

   

  ．
  （2）變量s的值是

   

  ．
  組卷：8引用：2難度：0.3

  解析

• 8．某超市打折促銷，規定如下：
  ①購物未超過500元按原價支付；
  ②購物超過500元但未超過1000元，超過500元部分按9折優惠計價；
  ③購物超過1000元但未超過1500元，超過1000元部分按8折優惠計價；
  ④購物超過1500元但未超過3000元，超過1500元部分按7折優惠計價；
  ⑤購物超過3000元，超過3000元部分按6折優惠計價．
  根據以上規定，假定購物貨款為x元，則實付金額y為：
  
  程序界面如圖所示，在“輸入購物金額（單位：元）“后的文本框orgtext中輸入購物金額（單位：元），單擊“實付金額計算“按鈕（Command1）后，在“實際支付金額（單位：元）為“后的文本框cashText中輸出實付金額．
  
  解決此問題相應的Visual Basic程序如下：
  Private Sub Command1_Click

   

  
  Dim x As Single,y As Single
  x=Val（orgjye.ai.Text）
  If x＜=500Then
  y=x
  ElseIf

   

   Then
  y=500+（x-500）*0.9
  ElseIf x＜=1500Then
  y=500+500*0.9+（x-1000）*0.8
  ElseIf x＜=3000Then
  y=500+500*0.9+500*0.8+（x-1500）*0.7
  Else
  y=500+500*0.9+500*0.8+1500*0.7+（x-3000）*0.6
  End If
  

   

  
  End Sub
  （1）解決此問題的算法是

   

  ．  （選填：解析法 或 枚舉法）
  在程序①和②橫線處，填入適當的語句或表達式，把程序補充完整．
  （2）程序中①橫線處應填入

   

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

   

  ．
  組卷：8引用：2難度：0.1

  解析