首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明及Visual Basic程序代码,根据要求回答问题1至问题3。 【说明】 在Visual Basic程序中,设计一个“个人所得税计算器”,其应用程序的运行窗口如图6-16所示。 窗口中的3个文本框和两个按钮的名称分
阅读以下应用说明及Visual Basic程序代码,根据要求回答问题1至问题3。 【说明】 在Visual Basic程序中,设计一个“个人所得税计算器”,其应用程序的运行窗口如图6-16所示。 窗口中的3个文本框和两个按钮的名称分
admin
2009-02-15
44
问题
阅读以下应用说明及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
程序员下午应用技术考试
软考初级
相关试题推荐
对某地区家庭人数的抽样调查统计结果如下表:根据此表,该地区每个家庭的平均人数大致为(28)。
某商场的部门和商品两个实体之间的关系如下图所示。假设每个部门负责销售若干种商品,每种商品只能由一个部门负责销售,那么部门和商品之间存在着(14)的联系。
一条内存不常见的容量是(1)。
在Excel2007中,设单元格A1中的值为-1,B1中的值为1,A2中的值为0,B2中的值为1,若在C1单元格中输入函数“=IF(AND(A1>0,B1>0),A2,B2)”,按回车键后,C1单元格中的值为______。
以下关于Excel单元格操作的叙述,(52)是错误的。
(68)________________属于人工智能的应用。
以下关于windows7文件名的叙述中,(20)________________是正确的。
在Excel2010中,C3:C7单元格中的值分别为10、OK、20、YES和48,在。D7单元格中输入函数“=COUNT(C3:C7)”,按回车键后,D7单元格中显示的值为________________。
在Excel2010中,设单元格A1、B1、C1、A2、B2、C2中的值分别为1、2、3、4、5、6,若在单元格D1中输入函数“=MAX(A1:A2,B1:C2)”,按回车键后,则D1单元格中的值为(
上级要求信息处理技术员做a、b、c、d、e五件工作。先做什么,后做什么,如何安排呢?根据工作性质以及紧急程度,他列出了如下几条规则:a应在b前 c应在a前 d应在a前 a应在e前d应在b前 b应在e前 c应在d前 c应在
随机试题
试列举出外圆柱表面三种常用的加工方法。
十二指肠球部后壁溃疡并发大出血,血管多来自
关于工作分解结构的说法,正确的有()。
【背景资料】某办公大楼由主楼和裙楼两部分组成。平面呈不规则四方形,主楼29层,裙楼4层,地下2层,总建筑面积81650m2。该工程5月份完成主体施工,屋面防水施工安排在8月份。屋面防水层由一层聚氨酯防水涂料和一层自粘SBS高分子防水卷材构成。裙楼
如果“长期待摊费用”项目不能在以后会计期间受益的,应当将尚未摊销的该项目的摊余价值全部转入当期损益。()
某旅游团计划乘16:00的航班离开北京飞往香港,地陪小唐应在()之前将该团送到机场。
仲裁是指纠纷当事人在自愿基础上达成协议,将纠纷提交司法机构的第三者审理,由第三者作出对争议各方均有约束力的裁决的一种解决纠纷的制度和方式。()
甲、乙两校图书馆的存书量之比为7:5,如果甲校给乙校10本书,那么两校的存书量之比就变为4:3。但实际上乙校给了甲校一些书,导致两校的存书量之比变为2:1。那么,乙校给了甲校多少本书?
Ishalltellhimthetruth,______.
以下关于VBA运算符优先级比较,正确的是()。
最新回复
(
0
)