2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷（9）

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

• 1．打開文件“考生文件夾\89\工程1．vbp”，完善Command1_Click事件代碼并保存。
  乘坐飛機的經(jīng)濟艙時，免費托運行李一般不得超過20公斤，超重每公斤按全票價的1.5%計算。
  實現(xiàn)功能：輸入行李重量及經(jīng)濟艙全票價后，點擊按鈕，計算出行李托運費用，輸出到對應(yīng)文本框中。
  Private Sub Command1_Click （　?。?br />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事件代碼并保存。實現(xiàn)功能：
  編程方程y=

  x + 5 a （ x ＜ 0 ）

  x - 2 b （ x ＞ = 0 ）

  的解
  Private Sub Command1_Click （　?。?br />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事件代碼并保存。
  實現(xiàn)功能：某商場正在搞促銷活動，買300元送200元，例如：某顧客購買商品449元，返還顧客200元，不滿300元的零頭不送。在文本框中輸入一個正整數(shù)，計算返還的金額并顯示在標(biāo)簽上，如樣張所示。
  Private Sub Command1_Click （　?。?br />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事件代碼并保存。
  實現(xiàn)功能：青竹高17米，蝸牛從青竹底端慢慢爬向頂端，晴天每天爬1.4米，雨天每天爬1.8米，若蝸牛爬到頂端用了11天，計算晴天、雨天各多少天？（晴天對應(yīng)文本框text1，雨天對應(yīng)文本框text2）
  Private Sub Command1_Click （　?。?br />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

  解析