上海海事大学VB题库—程序填空模拟.doc

螀程序填空螇〖第1题〗『程序填空』(1分)(题号:59)芇芃'-------------------------------------------------------个人收集整理勿做商业用途袁'【程序填空】腿'-------------------------------------------------------个人收集整理勿做商业用途蚆'功能:输入一个数,若大于0,则显示"+";若小于0,肃'则显示"-";若等于"0",则显示"零"。袂'-------------------------------------------------------mand1_Click()肆x=Val()螄SelectCasex蚀'**********SPACE**********蚀【?】="+"薄CaseIs<0螁'**********SPACE**********蝿【?】羄'**********SPACE**********芄【?】="零"袇EndSelect蚈EndSub肅薀艿答案:肇1).CaseIs>0螅2).="-"蚁3).Case0或CaseElse或CaseIs=0莈薆芁蚃〖第2题〗『程序填空』(1分)(题号:60)螀羆'-------------------------------------------------------个人收集整理勿做商业用途羂'【程序填空】蒀'-------------------------------------------------------个人收集整理勿做商业用途袈莅'功能:输入任何一个英文字母x,螂'若x的值为"a","c","d-f",则显示x的大写字母;薁'若x的值为"m","o","p-z",则显示x的小写字母;羇'若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。螅蒂'-------------------------------------------------------mand1_Click()荿x='**********SPACE**********芃【?】莀'**********SPACE**********蒈Case【?】=UCase(x)羃Case"m","o","p"To"z"=LCase(x)螀CaseElse莇'**********SPACE**********蚄【?】艿EndSelect羈EndSub螆蒄莀答案:肇1).SelectCasex膅2)."a","c","d"To"f"膄3).=Trim(x)+"a"=x+"a"个人收集整理勿做商业用途莂荿蚅羅〖第3题〗『程序填空』(1分)(题号:36)腿薇'-------------------------------------------------------个人收集整理勿做商业用途肄'【程序填空】蚅'-------------------------------------------------------个人收集整理勿做商业用途芀袀'功能:以下程序的功能如(图1)。螈膁'-------------------------------------------------------个人收集整理勿做商业用途节羈PrivateSubForm_Click()膇Dima%,b%,c%,d!袂Dimx1,x2聿Dimp,q,r膇a=InputBox("请输入a的值")薆b=InputBox("请输入b的值")蚂c=InputBox("请输入c的值")膀d=b*b-4*a*c葿p=-b/(2*a)肆Ifd>=0Then莃'**********SPACE**********节If【?】Then薇r=Sqr(d)/(2*a)蒅x1=p+r膃x2=p-r罿Else羀x1=p袄x2=p袃'**********SPACE**********肁【?】肈Print"x1=";x1,"x2=";x2薈'**********SPACE**********蚄【?】膂q=Sqr(-d)/(2*a)膆Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"羇EndIf莄EndSub罿蕿蒇答案:肅1).d>0或0<d羁2).EndIf蚇3).Else袆袅肂肀〖第4题〗『程序填空』(1分)(题号:51)芅薅'-------------------------------------------------------个人收集整理勿做商业用途