浙江农林大学Visual Bacis答案.doc

《浙江农林大学Visual Bacis答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第1章VB6.0概述答案一、判断题1——5：　××√×√　　　6——10：××√√√11――15：√×××√二、选择题1——5：ADBBB6——10：CACDB11—-14：CDCC三、程序设计题略第2章VB6.0语言基础　答案一、判断题1——5：　×××√×　　　6——10：×××√√11——14××××二、选择题1——5：ABCDA6——10：ABDBB11-15:AADBB三、填空题1．2.int(900*rnd)+1003.sin(65/180*3.14159)+2*3.14159*sqr(x+2*exp(y))/(x-y)

2、4.BCD5.66.Byte7.5*5第3章顺序文件一、程序阅读1．A=2B=1C=22．12二、选择题1.D2.A3.C4.A6.A7.A8.D三、略第四章选择结构程序设计一、选择题1．A2.D3.A4.B5.A6.A二、程序阅读1．-92.w=4w=13w=135w=313.s=1s=2s=5s=20三、程序填空题1．(1)max(2)min(3)c>max(4)c

3、_Click()DimyAsIntegery=Val(InputBox("y="))If(yMod4=0AndyMod100<>0)Or(yMod400=0)ThenPrint"是闰年"ElsePrint"不是闰年"EndIfEndSub2、PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,tAsIntegera=Val(InputBox("a="))b=InputBox("b=")c=InputBox("c=")Ifa>bThent=a:a=b:b=tIfa

4、>cThent=a:a=c:c=tIfb>cThent=b:b=c:c=tPrinta;b;cEndSub3.PrivateSubCommand1_Click()Dimx!,y!x=Val(InputBox("x="))Ifx<0Andx<>-3Theny=x*x+x–6elseIf0<=xAndx<10Andx<>2Andx<>3Theny=x*sin(x)+2^xelsey=sqr(x+5)+log(x+4)/log(10)EndIfPrint"x=";x,"y=";yEndSub第5章循环结构程序设计一、判断题1——6：　√×

5、√×××　　二、选择题1——6：BCCCDA三、程序阅读1、886886458864245886422、2123、D4、1（第一次输入7后）7（第2次输入8后）5、2235四、程序填空(1)whilen<0orn>30(2)k=0(3)sum+1/(k*(k+1))(4)len(str1)(5)length-1(6)mid(str1,i,2)(1)sum=0(2)Sign=1(3)ForI=2to19(4)Sign=-sign(5)Whilem<=len(str1)/2-1(6)mid(str1,m+1,1)(7)mid(str1,

6、len(str1)-m,1)(8)B(9)A(10)D(11)A五、程序设计1．PrivateSubCommand2_Click()DimxAsSingle,sAsSingle,tAsLong,iAsIntegers=0:t=1n=Val(InputBox("n="))x=Val(InputBox("x="))Fori=2Tont=t*is=s+(-1)^(i)*x/tNextiPrint"s=";sEndSub2．PrivateSubCommand3_Click()DimiAsIntegerDimaAsInteger,bAsInt

7、eger,cAsIntegeri=100DoWhilei<=999a=iMod10b=i10Mod10c=i100Ifi=a^3+b^3+c^3ThenPrintii=i+1LoopEndSub3.PrivateSubCommand3_Click()DimiAsInteger,eAsSingle,itemAsSinglei=1:e=1:item=1'变量赋初值Doitem=item/ie=e+itemi=i+1LoopWhileabs(item-item/I)>=0.0001Print"e=";eEndSub4．PrivateS

8、ubCommand4_Click()DimxAsInteger,kAsInteger,iAsInteger,casintegeri=2:c=1forj=1to100x=int(rnd*990+10)k=Int(Sqr(x))DoWhi