搜索
1、请根据下列描述，编写财务部门征收劳务酬金所得税程序，规定如下：（1）收入小于1000元，扣税3%。（2）收入在1000~3000元之内（不含3000元），1000元以上部分扣税15%。（3）收入在3000~5000元之内（不含5000元），3000元以内按(2)的方法扣税，3000元以上部分扣税20%。（4）当收入达到5000元以上（含5000元），扣税25%。2、设计程序计算商场货物的应付金额。要求用户选择会员卡的种类后，输入物品单价和购买数量，单价“计算”按钮，显示折扣额和应付金额。（注：钻石卡7折，白金卡8折，银卡9折）操作要求：3、生肖查询：设计一个查询十二生肖的应用程序，其界面如下图所示（提示：十二生肖排序是鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪）1、PrivateSubCommand1_Click()Dimx!,y!x=Val(Text1)SelectCasexCaseIs1000y=x*0.03CaseIs3000y=1000*0.03+(x-1000)*0.15CaseIs5000y=1000*0.03+2000*0.15+(x-3000)*0.2CaseElsey=x*0.25EndSelectText2=yEndSub2、PrivateSubCommand1_Click()Dimdj!,n%,p!,s!dj=Val(Text1.Text)n=Val(Text2.Text)SelectCaseCombo1.TextCase钻石卡p=0.7Case白金卡p=0.8Case银卡p=0.9EndSelectText3.Text=ps=dj*n*pText4.Text=sEndSubPrivateSubform_load()Combo1.AddItem钻石卡Combo1.AddItem白金卡Combo1.AddItem银卡EndSub3、PrivateSubCommand1_Click()Dimyear%,a%,s$year=Val(Text1.Text)a=yearMod12SelectCaseaCase1s=鸡Case2s=狗Case3s=猪Case4s=鼠Case5s=牛Case6s=虎Case7s=兔Case8s=龙Case9s=蛇Case10s=马Case11s=羊Case0s=猴EndSelectLabel3.Caption=sEndSub