题型：综合题 题类：模拟题 难易度：普通
浙江省名校信息技术仿真训练卷（三）
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Function f(x As Double)As Double
Dim Y As Double
y=x^3-4*x^2+x+5： 
‘（1）
End Function
Private Sub Command1_Click()
Dim a As Double，b As Double，m As Double，x As Double
a=Val(Text1．Text)：b=Val(Text2．Text)
If f(a)*f(b)<0 And a<b Then
Do While a<=b
m=(a+b)／2
If Abs(f(m))<0.00001 Then Exit Do
If 
<0 Then ‘（2）
b=m
Else
a=m
EndIf
Loop
x=Format(m，“0．00000”) ‘Format函数用于定义输出的小数位数
List1．AddItem"["&Text1．Text&"，"&Text2．Text&"]" & "解为："＆x
Else
List1．AddItem"["&a&"，"&b＆"]" & "重新输入区间"
EndIf
End Sub
def dele（a, head）:
pre=head; p=a[head][1]
while p!=-1:
q=head
flag=False
|
if a[q][0]==a[p][0]:
|
p=a[p][1]
flag=True
break
q=a[q][1]
if not flag:
pre=p;
p=a[p][1]
a=[[0, 3], [1, 2], [1, 4], [0, 1], [0, 5], [2, -1]]
dele（a, 0）
①q!=-1 ②q!=p ③a[pre][1]=a[p][1] ④a[pre][1]=a[q][1]
方框中填入的正确代码依次为（ ）
试题篮
