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

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

• 1．打開(kāi)文件“考生文件夾\89\工程1．vbp”，完善Command1_Click事件代碼并保存。
  乘坐飛機(jī)的經(jīng)濟(jì)艙時(shí)，免費(fèi)托運(yùn)行李一般不得超過(guò)20公斤，超重每公斤按全票價(jià)的1.5%計(jì)算。
  實(shí)現(xiàn)功能：輸入行李重量及經(jīng)濟(jì)艙全票價(jià)后，點(diǎn)擊按鈕，計(jì)算出行李托運(yùn)費(fèi)用，輸出到對(duì)應(yīng)文本框中。
  Private Sub Command1_Click （　?。?br />Dim w As Integer'行李重量
  Dim pj As Integer'機(jī)票價(jià)格
  Dim fy As Single'托運(yùn)費(fèi)用
  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．打開(kāi)“Z：\30\工程1．vbp”，完善Command1_Click事件代碼并保存。實(shí)現(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（“請(qǐng)輸入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．打開(kāi)“考生文件夾\772”中的文件“工程1．vbp”，完善Command1_Click事件代碼并保存。
  實(shí)現(xiàn)功能：某商場(chǎng)正在搞促銷活動(dòng)，買300元送200元，例如：某顧客購(gòu)買商品449元，返還顧客200元，不滿300元的零頭不送。在文本框中輸入一個(gè)正整數(shù)，計(jì)算返還的金額并顯示在標(biāo)簽上，如樣張所示。
  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．打開(kāi)“考生文件夾\776”中的文件“蝸牛爬竹。vbp”，完善Command1_Click事件代碼并保存。
  實(shí)現(xiàn)功能：青竹高17米，蝸牛從青竹底端慢慢爬向頂端，晴天每天爬1.4米，雨天每天爬1.8米，若蝸牛爬到頂端用了11天，計(jì)算晴天、雨天各多少天？（晴天對(duì)應(yīng)文本框text1，雨天對(duì)應(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

  解析