Visual Basic 6.0程序练习/程序

Question

所以我不久前开始自学Visual Basic，并在车库出售时拿起了这本方便的书。 “Visual Basic 6.0增强版”是准确的名称。无论如何，我一直在运动锻炼。因此，本书中的可怕指令是一种非常简单的编程语言。不过，我在屁股运动中遇到了痛苦。我真的只是不明白他们在说什么。如果有人可以为我编写这个代码，或者让我朝某个方向发展，这将是非常棒的！我很茫然，谢谢你们...... Anywho--这是提示：

“课程C教程3练习6”

在本练习中，您将设计并创建自己的应用程序。

场景：Hinsbrook高中校长希望您创建一个应用程序，帮助1-6年级的学生学习如何进行变革。申请应允许学生输入客户欠款和客户支付的金额。应用程序应计算更改的数量，以及返回给客户的多少美元，四分之一，硬币，镍币和便士。目前，您不必担心价格高于客户支付的情况。您可以随时假设客户支付的确切金额或超过确切金额。

一个。阅读练习部分开头的注释。虽然应用程序的设计取决于您，但您必须包含一个计算更改按钮，该按钮使用InputBox功能提示用户应付金额和支付金额。计算更改按钮将显示到期金额，已支付金额，变化，美元数量，季度数量，硬币数量，镍币数量和便士数量。格式化到期金额，已付金额和更改为货币。您还必须包含将打印用户界面的“打印”按钮，以及将结束应用程序的“退出”按钮。

湾“打印”按钮应将焦点发送到“清除屏幕”按钮。 “清除屏幕”按钮应将焦点发送到“计算更改”按钮。

c。将表格和项目保存到lc6Done。

d。 （简单说明完成设计应用程序的方法！）

即保存并运行该应用程序。使用以下测试数据打印应用程序三次：

75.33作为到期金额，80.00作为支付金额 39.67作为到期金额，50.00作为支付金额 45.55作为到期金额，45.55作为支付金额

的

这是我已经完成的代码

Private Sub cmdClear_Click()
    Amountdue.Caption = ""
    AmountPaid.Caption = ""
    Change.Caption = ""
    Dimes.Caption = ""
    Dollars.Caption = ""
    lblChange.Caption = ""
    lblDimes.Caption = ""
    lblDollars.Caption = ""
    lblDue.Caption = ""
    lblNickels.Caption = ""
    lblPaid.Caption = ""
    lblPennies.Caption = ""
    lblQuarters.Caption = ""
    NameLabel.Caption = ""
    Nickels.Caption = ""
    Pennies.Caption = ""
    Quarters.Caption = ""
End Sub

Private Sub cmdPrint_Click()
    PrintForm
End Sub

Private Sub Form_Load()
    Top = (Screen.Height - Height) / 2
    Left = (Screen.Width - Width) / 2
End Sub
Private Sub cmdCalc_Click()
    Dim calcChange As Integer
    calcChange = Val(InputBox("Enter amount due and amount paid", "Calculate Change"))
End Sub

我的表单的屏幕截图