上海海事大学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)荿蚈'-------------------------------------------------------个人收集整理勿做商业用途