vb復(fù)習(xí)題選擇結(jié)構(gòu)

第頁'【程序填空】'功能：輸入任何一個英文字母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("檢查")。'判斷密碼是否正確，并顯示相應(yīng)提示'在加載窗體時設(shè)置密碼框最大長度為8，密碼顯示字符為“*”dimxasstringPrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********Ifx【?】"12345678"ThenMsgBox("歡迎你用機!")ElseMsgBox("對不起，口令錯")EndIfText1.Text=""Text1.SetFocusEndSubPrivateSubForm_Load()Text1.Text=""'**********SPACE**********Text1.【?】=8'**********SPACE**********Text1.【?】="*"EndSub'【程序填空】'功能：輸入一個數(shù),若大于0,則顯示"+"；若小于0，'則顯示"-"；若等于"0",則顯示"零"。PrivateSubCommand1_Click()x=Val(Text1.Text)SelectCasex'**********SPACE**********Label1.Caption="+"CaseIs<0'**********SPACE**********'**********SPACE**********Label1.Caption="零"EndSelectEndSub'【程序填空】'功能：根據(jù)輸入的學(xué)習(xí)成績,分別顯示優(yōu)秀(90分以上),良好'(75分以上),及格(60分以上),不及格幾個等級。PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx>=90ThenLabel1.Caption="優(yōu)秀"'**********SPACE**********ElseIf【?】ThenLabel1.Caption="良好"ElseIfx>=60Then'**********SPACE**********'**********SPACE**********Label1.Caption="不及格"EndIfEndSub'【程序填空】'題目：已知用inputbox函數(shù)輸入兩個數(shù)x和y，比較它們的大小，'使得x大于y。PrivateSubForm_Click()DimxAsSingle,yAsSinglex=InputBox("輸入數(shù)據(jù)1：")'**********SPACE**********y=【?】Print"x值","y值"Printx,yIfx<yThen'**********SPACE**********'**********SPACE**********'**********SPACE**********EndIfPrintx,yEndSub'【程序填空】'功能：以下程序的功能為，單擊窗體后如果輸入的數(shù)據(jù)分別為"W"，"8"和"？"時，'窗體上顯示的內(nèi)容分別是：WisAlphaCharacter、8isNumeralCharacter、'？isOtherCharacterPrivateSubForm_Click()DimstrCAsString*1strC=InputBox("請輸入數(shù)據(jù)")'**********SPACE**********SelectCase【?】'**********SPACE**********Case"a"To"z"【?】Form1.PrintstrC+"IsAlphaCharacter"Case"0"To"9"Form1.PrintstrC+"IsNumeralCharacter"'**********SPACE**********【?】ElseForm1.PrintstrC+"IsOtherCharacter"EndSelectEndSub'【程序改錯】'題目：以下程序功能是輸入三個數(shù)，由大到小排序。OptionExplicitDimAAsIntegerDimBAsIntegerDimCAsIntegerPrivateSubForm_Click()DimnTempAsIntegerA=Val(InputBox("Pleaseinputfirstinteger","輸入正整數(shù)"))B=Val(InputBox("Pleaseinputsecondinteger","輸入正整數(shù)"))C=Val(InputBox("Pleaseinputthirdinteger","輸入正整數(shù)"))'**********FOUND**********IfA<=CThennTemp=AA=BB=nTempEndIf'**********FOUND**********IfB<=CThennTemp=AA=CC=nTempEndIf'**********FOUND**********IfA<=BThennTemp=BB=CC=nTempEndIfPrint"Theintegersinorderis";A;B;CEndSub'【程序改錯】'題目:請根據(jù)下列描述編寫購物優(yōu)惠程序。某商場為了'加速促成商品流通，采用購物打折的優(yōu)惠辦法，每'位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；'（2）在200元以上者，按九折優(yōu)惠；（3）300元以上'者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。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則顯示“恭喜，密碼正確”，'否則顯示“很遺憾，密碼錯誤”，要求文本框中只允許輸入數(shù)字。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("請輸入系數(shù)a的值"))b=Val(InputBox("請輸入系數(shù)b的值"))c=Val(InputBox("請輸入系數(shù)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