可視化編程VB Select Case語句 案例

1、請根據(jù)下列描述，編寫財務部門征收勞務酬金所得稅程序，規(guī)定如下：1）收入小于1000元，扣稅3%。2）收入在1000~3000元之內(nèi)（不含3000元），1000元以上部分扣稅15%。3）收入在3000~5000元之內(nèi)（不含5000元），3000元以內(nèi)按（2）的方法扣稅，3000元以上部分扣稅20%。4）當收入達到5000元以上（含5000元），扣稅25%。&征牧蕓努&征牧蕓努1冷1=1」且揖/扣稅前勞務酬金扣稅額|45SS|547.B［計算A丄任丄-i-o『m丄^uoaej1=ILL|C4mrnaiid.l〒||ClickPrivateSubC&mmand.l_CLickC)Dimk!?y!k=Vai(Textl)SelectCasexCaseIs<1000y=K*0.03CaseIs<3000y=1000*0.03+広一1000)40.15ZeIs<5000y=1000t0.03+2000*0.15+H-3000)*0.2BeeELs^ly=k*0.25EndSelectTS3：12-yEndSub2、設計程序計算商場貨物的應付金額。要求用戶選擇會員卡的種類后，輸入物品單價和購買數(shù)量，單價“計算”按鈕，顯示折扣額和應付金額。（注：鉆石卡7折，白金卡8折，銀卡9折）操作要求：

卡的種類::單恰購買數(shù)里5卡的種類::單恰購買數(shù)里5商場貴幣忖款卡的種譽單恰|白金云二||399應討慕折扣應討慕Q工程1-Forml(Code)回￡CDininandlFrivaSubUomm如ck()Dimdj!,皿」p!,m!dj=yal(re3itl.Test)ik=Vai(T&kt2.Text)SelectCaseCombo!.TextCase"詁石E"p=0.7Z"白金卡"p=0.8Case喺卡"p=a.sEndSelectTe^t3.Test=pm=d」*“*prejit4.Test=sEndSubPrivateSubformLoad()7?mbol.Adiltem"Combol.Adiltern"Cymbal.AddltemNEndSub3、生肖查詢：設計一個查詢十二生肖的應用程序，其界面如下圖所示（提示：十二生肖排序是鼠、牛、虎、兔、龍、蛇、馬、羊、猴、雞、狗、豬）耳爸旬十二生育????????■???????■???????■???aWw十二生肖?????????????????????????????????????????????????二二請輸入您的出生曰期:您的生肖?匸空1-Forml(Code)CommajtdlF'r1vateEub匚口葉⑴:andl_CL1clcI....IDimf已;遼鳳aS：-,5$year-V：eJ_(.Textl.TextJa二7e；ii_Mod12SelectCase=±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+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.Text鉆石卡p=0.7白金卡p=0.8銀卡p=0.9EndSelectText3.Text=ps=dj*n*pText4.Text=sEndSubPrivateSubform_load()鉆石卡白金卡銀卡EndSub3、PrivateSubCommand1_Click()Dimyear%,a%,s$year=Val(Text1.Text)a=yearMod12SelectCaseaCase1雞Case2狗Case3