vb选择结构练习

程序分析题1X=5Y=-20Ifnotx0thenx=y-3elsey=x+3Printx-y;y-xNot50falseY=5+3=8X-y=5-8=-3Y-x=8-5=3-33编程题判断闰年输入数据从键盘输入年份a=inputbox(，，)从文本框中输入年份a=text1.text判断闰年的条件：能被4整除，但不能被100整除，或能被400整除显示结果直接打印在屏幕上print显示在标签上label1.caption=……显示在文本框text1.text=…….程序书写Privatesubcommand1_click()Endsub确定促发的事件定义变量Dimxasinteger输入数据x=val(inputbox(“请输入年份”,”判断闰年”))判断条件Ifxmod4=0andxmod1000andxmod400=0thenprintx&“是闰年”Elseprintx&”不是闰年”Endif输入学生成绩，显示相关等级。PrivateSubCommand1_Click()Dimaassinglea=Val(Text1.Text)SelectCaseaCaseIs=90Label1.Caption=ACaseIs=80Label1.Caption=BCaseIs=70Label1.Caption=CCaseIs=60Label1.Caption=DCaseElseLabel1.Caption=EEndSelect编写一计算水费程序，如果用水吨数小于或等于5吨，按每吨2元收费；如果水的吨数大于5小于20，超出5部分按3元收费；如果在20吨以上，超出部分按5元收费。PrivateSubCommand1_Click()Dimx,yassinglex=Val(Text1.Text)Ifx=5Theny=2*xElseIfx20Theny=2*5+(x-5)*3Elsey=2*5+3*15+(x-20)*5EndIfLabel1.Caption=yEndSub编写工资调整程序。若基本工资大于等于800元，工资增加20%；若小于800元大于600元，则工资增加15%，若小于600元则工资增加10%。要求在文本框中输入某职工的基本工资，单击“计算”按钮进行计算。PrivateSubCommand1_Click()Dimx,yassinglex=Val(Text1.Text)Ifx=800Theny=1.2*xElseIfx=600Theny=1.15*xElsey=1.1*xEndIfLabel1.Caption=yEndSub分段函数2x-1x-10Y=3x2+5x-1-10≤x10|x2-100|0≤x≤5Sin(5x+7)5x103x3-2x2-x+1x≥10PrivateSubCommand1_Click()Dimx,yassinglex=Val(Text1.Text)Ifx-10Theny=2*x-1Ifx=-10Andx10Theny=3*x*x+5*x-1Ifx=0Andx=5Theny=Abs(x*x-100)Ifx5Andx10Theny=Sin(5*x+7)Ifx=10Theny=3*x^3-2*x^2-x+1Label1.Caption=yEndSub由键盘输入三条边ABC，判断是否构成三角形，构成三角形的计算面积及周长，并判断是否直角三角形，不构成三角形的给出提示。PrivateSubCommand1_Click()Dima,b,cassinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa+bcAnda+cbAndb+caThenLabel1.Caption=能构成三角形x=a+b+cy=x/2s=Sqr(y*(y-a)*(y-b)*(y-c))Text4.Text=周长为：&xText5.Text=面积为&sIfa^2+b^2=c^2Ora^2+c^2=b^2Orb^2+c^2=a^2thenText6.Text=是直角三角形ElseText6.Text=不是直角三角形“endifEndIfEndSub求一元二次方程ax2+bx+c=0的根。（d=b2-4ac如果d0为无根，d=0有一根为，d0有二根为）PrivateSubCommand1_Click()Dima,b,c,d,x1,x2,xassinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=b*b-4*a*cLabel2.Caption=一元二次方程为：&a&x*x+&b&x+&cIfd0ThenLabel1.Caption=无根ElseIfd=0Thenx=-b/(2*a)Label1.Caption=有一根为：&xElseX1=(-b+Sqr(b*b-4*a*c))/(2*a)X2=(-b-Sqr(b*b-4*a*c))/(2*a)Label1.Caption=有二根为：&X1&X2EndIfEndSub在文本框1中输入英文单击“大写”按钮，在文本框2中显示大写的英文；单击“小写”按钮，在文本框2中显示小写。‘小写转为大写PrivateSubCommand1_Click()Text2.Text=UCase(Text1.Text)EndSub‘大写转为小写PrivateSubCommand2_Click()Text2.Text=LCase(Text1.Text)EndSub由键盘输入三个数ABC，要求按顺序输出。PrivateSubCommand1_Click()Dima,b,c,xassinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)IfabThenx=a:a=b:b=xIfacThenx=a:a=c:c=xIfbcThenx=b:b=c:c=xText4.Text=a：Text5.Text=b：Text6.Text=cEndsub输入一个字符判断属于哪类(大写字母、小写字母、数字、其他字符)PrivateSubCommand1_Click()Dimmasstringm=Text1.TextSelectCasemCase0To9Label1.Caption=数字字符CaseAToZLabel1.Caption=大写字符CaseaTozLabel1.Caption=小写字符CaseElseLabel1.Caption=其他字符EndSelectEndSub输入一个四位数，分别输出它的个位数字、十位数字、百位数字和千位数字。PrivateSubCommand1_Click()a=Val(InputBox(,))Ifa=1000Anda10000Thenc=a\1000d=(a-c*1000)\100e=(a-c*1000-d*100)\10f=a-c*1000-d*100-d*10EndIfPrinta&的千位数为：&cPrinta&的百位数为：&dPrinta&的十位数为：&ePrinta&的个位数为：&fEndSub判断一个数是否为水仙花数PrivateSubCommand1_Click()a=mMod10b=(i-a)/10Mod10c=i\100Ifa^3+b^3+c^3=iThenMsgBoxyesElseMsgBoxNOEndIfendsub