(1)用for…next语句求1!+2!+3!+…10!还有下面这题(2)\x05请你编写程序完成航空公司托运行李计费问题.从北京到上海,规定每张客票托运费计算方法是：行李重量不超过50千克,每10千克0.25元,超过50

Question

(1) 用for…next语句求1!+2!+3!+…10!还有下面这题
(2)\x05请你编写程序完成航空公司托运行李计费问题.从北京到上海,规定每张客票托运费计算方法是：行李重量不超过50千克,每10千克0.25元,超过50千克时,其超过部分每10千克0.35元.

Answer 1

dim result
result = 0
for i = 1 to 10
for b = 1 to i
result = result + b
next b
next i
print result
------------------------------------------
sub price(wet)
dim b
if wet < 50 then
b = wet * 0.25
else
b= 50 * 0.25 + (wet -50)*0.35
endif
return b
end sub