用VISUAL BASIC做收銀機@@

Question

請使用Visual Basic設計一程式處理收銀機找零作業。需能接受輸入【消費金額】及【收取現金】，計算應找金額後（收取現金－消費金額）以最適當之方式將應找金額顯示於螢幕上，以便櫃員找零。

本案中，所使用之鈔幣面額計分：壹仟圓、伍佰圓、壹佰圓、伍拾圓、壹拾圓、伍圓、壹圓等七種，可處理數值範圍為五位整數(0~99999)，並且不接受賒欠及負值消費。

以功能為主要需求，呈現形式及介面不拘，惟適當之介面及版面設計將有加分作用。
大大可以幫幫我嗎@@

Answer 1

Private Sub Command1_Click()Dim S, A, N&, M&Font.Name = "細明體"Do  N = Int(Val(InputBox("請輸入消費金額")))Loop Until N > 0 And N < 100000Do  M = Int(Val(InputBox("請輸入收取現金金額")))Loop Until M >= N And M < 100000ClsPrint "消費金額 : "; Space(6 - Len(Str(N))); N; "元"Print "收取金額 : "; Space(6 - Len(Str(M))); M; "元"M = M - NPrintPrint "應找金額 : "; Space(6 - Len(Str(M))); M; "元"If M = 0 Then Exit SubForeColor = vbBluePrint String(20, "=")S = Array(1000, 500, 100, 50, 10, 5, 1)A = Array("壹仟圓", "伍佰圓", "壹佰圓", "伍拾圓", "拾圓  ", "伍圓  ", "壹圓  ")For N = 0 To 6    If M \ S(N) Then       Print A(N); "   * "; Space(6 - Len(Str(M \ S(N)))); M \ S(N); "張"       M = M Mod S(N)       If M = 0 Then Exit For    End IfNextPrint String(20, "=")ForeColor = vbBlackEnd Sub