Key=Val(Text1.Text) i=1:j=10 flag=False
Do While i<=j And Not flag Lmid= ⑴
Rmid=j-(j-i)\3
If Key=a(Lmid) Or Key=a(Rmid) Then Flag=True
Elseif ⑵ Then
i=Lmid+1
j=Rmid-1
Elseif Key<a(Lmid) Then
j=Lmid-1
Else
i=Rmid+1
End if
Loop
If Flag And Key=a(Lmid) Then
List1.AddItem Str(Lmid)
ElseIf Flag Then
List1.AddItem Str(Rmid)
Else
List1.AddItem ⑶ EndIf
上述程序中方框处可选语句为:
①(j-i)\3+i ②(i+j)\3+1 ③Key<a(Lmid) And Key>a(Rmid) ④Key>a(Lmid) And Key<a(Rmid)
⑤str(i)+str(j) ⑥Str(j)+Str(i)
则(1)(2)(3)处的语句依次为( )
Dim a(1 To 5)As Integer
Dim d(1 To 5)As Integer
a(1)=12:a(2)=21:a(3)=19:a(4)=11:a(5)=20
n=5:Max=0
For i=1 To n
d(i)=0
For j=1 To i-1
If a(j)<a(i)Then d(i)=d(i)+1
Next j
If d(i)>Max Then Max=d(i)
Next i
执行完以上程序段后,Max的值为( )
图a
图b
For i = 1 To ①
k = i
For j = i + 1 To ②
If a(j) < a(k) Then k = j
Next j
If k <> i Then
t = a(k)
a(k) = a(i)
a(i) = t
End If
s = s + Str(a(i))
If ③ Then
List1.AddItem s: s = ""
End If
Next i
划线处的代码应为( )
下列说法中不正确的是()