可视化编程VB-Select-Case语句-案例上课讲义.docx

《可视化编程VB-Select-Case语句-案例上课讲义.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、可视化编程VB-Select-Case语句-案例精品文档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折）操

2、作要求：收集于网络，如有侵权请联系管理员删除精品文档1、生肖查询：设计一个查询十二生肖的应用程序，其界面如下图所示（提示：十二生肖排序是鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪）收集于网络，如有侵权请联系管理员删除精品文档收集于网络，如有侵权请联系管理员删除精品文档收集于网络，如有侵权请联系管理员删除精品文档1、PrivateSubCommand1_Click()Dimx!,y!x=Val(Text1)SelectCasexCaseIs<1000y=x*0.03CaseIs<3000y=1000*0.03+(x-1000)*0.15CaseIs<5000y=1000*0.03+20

3、00*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.AddIt

4、em"白金卡"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收集于网络，如

5、有侵权请联系管理员删除