数据库15.ppt

15.6 VBA代码设计示例 进入该窗体的“窗体视图”，单击命令按钮，可以在立即窗口中观察到以下运行结果： 20 33 53 20 20 30 实参x与形参a是地址传递，因为它们同时满足地址传递的两个条件。过程调用时，将x的值传递给a，过程调用结束后，a的值又返回给x，所以输出的x的值和a是一样的。 实参x+y和形参b之间是值传递，尽管在TestSub过程中对b进行修改，但并不影响形参的值。同样，实参z与形参c之间也是传数值的，所以我们看到z输出时仍然保留了原来的值。 15.6.1 统计不同类别的字符个数 txtInput cmdTj lblZmlblSz lblQt 15.6.1 统计不同类别的字符个数 Private Sub cmdTj_Click() Dim i As Integer Dim zm As Integer, sz As Integer, qt As Integer Dim s As String, c As String * 1 zm = 0 sz = 0 qt = 0 txtInput.SetFocus s = txtInput.Text For i = 1 To Len(s) c = UCase(Mid(s, i, 1)) If c = A And c = Z Then zm = zm + 1 ElseIf c= 0 And c= 9 Then sz = sz + 1 Else qt = qt + 1 End If Next I 15.6.1 统计不同类别的字符个数 lblZm.Caption = 字母字符的个数为： Str(zm) lblSz.Caption = 数字字符的个数为： Str(sz) lblQt.Caption = 其他字符的个数为： Str(qt) End Sub 请注意，为在事件过程中访问窗体中文本控件的值，应先使相应控件获得焦点，然后才能引用其值或为之赋值。本事件过程代码，被保存在相应的窗体模块之中。 15.6.2 计算个人所得税 根据2008年3月1日起执行的我国个人所得税法的规定，工资、薪金所得个人所得税按表15-2所列个人所得税税率表计算。 级数 全月应纳税所得额 税率（％） 速算扣除数 1 不超过500元的 5 0 2 超过500元至2000元的部分 10 25 3 超过2000元至5000元的部分 15 125 4 超过5000元至20000元的部分 20 375 5 超过20000元至40000元的部分 25 1375 6 超过40000元至60000元的部分 30 3375 7 超过60000元至80000元的部分 35 6375 8 超过80000元至100000元的部分 40 10375 9 超过100000元的部分 45 15375 15.6.2 计算个人所得税 根据规定，纳税人每月取得工资收入后，先减去个人承担的基本养老保险金、医疗保险金、失业保险金，以及按省级政府规定标准缴纳的住房公积金，再减去免征额2000元，余额为应纳税所得额，对应纳税所得额按5%至45%的九级超额累进税率计算缴纳个人所得税。计算公式如下： 应纳个人所得税税额=应纳税所得额×适用税率-速算扣除数 例如，王某当月取得工资收入9000元，当月个人承担住房公积金、基本养老保险金、医疗保险金、失业保险金共计1000元，免征额为2000元，则王某当月应纳税所得额=9000-1000-2000=6000元，应纳个人所得税税额=6000×20%-375=825元。 15.6.2 计算个人所得税 Command0 lblSds txtYlj txtYsr txtYlbxj txtSybxj txtZfgjj 15.6.2 计算个人所得税 （1）设计一个自定义函数过程jssds，该过程通过参数ysr接收一个应纳税所得额，根据ysr计算应纳个人所得税税额并返回。（代码见教材） 该过程为一函数过程。可以VBA中插入一个模块，把该函数过程放在模块中。过程首句中出现的Public表示这是一个可由其它模块调用的函数过程。 （2）在VBA环境中，为命令按钮Command0的单击事件编写事件过程代码。首先，计算应纳税所得额，并存储在变量ysr中，然后通过调用函数jssds来获取应纳个人所得税税额，并将其显示在标签框lblSds上。（代码见教材） 该过程为事件过程，保存在相应的窗体模块之中。过程代码的最后一行中调用了jssds函数过程。在当前数据库中任何一个标准模块中的公共过程都可以直接调