Re: [VB6 ] 請問一些題目…

看板Visual_Basic作者darkwu (GoPets ID：darkwu2003)時間20年前 (2005/11/03 19:46)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

※ 引述《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