问答题

从下列3道试题(试题5至试题7)中任选1道解答。如果解答的试题数超过1道，则题号小的1道解答有效。
阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题3。
【说明】
在Visual Basic程序中，设计一个“个人所得税计算器”，其应用程序的运行窗口如图6-16所示。


窗口中的3个文本框和两个按钮的名称分别为Txt_salary、Txt_base、TxL_tax、Cmd_compute和 Cmd_quit。“个人所得税计算器”程序运行时，文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击【计算】按钮(Cmd_compute后，Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_tax在运行时不接受用户输入，Txt_base的内容以灰色显示。
个人工资(或薪金)所得税是按照超额累进的税率来征收的，其计算方法如下：以每月收入总额减去免税金额基数后的余额作为该月的月应纳税所得额，再将应纳税所得额按相应级数采用相应的税率进行累进计算。目前的免税金额基数为1 600元，税率如表6-15所示。
表6-15 个人所得税税率表(工资、薪金所得适用)

级　数	全月应纳税所得额	税率(%)
1	不超过500元的	5
2	超过500元至2000元的部分	10
3	超过2000元至5000元的部分	15
4	超过5000元至20000元的部分	20
5	超过20000元至40000元的部分	25
6	超过40000元至60000元的部分	30
7	超过60000元至80000元的部分	35
8	超过80000元至100000元的部分	40
9	超过100000元的部分	45

(注：本表所称全月应纳税所得额是指依照本法第六条的规定，以每月收入额减除费用1600元后的余额或者减除附加减除费用后的余额)
设某个人的全月应纳税所得额为M(元)，用下面的公式计算其应缴纳的个人所得税额S(元)：
若0＜M≤500，则S=M×5%；
若500＜M≤2000，则S=500×5%+(M-500)×10%；
若2000＜M≤5000，则S=500×5%+1500×10%+(M-2000)×15%；
若5000＜M≤20000，则S=500×5%+1500×10%+3000×15%+(M-5000)×20%；
假设某程序员2008年5月份工资总额为4700元，减去1600元后，应纳税所得额为3100元，其应缴纳的个人所得税额为500×5%+1500×10%+1100×15%=340元。
在开发过程中，需要编写的程序代码如下。
【Visual Bask程序】
Option Base 0
Private Sub Cmd compute-Click()
Dim paylevel,taxPrate
paylevel=Array(0,500,2000,5000,20000,40000,60000,80000,100000,1000001
taxPrate=Array(5,10,15,20,25,30,35,40,45)
M= (1)
S = 0
If (M＞0) Then
For j =1 To 9
If (2) Then
s=s+(paylevel(j)-paylevel(j-1))*taxPrate(j-1)/100
Else
(3)
Exit For
End if
Next j
End if
(4) =Str$(S)
End Sub
Private Sub Cmd_quit_Click()
End
End Sub
Private Sub Form_Load()
Txt_tax.Text = " "
Txt_salary.Text = " "
Txt_base.Text = 1600
Txt_tax.Locked = True
Txt_base.Enabled = (5)
End Sub

【问题2】 若要求在图6-16窗口中，用户输入月工资(或薪金收入)后，直接按回车键或向下方向箭就能使焦点(当前光标)跳到应扣除的基本费用的输入文本框，而不用【Tab】键进行切换。请将以下文本框ht_salary的KeyDown(按键)事件过程中空缺的程序代码填写完整。 If KeyCode = 13 Or KeyCode = 40 Then (6) End If