设一个人的月应纳税所得额为K(元),用下面的公式计算其应缴纳的个人所得税额S(元); 若0<K≤500,则S=K×5%; 若500<K≤2000,则S=500×5%+(K-500)×10%; 若2000<K≤5000,则S=500×5%+1500×10%+(K-2000)×15%; 若5000<K≤20
000,则S=500×5%+1500×10%+3000×15%+(K-5900)×20%; 例如,某人某月工资总额为5200元,减去800元后,应纳税所得额为4400元,其应缴纳的个人所得税额为500*5%+1500*10%+2400*15%=535元。 在开发过程中,需要编写的程序代码如下: 【程序代码9】 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) K=
Val(Txt_salary.Text)-Val(Txt_base.Text) S=0 If (1)
Then For j=1 To 9 If (2)
Then S =
S+(paylevel(j)-paylevel(j-1))*taxPrate(j-1)/100 Else S=S+K-paylevel(j-1)*
(3) Exit For End If Next
j Ent If Txt_tax.Text= (4) End
Sub Private Sub Cmd_quit_Click() End End Sub Private Sub
Form_Load() Txt_tax.Text=" " Txt_salary.Text="
" Txt_base.Text=800 Txt_tax.Locked=True Txt_base.Enabled=
(5) End Sub