兌幣機會依序兌換10元,5元,1元硬幣.請使用程式計算173元可兌換多少個10元,5元,1元硬幣?

錢幣iMoney不管是多少都可以自動算出來吧

<%
--先給10元5元1元幣初始數量0
i10=0
i5=0
i1=0
iMoney=173
--判斷
<%
i10=0
i5=0
i1=0
iMoney=165
If iMoney>=10 Then
i10=Int(iMoney/10)
iMoney=iMoney Mod 10
End If
If iMoney>=5 Then
i5=Int(iMoney/5)
iMoney=iMoney Mod 5
End if
i1=iMoney
--結果
response.write "10X" & i10 & ",5X" & i5 & ",1X" & i1 %>