1.
dim salary as double ,tax as double
'给salary赋值，如：salary=val(text1.text)
select case salary
case is <3500
tax=0
case is <5000
tax=salary * 0.05
case is <6000
tax=salary * 0.1
case else
tax=salary * 0.15
end select
salary=salary -tax
'话说这么扣税不科学，真正应该是差额扣税的。如3500－5000这档应该是：tax=(salary -3500 ) *.0.5
2.
dim F as long
F=1
for i=1 to n
F=F * i
next
print N;"!=";F
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024