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)Casem,o,pTozLabel1.Caption=LCase(x)CaseElse'**********SPACE**********【?】EndSelectEndSub-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：窗体上建立了一个文本框Text1(输入口令)和一个命令按钮Command1(检查)。'判断密码是否正确，并显示相应提示'在加载窗体时设置密码框最大长度为8，密码显示字符为“*”'-------------------------------------------------------dimxasstringPrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********Ifx【?】12345678ThenMsgBox(欢迎你用机!)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=+CaseIs0'**********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=【?】Printx值,y值Printx,yIfxyThen'**********SPACE**********【?】'**********SPACE**********【?】'**********SPACE**********【?】EndIfPrintx,yEndSub'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：以下程序的功能为，单击窗体后如果输入的数据分别为W，8和？时，'窗体上显示的内容分别是：WisAlphaCharacter、8isNumeralCharacter、'？isOtherCharacter'-------------------------------------------------------PrivateSubForm_Click()DimstrCAsString*1strC=InputBox(请输入数据)'**********SPACE**********SelectCase【?】'**********SPACE**********CaseaToz【?】Form1.PrintstrC+IsAlphaCharacterCase0To9Form1.PrintstrC+IsNumeralCharacter'**********SPACE**********【?】ElseForm1.PrintstrC+IsOtherCharacterEndSelectEndSub'------------------------------------------------'【程序改错】'------------------------------------------------'题目：以下程序功能是输入三个数，由大到小排序。'------------------------------------------------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=nTempEndIfPrintTheintegersinorderis;A;B;CEndSub'------------------------------------------------'【程序改错】'------------------------------------------------'题目:请根据下列描述编写购物优惠程序。某商场为了'加速促成商品流通，采用购物打折的优惠办法，每'位顾客一次购物（1）在100元以上者，按九五折优惠；'（2）在200元以上者，按九折优惠；（3）300元以上'者，按八折优惠；（4）500元以上者按七折优惠。'------------------------------------------------OptionExplicitPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx100Then'**********FOUND**********x=yElseIfx200Theny=0.95*xElseIfx300Theny=0.9*xElseIfx500Theny=0.8*xElsey=0.7*x'**********FOUND**********ElseIfEndIfEndIfEndIf'**********FOUND**********Text2.Text=xEndSub'------------------------------------------------'【程序改错】'------------------------------------------------'题目:密码判断程序，如果密码为12345则显示“恭喜，密码正确”，'否则显示“很遗憾，密码错误”，要求文本框中只允许输入数字。'------------------------------------------------OptionExplicitPrivateSubCommand1_Click()DimstrPwsAsStringstrPws=Trim(Text1.Text)'**********FOUND**********IfLen(strPws)0ThenExitSubIfstrPws=12345Then'**********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**********wo