原铁道部规定,能买半价票的儿童限高为1.1米—1.5米.假定全票价格为100元,则票价P与儿童身高h之间的关系就是分段函数：
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  '结束