河南省计算机等级考试—vb题库3

>Int(Sqr(a))\rEndSub\r4.3TU?\rÇÈÉÊ­0?f(x)=x+lnx-3.18=0³´Ë‰r,\rÌÍÎ=o2, 0lm4Z[H(ÏÐ@InxOÑeoÒÄÅÓ\rH)(Âh:ÇÈÉÊ­Ôox=x-f(x)/f'(x))\r 0@P`p?\r??p(ÌÍÎ=)(\r)\rPrivateSubCommandl_Click()\rDimxAsSingle\rx=2\rDo\rxO=x\rf=xO+Log(xO)-3.18\rd=1+1/xO\rx=xO-f/dEvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rLoopUntilAbs(x-xO)<0.0001\rPrint"x=";Int(x*10000+0.5)/10000\rEndSub\r4.4TU??,\rÕ²­0Ÿ®ÖÊ×?Ø&)=2Ú+Û$Ú-2.6=0P¯v(0,\r5)°³´Ë‰r, 0lm4Z[H\r 0@P`p?\r??\rPrivateSubCommandl_Click()\rXI=0:X2=5\rDo\rfl=fny(Xl):f2=fny(X2)\rxO=(XI+X2)/2\rfO=fny(xO)\rIfSgn(fO)<>Sgn(fl)Then\rX2=xO\rElse\rXI=xO\rEndIf\rLoopWhileAbs(fO)>0.0001Andn<100\rPrint"x=";xO\rEndSub\rPrivateFunctionfny(x)\rfny(x)=2*x+Cos(x)-2.6EvaluationWarning:ThedocumentwascreatedwithSpire.PDFfor.NET.\rEndFunction