程式作業: 水費價格程式設計 (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

計算水費 執行結果: