=0.00000001WriteLine("圆周率的近似值为:{0}",Sqrt(6*s))EndS" /> =0.00000001WriteLine("圆周率的近似值为:{0}",Sqrt(6*s))EndS" />

全文预览

华工最新版vb习题答案

上传者:苏堤漫步 |  格式:doc  |  页数:40 |  大小:344KB

文档介绍
为:{0}",s)EndSubEndModule7.解答ImportsSystem.ConsoleImportsSystem.MathModuleModule1SubMain()Dimi&,s#,term#i=1s=0Doterm=1/(i*i)s=s+termi=i+1LoopWhileterm>=0.00000001WriteLine("圆周率的近似值为:{0}",Sqrt(6*s))EndSubEndModule8.解答ImportsSystem.ConsoleImportsSystem.MathModuleModule1SubMain()Dimx0!,x1!x1=06Dox0=x1x1=x0-(x0^5-3*x0^2+2*x0+1)/(5*x0^4-6*x0+2)LoopUntilAbs(x1-x0)<0.00001WriteLine("方程的根为:{0}",x1)EndSubEndModule9.解答ImportsSystem.ConsoleModuleModule1SubMain()Dimi%,s!,sign%sign=1:s=0Fori=1To100s=s+sign*1/isign=-signNextiWriteLine("s的值为:{0}",s)EndSubEndModule10.解答法1:ImportsSystem.ConsoleModuleModule1SubMain()Dimi%,a%,b%,c%WriteLine("100--999之间的水仙花数为:")Fori=100To999a=i\100b=(i-a*100)\10第4章复合型数据类型4.1填空题1.答案:10,0,92.答案:Dima(5,6)AsInteger3.答案:四舍五入4.答案:Read和ReadLine,Write和WriteLine5.答案:[Preserve]6.答案:数据成员

收藏

分享

举报
下载此文档