原鐵道部規(guī)定,能買半價票的兒童限高為1.1米—1.5米.假定全票價格為100元,則票價P與兒童身高h之間的關(guān)系就是分段函數(shù)：
P=0   (h<1.1)
P=50  (1.1<=h<=1.5)
P=100  (h>1.5)

代碼如下：
Rem 語言：Visual Basic 6.0
Sub Main()  '開始
  h = Val(InputBox("請輸入h=","輸入"))
  If h < 1.1 Then
    P = 0
  Else
    If h <= 1.5 Then
      P = 50
    Else
      P = 100
    End If
  End If
  MsgBox P,vbInformation,"輸出"
End Sub  '結(jié)束