vb复习题选择结构

第页'【程序填空】'功能：输入任何一个英文字母x,'若x的值为"a","c","d-f",则显示x的大写字母；'若x的值为"m","o","p-z",则显示x的小写字母；'若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。PrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********'**********SPACE**********Case【?】Label1.Caption=UCase(x)Case"m","o","p"To"z"Label1.Caption=LCase(x)CaseElse'**********SPACE**********EndSelectEndSub'【程序填空】'功能：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。'判断密码是否正确，并显示相应提示'在加载窗体时设置密码框最大长度为8，密码显示字符为“*”dimxasstringPrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********Ifx【?】"12345678"ThenMsgBox("欢迎你用机!")ElseMsgBox("对不起，口令错")EndIfText1.Text=""Text1.SetFocusEndSubPrivateSubForm_Load()Text1.Text=""'**********SPACE**********Text1.【?】=8'**********SPACE**********Text1.【?】="*"EndSub'【程序填空】'功能：输入一个数,若大于0,则显示"+"；若小于0，'则显示"-"；若等于"0",则显示"零"。PrivateSubCommand1_Click()x=Val(Text1.Text)SelectCasex'**********SPACE**********Label1.Caption="+"CaseIs<0'**********SPACE**********'**********SPACE**********Label1.Caption="零"EndSelectEndSub'【程序填空】'功能：根据输入的学习成绩,分别显示优秀(90分以上),良好'(75分以上),及格(60分以上),不及格几个等级。PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx>=90ThenLabel1.Caption="优秀"'**********SPACE**********ElseIf【?】ThenLabel1.Caption="良好"ElseIfx>=60Then'**********SPACE**********'**********SPACE**********Label1.Caption="不及格"EndIfEndSub'【程序填空】'题目：已知用inputbox函数输入两个数x和y，比较它们的大小，'使得x大于y。PrivateSubForm_Click()DimxAsSingle,yAsSinglex=InputBox("输入数据1：")'**********SPACE**********y=【?】Print"x值","y值"Printx,yIfx<yThen'**********SPACE**********'**********SPACE**********'**********SPACE**********EndIfPrintx,yEndSub'【程序填空】'功能：以下程序的功能为，单击窗体后如果输入的数据分别为"W"，"8"和"？"时，'窗体上显示的内容分别是：WisAlphaCharacter、8isNumeralCharacter、'？isOtherCharacterPrivateSubForm_Click()DimstrCAsString*1strC=InputBox("请输入数据")'**********SPACE**********SelectCase【?】'**********SPACE**********Case"a"To"z"【?】Form1.PrintstrC+"IsAlphaCharacter"Case"0"To"9"Form1.PrintstrC+"IsNumeralCharacter"'**********SPACE**********【?】ElseForm1.PrintstrC+"IsOtherCharacter"EndSelectEndSub'【程序改错】'题目：以下程序功能是输入三个数，由大到小排序。OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox("Pleaseinputfirstinteger","输入正整数"))B=Val(InputBox("Pleaseinputsecondinteger","输入正整数"))C=Val(InputBox("Pleaseinputthirdinteger","输入正整数"))'**********FOUND**********IfA<=CThennTemp=AA=BB=nTempEndIf'**********FOUND**********IfB<=CThennTemp=AA=CC=nTempEndIf'**********FOUND**********IfA<=BThennTemp=BB=CC=nTempEndIfPrint"Theintegersinorderis";A;B;CEndSub'【程序改错】'题目:请根据下列描述编写购物优惠程序。某商场为了'加速促成商品流通，采用购物打折的优惠办法，每'位顾客一次购物（1）在100元以上者，按九五折优惠；'（2）在200元以上者，按九折优惠；（3）300元以上'者，按八折优惠；（4）500元以上者按七折优惠。OptionExplicitPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<100Then'**********FOUND**********x=yElseIfx<200Theny=0.95*xElseIfx<300Theny=0.9*xElseIfx<500Theny=0.8*xElsey=0.7*x'**********FOUND**********ElseIfEndIfEndIfEndIf'**********FOUND**********Text2.Text=xEndSub'【程序改错】'题目:密码判断程序，如果密码为12345则显示“恭喜，密码正确”，'否则显示“很遗憾，密码错误”，要求文本框中只允许输入数字。OptionExplicitPrivateSubCommand1_Click()DimstrPwsAsStringstrPws=Trim(Text1.Text)'**********FOUND**********IfLen(strPws)<>0ThenExitSubIfstrPws="12345"Then'**********FOUND**********MsgBox"恭喜，密码正确",验证ElseMsgBox"很遗憾，密码错误",,"验证"EndIfEndSubPrivateSubForm_Load()EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)'**********FOUND**********IfNot(KeyAscii>=49AndKeyAscii<=57)ThenKeyAscii=0EndIfEndSub'【程序改错】'题目:程序功能为求解一元二次方程的实根，请修正程序中错误。OptionExplicitPrivateSubForm_Load()Dima!,b!,c!,root1#,root2#,workAsDoublea=Val(InputBox("请输入系数a的值"))b=Val(InputBox("请输入系数b的值"))c=Val(InputBox("请输入系数c的值"))'**********FOUND**********work=b*2-4*a*cIfwork>=0Anda<>0Then'**********FOUND**********root1=(Sqr(work))/(2*a)'**********FOUND**********root2=(Sqr(work))/(2*a)Debug.Print"有二个实根"+Str$(root1)+","+Str$(root2)Else