阅读以下应用说明及Visual Basic程序代码,将应填入______处的语句写在答题纸的对应栏内。 [应用说明9] 本应用程序的运行窗口如图2-6所示。 窗口中的3个文本框和2个按钮,名称分别为Txt_salary,Txt_b

admin2007-03-10  45

问题 阅读以下应用说明及Visual Basic程序代码,将应填入______处的语句写在答题纸的对应栏内。
   [应用说明9]
   本应用程序的运行窗口如图2-6所示。
   
   窗口中的3个文本框和2个按钮,名称分别为Txt_salary,Txt_base,Txt_tax,Cmd compute和Cmd_quit。运行时,文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击“计算”按钮 Cmd_compute后,Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_ tax在运行时不接受用户输入,Txt_base的内容以灰色显示。
   个人工资(或薪金)所得税是按照超额累进的税率来征收的,其计算方法参考试题8。
   [程序代码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=(1)  
   S=0
   if(K>0) Then
       For j=1 TO 9
           If  (2)  Then
      S=S+(paylevel(j)-paylevel(j-1)) * taxPrate(j-1)/100
   Else
      S=S+( (3) ) * taxPrate(j-1)/100
      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=800
     Txt_tax.Locked=True
     Txt_base.Enabled=(5)  
   End Sub

选项

答案(1)Txt_salary.Text-Txt_base.Text (2)K>PayLevel(j) (3)K-paylevel(j-1) (4)Txt_tax.Text (5)False

解析 本题与试题8是同样的问题(但比试题8简单,因为这里只计算一个人的所得税),只是用VB来实现而已。
   显然,在上面的程序中,K表示月应纳税所得额,所以,(1)空应填写Txt_salary. Text-Txt_base.Text。
   下面讨论所得税的计算问题。从题目说明中给出的计算公式中可以看出,税金的计算是采用逐级累计的方式。(2)空应判断月应纳税所得额是否超过了第j级,所以,(2)空应该填写K>PayLevel[j]。
   如果一个职工的月应纳税所得额大于第j级,则其第j-1级收入的全额部分应按适用税率计算税额((paylevel[j]-paylevel[j-1]) * taxPrate[j-1]/100);如果一个职工的月应纳税所得额不大于第j级(没有到达第j级),则其第j-1级收入的实际超出部分采用适用税率计算税额。因此,(3)空应填写K-PayLevel[j-1]。
   计算结束后,应该把计算结果显示在对应的文本框(Txt_tax)中,因此,(4)空是一个显示语句,即为Txt_tax.Text=Str$(S)。
   因为试题要求文本框Txt_base和Txt_tax在运行时不接受用户输入,Txt_base的内容以灰色显示,所以需要设计其Enabled属性(可在设计时确定,也可在窗体启动时确定,本题选择第二种方式)为False。
转载请注明原文地址:https://kaotiyun.com/show/wzjZ777K
0

最新回复(0)