2017年江苏省信息技术学业水平试卷（9）

一、操作题（每题10分，6题共60分）

• 1．打开文件“考生文件夹\89\工程1．vbp”，完善Command1_Click事件代码并保存。
  乘坐飞机的经济舱时，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。
  实现功能：输入行李重量及经济舱全票价后，点击按钮，计算出行李托运费用，输出到对应文本框中。
  Private Sub Command1_Click （　　）
  Dim w As Integer'行李重量
  Dim pj As Integer'机票价格
  Dim fy As Single'托运费用
  w=Val（Text1．Text）
  pj=Val（Text2．Text）
  If w＜=20Then
  ①
  Else
  fy=（w-20）*pj*0.015
  ②
  Text3．Text=③
  End Sub。
  组卷：1引用：1难度：0.6

  解析

• 2．打开“Z：\30\工程1．vbp”，完善Command1_Click事件代码并保存。实现功能：
  编程方程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。
  组卷：1引用：1难度：0.7

  解析

一、操作题（每题10分，6题共60分）

• 5．打开“考生文件夹\772”中的文件“工程1．vbp”，完善Command1_Click事件代码并保存。
  实现功能：某商场正在搞促销活动，买300元送200元，例如：某顾客购买商品449元，返还顾客200元，不满300元的零头不送。在文本框中输入一个正整数，计算返还的金额并显示在标签上，如样张所示。
  Private Sub Command1_Click （　　）
  Dim a As Integer
  Dim s As Integer
  a=Val（Text1．①）
  s=（②）*200
  Label1．③=Str（④）
  End Sub。
  组卷：1引用：1难度：0.6

  解析

• 6．打开“考生文件夹\776”中的文件“蜗牛爬竹。vbp”，完善Command1_Click事件代码并保存。
  实现功能：青竹高17米，蜗牛从青竹底端慢慢爬向顶端，晴天每天爬1.4米，雨天每天爬1.8米，若蜗牛爬到顶端用了11天，计算晴天、雨天各多少天？（晴天对应文本框text1，雨天对应文本框text2）
  Private Sub Command1_Click （　　）
  Dim x As Single
  Dim y As Integer
  y=（17-1.4*11）/（1.8-1.4）
  ①=11-y
  Text1．Text=Str（②）+“天“
  Text2．Text=Str（③）+“天“
  End Sub。
  组卷：1引用：1难度：0.6

  解析