VB题库—程序填空[1]

《VB题库—程序填空[1]》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序填空〖第1题〗『程序填空』(1分)(题号:59)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：输入一个数,若大于0,则显示"+"；若小于0，'则显示"-"；若等于"0",则显示"零"。'-------------------------------------------------------Privat

2、eSubCommand1_Click()x=Val(Text1.Text)SelectCasex'**********SPACE**********Caseis>0Label1.Caption="+"CaseIs<0'**********SPACE**********Label1.Caption="-"'**********SPACE**********Caseis=Label1.Caption="零"EndSelectEndSub答案：1).CaseIs>02).Label1.Caption="-"3).

3、Case0或CaseElse或CaseIs=0〖第2题〗『程序填空』(1分)(题号:60)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,'若x的值为"a","c","d-f",则显示x的大写字母；'若x的值为"m","o","p-z",则显示x的小写字母；'若x的值为其它的值,则显示xa

4、（如输入的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'*******

5、***SPACE**********【?】EndSelectEndSub答案：1).SelectCasex2)."a","c","d"To"f"3).Label1.Caption=Trim(x)+"a"或Label1.Caption=x+"a"〖第3题〗『程序填空』(1分)(题号:36)'-------------------------------------------------------'【程序填空】'------------------------------------------------

6、-------'功能：以下程序的功能如(图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【?】Th

7、enr=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

8、------------------------------------'【程序填空】'-------------------------------------------------------'功能：下面的程序段用于建立文件并输出文件，文件内容如下：''*****'*****'*****'*****'*****'------------------------------------------------