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

  解析