24h購物| | PChome| 登入
2007-10-04 15:00:52| 人氣682| 回應0 | 上一篇 | 下一篇

水費計算

推薦 0 收藏 0 轉貼0 訂閱站台

Private Sub Command1_Click()
a = Val(InputBox(”請輸入用水度數”))
If a <= 20 Then
tot = 100
Else
If a <= 30 Then
tot = 100 + (a - 20) * 3
Else
If a >= 31 And a <= 50 Then
tot = 100 + 10 * 3 + (a - 30) * 4
Else
tot = 100 + 10 * 3 + 20 * 4 + (a - 50) * 6
End If
End If
End If
MsgBox (”水費總計” & tot & ”元”)
End Sub

我要檢舉
台長： 奶茶
人氣(682) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類 | 個人分類: VB ☺程式設計 |
此分類下一篇:又來貼VB程式了= =無聊ㄟ
此分類上一篇:VB成績計算

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文