2012年江苏省信息技术专题练习：VB程序（6）

一、解答题（共5小题，满分0分）

• 1．打开“考生文件夹\30\工程1．vbp“，完善程序并保存。
  实现功能：
  编程求方程y=

  x + 5 a （ x ＜ 0 ）

  x - 2 b （ x ＞ = 0 ）

  的解。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  Private Sub Command1_Click （　　）
  Dim x As Single,y As Single
  a=3：b=-5
  ①=Val（InputBox（“请输入x的值“））
  If x＜0Then
  ②=x+5*a
  Else
  y=x-2*b
  ③
  Print“y=“； CStr（y）
  End Sub。
  组卷：3引用：1难度：0.6

  解析

一、解答题（共5小题，满分0分）

• 4．打开“考生文件夹\41\工程1．vbp”，完善程序并保存。
  某超市为了对苹果进行促销，规定购买2公斤以上可以在原价每公斤6.80元的基础上打8折。
  实现功能：输入购买的苹果公斤数，输出应付款。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  Private Sub Command1_Click （　　）
  Dim x As Single
  Dim cost As Single
  x=Val（InputBox（“请输入苹果公斤数：“））
  If x＜=2Then
  cost=①
  Else
  cost=x*6.8*0.8
  ②
  Print ③
  End Sub。
  组卷：2引用：1难度：0.6

  解析

• 5．打开“考生文件夹\20\工程1．vbp”，完善程序并保存。
  某超市苹果价格每斤4元，购买10斤以上（包括10斤）将享受8折优惠。
  实现功能：使得在Text1中输入重量并单击“计算”按钮后，在Label1中显示对应的价格。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  Private Sub Command1_Click （　　）
  Dim x,s As Single
  x=Val（Text1．Text）
  If ①Then
  s=4*②
  Else
  s=4*x
  End If
  Label1．Caption=CStr（③）
  End Sub。
  组卷：2引用：1难度：0.6

  解析