如何在 Visual Basic 中使用算术运算

Question

你如何在 Visual Basic 中使用钱 我知道我必须设置镍并除以 5，我想对这个数字有另一种表达方式。然后我想确定我会留下什么零钱，这样我就可以确定我有多少便士。感谢所有关注的人。

Dim change As Integer
Dim amountused As Integer
Dim quarters As Integer
Dim dimes As Integer
Dim nickels As Integer
Dim pennies As Integer
Console.WriteLine("Please enter your amount here")
amountused = Console.ReadLine()
Console.WriteLine("change= 100-amount used")
Console.WriteLine(quarters = change \ 25)
Console.WriteLine(dimes = (change - quarters * 25) / 10)
Console.WriteLine(nickels = change \ 5)
Console.WriteLine(pennies =

编辑：有人可以提示我我做错了什么吗？我没有得到任何输出谢谢...提示可以是示例检查这一行。谢谢

    Dim change As Integer
    Dim amountused As Integer
    Dim quarters As Integer
    Dim dimes As Integer
    Dim nickels As Integer
    Dim pennies As Integer
    Console.WriteLine("Please enter your amount here")
    amountused = Console.ReadLine()
    change = ("100 - amountused")
    quarters = change \ 25
    Console.WriteLine("Quarters:{0}", quarters)
    change = change - (quarters * 25)
    dimes = change \ 10
    Console.WriteLine("Dimes: {0}", quarters)
    change = change - (dimes * 10)
    nickels = change \ 5
    change = change - (nickels * 5)
    Console.WriteLine("nickels: {0}", quarters)
    change = pennies \ 1
    change = change - (pennies * 1)
    Console.WriteLine("pennies:{0}", pennies)

Answer 1

为了寻找变化，我建议你实际使用Math.DivRem，它会同时回答两个相关问题：

• 我可以使用多少这个硬币？
• 之后我还要处理多少？

编辑：如果你真的想坚持算术，我会计算你还需要用多少。例如：

quarters = change \ 25
Console.WriteLine("Quarters: {0}", quarters)
change = change - (quarters * 25)

dimes = change \ 10
Console.WriteLine("Dimes: {0}", quarters)
change = change - (dimes * 10)
... etc

这样您就不必担心以前的结果。