該怎麼寫VB程式

Question

綜合所得稅速算公式(元)
級別 綜合所得淨額(元) * 稅率 - 累進差額 = 全年應納稅額
1. 0~370,000 * 6% - 0 = 全年應納稅額
2. 370,000~990,000 * 13% - 25,900 = 全年應納稅額
3. 990,000~1,980,000 * 21% - 105,100 = 全年應納稅額

以上是題目給的圖表一小部份
要我們製造一表單可以輸入某人的 全年綜合所得淨額
然後依照他給的公式計算及顯示 全年應納稅額
因為真的不太懂該怎麼寫他的VB程式
所以請哪位高手幫忙解答一下

不好意思忘了說
我們沒用到MsgBox
我們只是簡單的用
label跟textbox而已
就是在label輸入 全年綜合所得淨額
然後textbox可以顯示出 全年應納稅額

Answer 1

Dim C As Long '綜合所得淨額Dim r As Single '稅率Dim d As Long '累進差額C = Val(InputBox("請輸入綜合所得淨額", "綜所稅"))If C > 0 Then    Select Case C        Case Is <= 370000            r = 0.06            d = 0        Case Is <= 990000            r = 0.13            d = 25900        Case Is <= 1980000            r = 0.21            d = 105100    End Select    MsgBox "綜合所得淨額：" & Format(C, "#,###") & vbCrLf & _           "稅率：" & Format(r, "0%") & vbCrLf & _           "累進差額：" & Format(d, "#,###") & vbCrLf & _           "全年應納稅額：" & Format(C * r - d, "#,###"), , "綜所稅"Else    MsgBox "輸入錯誤", , "綜所稅"End If

Answer 2

Private Sub Command1_Click()Dim S$, r#Do  S = InputBox("請輸入綜合所得淨額")  If S = "" Then Exit SubLoop Until IsNumeric(S) And Val(S) > 0r = SIf r <= 370000 Then   r = Format(r * 0.06, "0")ElseIf r > 370000 And r <= 990000 Then   r = Format(r * 0.13, "0")ElseIf r > 990000 And r <= 1980000 Then   r = Format(r * 0.21, "0")Else   r = Format(r * 0.4, "0")End IfPrint "全年應納稅額 : "; Format(r, "Standard"); " 元"End Sub