题型：综合题 题类：常考题 难易度：困难
浙江省杭州市第二中学2020届高三上学期信息技术第一次月考试卷
现有三次方程y=5x^3-55x^2+170x-130，其函数图象如图所示：
观察该函数图象发现函数有一实根在区域(1.2)之间，因此我们取两者的中点m=(1+2)/2代入方程进行检测发现f(1.5)=18.125。因为f(1.5)>0，因此区间应该往左移动，得下一个区间(1,1.5)然后继续进行检测。如果区间差值≤误差率，则认为该中点是方程的根。根据上述方法描述设计一个VB求解程序的根，要求单击求解按钮Command1，在文本框Text1中显示方程的根，部分程序如下。
PrivateSubCommand1_Click()
DimiAsDouble,jAsDouble,mAsDoubleDimrAsDouble,yAsDouble
i=1:j=2:y=1:r=j-iDoWhiley<>0Andr>0.00001
m=(i+j)/2
y=
Ify>0Then
j=m
ElseIfy<0Then
i=m
EndIf
Loop
Text1.Text=m
EndSub
试题篮
