作者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