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

程序填空〖第1题〗『程序填空』(1分)(题号:59)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能:输入一个数,若大于0,则显示"+";若小于0,'则显示"-";若等于"0",则显示"零"。'-------------------------------------------------------mand1_Click()x=Val()SelectCasex'**********SPACE**********【?】="+"CaseIs<0'**********SPACE**********【?】'**********SPACE**********【?】="零"EndSelectEndSub答案:1).CaseIs>02).="-"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**********【?】EndSelectEndSub答案:1).SelectCasex2)."a","c","d"To"f"3).=Trim(x)+"a"=x+"a"〖第3题〗『程序填空』(1分)(题号:36)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能:以下程序的功能如(图1)。'-------------------------------------------------------PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBox("请输入a的值")b=InputBox("请输入b的值")c=InputBox("请输入c的值")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********SPACE**********If【?】Thenr=Sqr(d)/(2*a)x1=p+rx2=p-rElsex1=px2=p'**********SPACE**********【?】Print"x1=";x1,"x2=";x2'**********SPACE**********【?】q=Sqr(-d)/(2*a)Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"EndIfEndSub答案:1).d>0或0<d2).EndIf3).Else〖第4题〗『程序填空』(1分)(题号:51)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能:下面的程序段用于建立文件并输出文件,文件内容如下:''*****'*****'*****'*****'*****'-------------------------------------------------------PrivateSubForm_Click()'**********SPACE*****