新VB程序设计案例教程（ ） 第3章 中文 VB 程序设计基础.pptVIP

第3章算法与分支结构程序设计 【拓展案例23】动画数字钟2 【案例12】 发工资 【拓展案例24】乘法试题 【案例13】计算运费 3.1 【案例12】 发工资 3.1.1 学习目的 职工领工资的时候，一般都希望钱币的张数越少越好，那么作为会计室的工作人员如何才能使职工拿到的钱币张数最少呢？编写一个“发工资”的程序，用户输入工资的金额数，然后单击“发工资”按钮，标签中显示出各种面值所需的张数，如图3-1-1所示。 通过本案例的学习，可以进一步了解程序设计的方法和技巧，以及算法的一些基础知识。 3.1.2 案例实现 1．创建程序的图形用户界面 （1）创建一个新的工程。用鼠标拖曳调整窗体的大小。在窗体的“属性”窗口中设置“名称”属性值为“Form1”，Caption属性值为“发工资”。 （2）创建两个文本框控件对象，分别用来输入工资金额的整数部分和小数部分；添加一个命令按钮控件对象，其Caption属性为“发工资”；添加若干个标签控件对象，请读者参考图3-1-2所示，自行设置属性。 2．代码程序及说明 在“代码”窗口内输入如下代码程序。 Private Sub Command1_Click() Dim amount As Long 定义变量amount为长整型变量，用来保存工资金额 Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13 As Integer amount = CLng(Text1.Text) * 100 + CLng(Text2.Text) 将金额以分为单位表示 r1 = amount \ 10000 求100元票张数 amount = amount - r1 * 10000 求剩余款额 r2 = amount \ 5000 求50元票张数 amount = amount - r2 * 5000 求剩余款额 r3 = amount \ 2000 求20元票张数 amount = amount - r3 * 2000 求剩余款额 r4 = amount \ 1000 求10元票张数 amount = amount - r4 * 1000 求剩余款额 r5 = amount \ 500 求5元票张数 amount = amount - r5 * 500 求剩余款额 r6 = amount \ 200 求2元票张数 amount = amount - r6 * 200 求剩余款额 r7 = amount \ 100 求1元票张数 amount = amount - r7 * 100 求剩余款额 r8 = amount \ 50 求5角票张数 amount = amount - r8 * 50 求剩余款额 r9 = amount \ 20 求2角票张数 amount = amount - r9 * 20 求剩余款额 r10 = amount \ 10 求1角票张数 amount = amount - r10 * 10 求剩余款额 r11 = amount \ 5 求5分票张数 amount = amount - r11 * 5 求剩余款额 r12 = amount \ 2 求2分票张数 amount = amount - r12 * 2 求剩余数额 r13 = amount 求1分票张数 Rem 给相应的标签对象的Text属性赋值 Label16.Caption = r1: Label17.Caption = r2: Label18.Caption = r3 Label19.Caption = r4: Label20.Caption = r5: Label21.Cap