当前状态下执行相关操作,下列说法正确的是( )
For i=1 to 10
b(i)=0
Next i
For i=1 To 5
For j=1 To 10
If b(i)<a(j)Then
b(i)=a(j)
t=j
End If
Next j
a(t)=0
List1.AddI tem Str(b(i))
Next i
其中数组元素a(1)到a(10)的值依次为“25,42,53,66,77,83,98,14,38,99”,执行程序后,在列表框List1中依次输出的数据是( )
Dim a(1 To 10)As Integer
Dim i As Integer,j As Integer,m As Integer,flag As Boolean
Dim key As Integer,n As Integer,C As Integer,d As Integer
i=1:J=10:m=0:flag=False
key=Val(Text1.Text)
Do While i<=J And Not flag
If key<a(i)Or key>a(j)Then n=-1:Exit Do 未找到退出
If a(i) <>a(j) Then
c=key-a(i):d=a(j)一a(i)
m=i+Int(c*(j-i)/d)
Else
m=i
End If
If key=a(m)Then flag=True:n=m
If key>a(m)Then i=m+1
If key<a(m)Then j=m-1
Loop
If flag=False Then n=-1
其中数组元素a(1)到a(10)分别为“15,25,37,40,63,70,87,90,92,96”,下列说法错误的是( )