VB.NET作业求助：随机便士兑换美元及硬币的计算错误问题

我来帮你搞定这个硬币兑换的计算问题！你的代码目前有几个核心问题，导致计算结果（尤其是nickels部分）出错，下面我会逐一说明并给出修正后的完整代码：

你的代码存在的关键问题 #

• 错误地直接用字符串做算术运算：你多次调用Integer.TryParse但根本没用到解析后的整数，反而直接拿txtNumPennies.Text（字符串类型）来做加减乘除，VB.NET的隐式转换会让这个逻辑完全混乱，结果自然不对。
• 计算依赖UI文本而非数值变量：比如计算quarters时用txtNumPennies.Text - txtDollars.Text * 100，这都是在操作字符串，不是真实的数值，逻辑肯定出错。
• 重复冗余的解析操作：每次计算不同币种都重新解析输入，完全没必要，而且还容易引入错误。

修正后的完整代码 #

Option Explicit On
Option Strict On ' 强烈建议开启，强制类型检查，避免隐式转换的坑
Option Infer Off

Public Class frmMain
    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click
        ' 先定义存储总便士数的变量
        Dim totalPennies As Integer
        
        ' 验证输入：确保输入是有效的非负整数
        If Not Integer.TryParse(txtNumPennies.Text, totalPennies) OrElse totalPennies < 0 Then
            MessageBox.Show("请输入有效的非负整数哦！")
            txtNumPennies.Focus()
            Return
        End If

        Dim intDollars As Integer
        Dim intQuarters As Integer
        Dim intDimes As Integer
        Dim intNickels As Integer
        Dim remainingPennies As Integer = totalPennies ' 初始化剩余便士数为总数

        ' 计算美元（1美元=100便士）
        intDollars = remainingPennies \ 100
        remainingPennies = remainingPennies Mod 100 ' 更新剩余便士数

        ' 计算25美分硬币
        intQuarters = remainingPennies \ 25
        remainingPennies = remainingPennies Mod 25

        ' 计算10美分硬币
        intDimes = remainingPennies \ 10
        remainingPennies = remainingPennies Mod 10

        ' 计算5美分硬币
        intNickels = remainingPennies \ 5
        remainingPennies = remainingPennies Mod 5

        ' 最后剩下的就是1美分硬币
        txtDollars.Text = intDollars.ToString()
        txtQuarters.Text = intQuarters.ToString()
        txtDimes.Text = intDimes.ToString()
        txtNickels.Text = intNickels.ToString()
        txtPennies.Text = remainingPennies.ToString()
    End Sub

    Private Sub txtNumPennies_TextChanged(sender As Object, e As EventArgs) Handles txtNumPennies.TextChanged
        txtDollars.Text = String.Empty
        txtQuarters.Text = String.Empty
        txtDimes.Text = String.Empty
        txtNickels.Text = String.Empty
        txtPennies.Text = String.Empty
    End Sub
End Class

关键改进说明 #

1. 开启Option Strict On：这个设置会强制VB.NET进行严格的类型检查，避免字符串和数值之间的隐式转换错误，能帮你在编译阶段就发现问题，而不是等到运行时出bug。
2. 一次性解析输入并验证：只解析一次输入的便士数到totalPennies变量，所有后续计算都基于这个数值，彻底避免字符串操作的错误。
3. 分步计算+更新剩余值：每次计算完一种币种后，用Mod运算符得到剩余的便士数，再用这个剩余值计算下一种币种，逻辑清晰且准确，完全解决了nickels的计算问题。
4. 增加输入验证：如果用户输入非整数或者负数，会弹出提示并让输入框重新获得焦点，提升用户体验的同时避免无效计算。

内容的提问来源于stack exchange，提问作者Cyrus