编一程序，输入上网的时间，计算上网费用，计算的方法如下：

费用={30元基数     <10小时      
      每小时2.5元    10—50小时
      每小时2元       >=50小时
同时为了鼓励多上网，每月收费最多不超过150元。

兄弟,是好好看书的时候了,有些问题自已解决总比其它途径好 !!!.....
dim xp as single
xp=system.console.readline()
 select case xp
  case is<10
    system.console.writeline(30)
  case 10 to 30
    system.console.writeline((2.5*xp))
  case 50 to 75
    system.console.writeline((2.5*xp))
  case is>75
    system.console.writeline(150)
  end select
 system.console.readline()