资源描述：
《vb程序设计练习题3答案》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、精品文档vb程序设计练习题3答案一、判断题1.√.×.√.×.√.×.×.√.×10.√二、选择题1．A．A．D．C．C．D．A．B三、填空题1．Ifx>yThent=x:x=y:y=t．Is．Fori=0To:b=InputBox=“):Nexti．ReDimaAsSingle．String6．四、程序阅读题五、程序填空题六、程序设计题题1．程序代码如下PrivateSubForm_ClickDimaAsSingle,bAsSingle,cAsSingleDimxAsSingle,yAsSingle,zAsSinglea=Val):b=Val):c=Val)Ifa>b
2、Thenx=aElsex=bIfxIfacThenz=cy=a+b+c-x-zPrintx;y;zEndSub1题2．程序代码如下用IF语句PrivateSubCommand1_ClickDimyAsSingle,xAsSinglex=Val)Ifx>Theny=x+ElseIfx>=1Theny=x*xElseIfx>0Theny=SqrElsey=0EndIfPrint2016全新精品资料-全新公文范文-全程指导写作–独家原创29/29精品文档yEndSub题3．程序代码如下PrivateSubForm_ClickDimiAsByte,jAsByteFori=1To
3、Forj=1ToiPrintTrim);“*”;Trim);“=“;Trim);Ifi*jPrivateSubCommand1_ClickDimxAsDouble,sAsDouble,tAsDouble,iAsInteger,nAsIntegerx=Val):n=Val)t=1:s=1+xFori=Ton+1t=t*x/i:s=s+tNextiPrintsEndSub题5．程序代码如下2用Select语句PrivateSubCommand2_ClickDimyAsSingle,xAsSinglex=Val)SelectCasexCaseIs>:y=x+CaseIs>=1
4、:y=x*xCaseIs>0:y=SqrCaseElse:y=0EndSelectPrintyEndSubPrivateSubCommand1_ClickDimeAsSingle,tAsSingleDimiAsIntegere=:t=1:i=DoWhilet>=0.0001t=t/i:i=i+1:e=e+tLoopPrinteEndSub题6．程序代码如下,nAsInteger,iAsInteger,jAsIntegerm=Val)n2016全新精品资料-全新公文范文-全程指导写作–独家原创29/29精品文档=Val)ReDimaAsInteger,bAsInteger
5、Fori=1Tom:a=Val=“)):Nexti3Fori=1Ton:b=Val=“)):NextiFori=1TomForj=1Ton:Ifa=bThenExitFor:NextjIfj>nThenPrintaNextiFori=1TonForj=1Tom:Ifb=aThenExitFor:NextjIfj>mThenPrintbNextiEndSub题9．程序代码如下PrivateSubForm_ClickDimxAsInteger,iAsInteger,jAsIntegerFori=1ToForj=1To-i:x=-i-j:NextjNextiFori=ToFo
6、rj=-iTo:x=i+j-:NextjNextiFori=1ToForj=1To:Printx;:NextjPrintNextiEndSub题10．程序代码如下显示呈直角三角形PrivateSubCommand1_ClickDimiAsByte,jAsByte,nAsByteForm1.ClsDon=Val)LoopUntiln>0AndnFori=1To2016全新精品资料-全新公文范文-全程指导写作–独家原创29/29精品文档n+1:a=1:a=1:NextiFori=Ton+1Forj=Ton:a=a+a:NextjNextiFori=1Ton+1Forj=1T
7、oi:PrintTab*);Trim));:Nextj4PrintNextiEndSub显示呈等腰三角形PrivateSubCommand2_ClickDimiAsInteger,jAsInteger,nAsIntegerForm1.ClsDon=Val)LoopUntiln>0AndnFori=1Ton+1:a=1:a=1:NextiFori=Ton+1Forj=Ton:a=a+a:NextjNextiFori=1Ton+1PrintSpace+1);Forj=1ToiPrintSpace))));Trim);NextjPrintNex
