首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明及Visual Basic程序代码,根据要求回答问题1至问题3。 【说明】 在Visual Basic程序中,设计一个“个人所得税计算器”,其应用程序的运行窗口如图6-16所示。 窗口中的3个文本框和两个按钮的名称分
阅读以下应用说明及Visual Basic程序代码,根据要求回答问题1至问题3。 【说明】 在Visual Basic程序中,设计一个“个人所得税计算器”,其应用程序的运行窗口如图6-16所示。 窗口中的3个文本框和两个按钮的名称分
admin
2009-02-15
26
问题
阅读以下应用说明及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所示。
(注:本表所称全月应纳税所得额是指依照本法第六条的规定,以每月收入额减除费用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
选项
答案
(1)Val(Txt_salary.Text)-Val(Txt_base.Text) (2)M>paylevel[j] (3)s=s+(M-paylevel(j-i))*taxPrate(j-1)/100 (4)Txt_tax.Text (5)False
解析
由题干关键信息“个人所得税计算器程序运行时,文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)……”、“以每月收入总额(即 Val(Txt_salary.Text))减去免税金额基数(即Val(Txt_base.Text))后的余额作为该月的月应纳税所得额”和“设某个人的全月应纳税所得额为M(元)”可知,M表示月应纳税所得额,因此(1)空缺处应填入“Val(Txt_salary.Text)-Val(Txt_base.Text)”。
由题干【说明】所给出的计算公式可以看出,税金的计算是采用逐级累计的方式。而在【Visual Basic程序】中,数组paylevel存放的是各级别全月应纳税所得额基础数。如果一个职工的月应纳税所得额大于第j级,则其第j-1级收入的全额部分应按适用税率计算税额:(payleve(j)-paylevel(j-1))*taxPrate(j-1)/100。可见,(2)空缺处应判断月应纳税所得额是否超过了第i级,因此(2)空缺处所填写的判断条件是“M> paylevel(j)”。
如果一个职工的月应纳税所得额不大于第i级(没有到达第i级),则其第i-1级收入的实际超出部分采用适用税率计算税额:S=S+(M-paylevel(j-1))*taxPrate(j-1)/100,即(3)空缺处所填写的内容是“S=S+(M-paylevel(j-1))*taxPrate(j-1)/100”。然后执行“Exit For”语句,结束个人所得税额S的计算过程。
由题干关键信息“……单击【计算】按钮(Cmd_compute)后,Txt_tax文本框中就显示计算所得的应纳税额”可知,计算的结果应该显示在对应的文本框(Txt_tax)中,因此(4)空缺处所填写的显示语句是“Txt_tax.Text”。
由题干关键信息“文本框Txt_base和Txt_tax在运行时不接受用户输入,Txt_base的内容以灰色显示”可知,语句“Txt_tax.Locked=True”实现了程序运行时文本框Txt_tax不接受用户输入的功能,而文本框 Txt_base的Enabled属性应设置为“false”,以实现“Txt_base的内容以灰色显示”的功能,即(5)空缺处所填写的属性是“false”。
转载请注明原文地址:https://kaotiyun.com/show/rEjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
下列选项中,不属于网络操作系统的是______。
信息处理组长感到日常的信息处理工作效率不高,而且容易出错。为解决这个问题,一般来说,应重点采取的技术措施是()。
信息处理技术员教程共有318页,甲在第一天看了全书的1/6,第二天看了剩下的1/5,第三天应从第(32)页开始看。
抽样调查是收集数据的重要方法之一。抽样调查所遵循的原则不包括______。
上级要求信息处理技术员做a、b、c、d、e五件工作。先做什么,后做什么,如何安排呢?根据工作性质以及紧急程度,他列出了如下几条规则:a应在b前 c应在a前 d应在a前 a应在e前d应在b前 b应在e前 c应在d前 c应在
Windows系统的控制面板不包括__________功能。
在Excel2003中,A1到E6单元格的值如下图所示,若在A7单元格中输入计算众数的函数“=MODE(A1:E6)”,按回车键后,则.A7单元格显示的值为(47)。
在Word编辑状态下,有些英文单词或汉字下面会自动加上红色或绿色的波浪型细下划线。以下叙述中,“波浪型细下划线(44)”是错误的。
为了调查某学校3000名学生的身高,抽取了100名学生进行身高测量,以下叙述中正确的是(23)。
计算机使用一段时间后发现,系统启动时间变长,系统响应迟钝,应用程序运行缓慢,为此,需要进行系统优化。系统优化工作不包括___________。
随机试题
Thefiddlercrabisalivingclock.Itindicatesthetimeofdaybythecolorofitsskin,whichisdarkbydayandpalebynigh
产妇,女,33岁,汉族。妊娠前曾输同型血400ml。曾有怀孕2个月流产3次,8个月早产死胎1次。现为第5次怀孕,8个月时因有早产征象住院保胎。经药物治疗维持到妊娠36周时行剖宫产,患儿出生后12小时出现黄疸,Hb120g/L,RBC3.45×1012/
下列与桩基相关的4点主张:I.液压式压桩机的机架重量和配重之和为4000kN时,设计最大压桩力不应大于3600kN;Ⅱ.静压桩的最大送桩长度不宜超过8m,且送桩的最大压桩力不宜大于允许抱压压桩力,场地地基承载力不应小于压桩机接
工程款拨款累计额达到建筑安装工程造价的()时,停止支付,预留造价部分作为尾留款。
在分部分项工程量清单中,对项目特征进行描述的意义包括()。
成本领先战略适用于()。
初诊接待中,心理咨询师的主要工作是()。
城市学校并不是一所学校的名称,而是为新兴市民阶层子弟开办的学校的总称,有着_小同种类、不同规模,因此,没有共同特点。
以下选项中,输出结果为False的是
Thegovernmentaldepartmentsconcernedareawarethattherearedownfalls______morecarsontheroads.
最新回复
(
0
)