24h購物| | PChome| 登入
2007-06-10 16:51:41 | 人氣81| 回應0 | 上一篇 | 下一篇
推薦 0 收藏 0 轉貼0 訂閱站台

收銀機找回最少的錢幣個數

 

 

rem 找回最少的錢幣個數，如以百元鈔付款，應找回最少的錢幣個數50元，10元，1元各為若干

 

Private Sub Command1_Click()
pay = Val(Text1)
buy = Val(Text2)

If pay < buy Then
    MsgBox "付款金額不夠!", vbOKOnly
    Text1.SetFocus
    Exit Sub
End If

a = (pay - buy) \ 500
a0 = (pay - buy) Mod 500
b = a0 \ 100
b0 = a0 Mod 100
c = b0 \ 50
c0 = b0 Mod 50
d = c0 \ 10
e = c0 Mod 10
Text3(0) = a
Text3(1) = b
Text3(2) = c
Text3(3) = d
Text3(4) = e
Text4 = pay - buy
End Sub

我要檢舉
台長： Kenny

您可能對以下文章有興趣

人氣(81) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 教育學習(進修、留學、學術研究、教育概況) | 個人分類: 程式設計 |
此分類下一篇:井字遊戲
此分類上一篇:二進位制數碼運算

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