Visual Basic Change maker程序

Question

我正在为一堂课写这个课程而且我已经被困了一天了。程序需要从用户输入的小数进行更改。如在9.41是9美元，1季度，1角钱，1镍，1便士。我得到了结果但是他们不正确任何帮助都会非常感谢！

Public Class TessitoreNLab3

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        Dim balance As Integer
        Dim remainingBalance As Integer
        Dim txtAmount As Double

        txtAmount = CDbl(txtAmount1.Text) 'I renamed the text box txtAmount1...


        balance = (CInt(txtAmount / 1))
        lstResults.Items.Add(balance & " dollars")
        remainingBalance = balance * 100

        balance = remainingBalance / 25
        lstResults.Items.Add(balance & " quarters")
        remainingBalance = balance * 100

        balance = remainingBalance / 10
        lstResults.Items.Add(balance & " dimes")
        remainingBalance = balance * 100

        balance = remainingBalance / 5
        lstResults.Items.Add(balance & " nickels")
        remainingBalance = balance * 100

        balance = remainingBalance / 0.01
        lstResults.Items.Add(balance & " pennies")

    End Sub

End Class