Dim a(1 To 100)As Integer
Const n=100
Private Sub Command1_Click( )
Dim key As Integer, left As Integer, right As Integer, mid As Integer
Dim flag As Boolean
flag=False:key=Val(Text1. Text)
For i=1 To n-1
‘①
right=n
Do While ‘②
mid=(left +right)\2
If a(i)+a(mid)<key Then
left=mid+1
ElseIf a(i)+a(mid)>key Then
right=mid-1
Else
List1. AddItem Str(a(i))&" "&. Str(a(mid))
flag=True
End If
Loop
Next i
If Not flag Then List1.Addltem"没有符合条件的数对"
End Sub
以上程序段运行时,为了实现上述功能,加框处代码应改正为:①;②。