Question

VB编程题目

编一程序根据上网时间计算上网费用，计算方法如下：
30元基数 <10小时
费用= 每小时3元 10-50小时
每小时2.5元 〉=50小时
同时为了鼓励多上网，每月收费最多不超过150元。

Answer 1

private function 费用() as single
select case 上网hour '小时数可以是integer or long
'这个时间是在计数器里累积出来的一个月内的小时数
case is <10
费用=30
case is >=10 or is<50
费用=30+3*(上网hour-10)
case is >=50
费用=30+3*(49-10) +2.5*(上网hour -49)
end select
if 费用>150 then 费用=150
end function

Answer 2

有什么问题?