Question

access2007中VBA编程 Select Case语句和For循环语句 两道题求助！！

1.输入某职工的税前工资，输出实发工资 用select case语句
小于3500元不扣税，3500-5000元扣5%，5000-6000元扣10%，6000元以上扣15%
2.用for语句 求n的阶层

Answer 1

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

追问

这是老师暂时设定的扣税方法= =真按税法来算太复杂了……
第一个试了一下 说是salary=val(text1.text)这条运行错误”424“ 要求对象……
第二个说是print N;"!=";F 没有适当的对象，方法无效……

追答

第1个要求有文本框1(text1)，如果你没有添加肯定就是要求对象了。。。
第2个你得先给N赋值。例如n=val(text1.text)，同样也要添加一个文本框。