上海海事大学vb题库—程序填空

上海海事大学vb题库—程序填空

ID:15136617

大小:676.50 KB

页数:161页

时间:2018-08-01

上海海事大学vb题库—程序填空_第1页
上海海事大学vb题库—程序填空_第2页
上海海事大学vb题库—程序填空_第3页
上海海事大学vb题库—程序填空_第4页
上海海事大学vb题库—程序填空_第5页
资源描述:

《上海海事大学vb题库—程序填空》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

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

2、SubCommand1_Click()x=Val(Text1.Text)SelectCasex'**********SPACE**********【?】Label1.Caption="+"CaseIs<0'**********SPACE**********【?】'**********SPACE**********【?】Label1.Caption="零"EndSelectEndSub答案:1).CaseIs>02).Label1.Caption="-"3).Case0或CaseElse或CaseIs=0〖第2

3、题〗『程序填空』(1分)(题号:60)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能:输入任何一个英文字母x,'若x的值为"a","c","d-f",则显示x的大写字母;'若x的值为"m","o","p-z",则显示x的小写字母;'若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。'--------

4、-----------------------------------------------PrivateSubCommand1_Click()x=Text1.Text'**********SPACE**********【?】'**********SPACE**********Case【?】Label1.Caption=UCase(x)Case"m","o","p"To"z"Label1.Caption=LCase(x)CaseElse'**********SPACE**********【?】EndSele

5、ctEndSub答案:1).SelectCasex2)."a","c","d"To"f"3).Label1.Caption=Trim(x)+"a"或Label1.Caption=x+"a"〖第3题〗『程序填空』(1分)(题号:36)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能:以下程序的功能如(图1)。'----

6、---------------------------------------------------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-rEl

7、sex1=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、-----'【程序填空】'-------------------------------------------------------'功能:下面的程序段用于建立文件并输出文件,文件内容如下:''*****'*****'*****'*****'*****'-------------------------------------------------------PrivateSubForm_Cl

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。