CMF資源回收場: VB

顯示具有 VB 標籤的文章。顯示所有文章

程式作業: 水費價格程式設計 (VB)

視窗化輸出與輸入規劃，計算用水100度與程式執行結果驗證

水費費率如下表

段別	月用水度數	單價元
第一段	1-20度	7.5
第二段	20-40度	9.5
第三段	40-80度	12
第四段	80度以上	15

 
Private Sub waterfee()

	' 輸入用水度
	Dim s1 As String
	s1 = InputBox("請輸入用水度", "水費計算", "0")

	v = CInt(s1)  '入用水度

	r = 0

If v >= 1 And v <= 20 Then
  r = 75
End If

If v > 20 And v <= 40 Then
  r = r + 95
End If
  
If v > 40 And v <= 80 Then
  r = r + 12
End If

If v > 80 Then
  r = r + 15
End If

 	s1 = "入用水度:" + CStr(v) + " 應繳水費:" + CStr(r)
 	MsgBox (s1)

End Sub

計算水費執行結果:

程式作業: 報稅試算程式設計(VB)

計算收入182萬，應繳稅額與稅率

級別	稅率	課稅級距
1	5%	52萬以下
2	12%	520,000~1170,000
3	20%	1170,000~2350,000
4	30%	2350,000~4400,000
5	40%	4,400000~Max

Private Sub CalculateTaxRate()

Dim v, r, t
v = 1820000
' 計算收入182萬，應繳稅額與稅率
r = 0
If v < 520000 Then
  r = 0.05 '5%
ElseIf v <= 1170000 Then
  r = 0.12 '12%  
ElseIf v <= 2350000 Then
  r = 0.2  '20%  
ElseIf v <= 4400000 Then
  r = 0.3  '30%
Else
  r = 0.4 '40%
End If

  t = v * r '，應繳稅

Dim s As String
  s = "收入182萬" + "應繳稅額:" + CStr(t) + " 稅率: " + CStr(r * 100) + "%"

  MsgBox (s)

End Sub

計算收入182萬，應繳稅額與稅率執行結果:

CMF資源回收場

程式作業: 水費價格程式設計 (VB)

視窗化輸出與輸入規劃，計算用水100度與程式執行結果驗證

程式作業: 報稅試算程式設計(VB)

最新 Visual Studio 影片 (含中文字幕)：

聯絡表單