Question

求VBA编程高手帮忙编下这几个题目，谢谢啦！ 分不多，但是很急 谢谢啦！

1、 求1+2+。。。。100的值
2、 将100~200间不能被3整除的数输出
3、 按照输入的货物价格计算并输出税金，计算方法：货物价格在一万以上的价格征百分之五，五千元以上一万以下征百分之三，一千至五千以下征百分之二，一千以下免税

Answer 1

for i=1 to 100
s=s+i
next
debug.print s

---
for i=100 to 200
if i mod 3<>0 then k=k & i & vbcrlf
next i
debug.print k
-----
dim Price, Rslt
price=val(inputbox("Pls input your price"陪友)
select case price
case <谈培1000
rslt="免税"
case<5000
rslt="税金：" & price * 0.02
case<10000
rslt="税金：" & price * 0.03
case else
rslt="含乱唯税金：" & price * 0.05
end select
msgbox rslt

Answer 2

Sub 求和()
Dim i&, x&
For i = 1 To 100
x = x + i
Next i
MsgBox x
End Sub
Sub 求税()
Dim i, Ss
i = InputBox("请输入货物价格", "请输入")
If i > 10000 Then
Ss = i * 0.05
ElseIf i >= 5000 Then
Ss = i * 0.03
ElseIf i >= 1000 Then
Ss = i * 0.02
ElseIf i < 1000 Then
Ss = 0
End If
MsgBox "应交税燃碰：" & Ss & "元"
End Sub
Sub 求值()
For x = 100 To 200
If x Mod 3 <> 0 Then
i = i + 1
If j = "" Then
j = x
Else
j = j & "," & x
End If
End If
Next x
MsgBox i & "个数不能被3整除：" & j
End Sub
这里税收的代码没有皮仔谈分段扣税。需要分段扣税就减金额，加税收就行了。分段计税代码如下
Sub 求戚逗税()
Dim i, Ss
i = InputBox("请输入货物价格", "请输入")
If i > 10000 Then
Ss = (i - 10000) * 0.05 + 230
ElseIf i > 5000 Then
Ss = (i - 5000) * 0.03 + 80
ElseIf i > 1000 Then
Ss = (i - 1000) * 0.02
ElseIf i <= 1000 Then
Ss = 0
End If
MsgBox "应交税：" & Ss & "元"
End Sub