作者darkwu (GoPets ID：darkwu2003)
看板Visual_Basic
标题Re: [VB6 ] 请问一些题目…
时间Thu Nov 3 20:14:33 2005
※ 引述《ccbamboo ( 陪伴你流浪)》之铭言：
: 1.使输入原始购物金额後，能显示出打折後的优惠价钱。折扣方式如下：
: （请用巢状If叙述来设计。）
: 金额 折扣
: 超出１万元的部份 ７折
: 超出５０００元但未满１００００的部份 ８折
: 超出３０００元但未满５０００的部份 ９折
: 未满３０００的部份 不打折
Private Sub Command1_Click()
x = Val(InputBox("输入金额 "))
If x < 10000 Then
If x >= 5000 And x < 10000 Then
Print x * 0.8
ElseIf x >= 3000 And x < 5000 Then
Print x * 0.9
ElseIf x < 3000 Then
Print x
End If
Else
Print x * 0.7
End If
End Sub
随便写写的 不过应该是这样@@
觉得用case会比较好写:~
: 2.当使用者输入个人年薪时，会自动依照下表的等级，计算出应缴的所得税。
: （可用ElseIf逐一过滤条件来设计，而应缴的所得税＝年薪*税率-累进差额。）
: 年薪（万） ３７以下 ３７～９９ ９９～１９８ １９８～３７２ ３７２以上
: 税率 ６％ １３％ ２１％ ３０％ ４０％
: 累进差额 ０ ２５９００ １０５１００ ２８３３００ ６５５３００
: 麻烦帮我 谢谢！！＞﹏＜
Private Sub Command1_Click()
x = Val(InputBox("输入年薪"))
If x < 370000 Then
y = x * 0.06 - 0
Print "所得税为" & y
ElseIf x > 370000 And x <= 990000 Then
y = x * 0.13 - 25900
Print "所得税为" & y
ElseIf x > 990000 And x <= 1980000 Then
y = x * 0.21 - 105100
Print "所得税为" & y
ElseIf x > 1980000 And x <= 3720000 Then
y = x * 0.3 - 283300
Print "所得税为" & y
Else
y = x * 0.4 - 655300
Print "所得税为" & y
End If
End Sub
--
新手上路 多多指教
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.164.132.26
1F：推 ccbamboo:真是太感谢了!!!!!!谢谢!! 11/03 21:56