數(shù)組a中有20個正整數(shù)，以降序排序。在文本框Text1中輸入一個正整數(shù)data,尋找數(shù)組中是否存在兩個元素之差等于給定的數(shù)據(jù)。若是則輸出這兩個數(shù)（有多對數(shù)滿足條件，只輸出最先找到的數(shù)對）。否則輸出“notfind”。實現(xiàn)此問題的算法程序如下，加框處代碼有誤，請改正。
①

left=i+1

left=i+1

②

left＜=rightAndf

left＜=rightAndf

③

f=false

f=false

PrivateSubCommand1_Click （　?。?br />Constn=20
Dima（20）AsInteger
DimdataAsInteger,leftAsInteger,rightAsInteger,mAsInteger
DimfAsBoolean
f=True
data=Val（Text1．Text）
'隨機產(chǎn)生符合題意的數(shù)組a中各元素并按降序排序
Fori=1Ton-1
①
right=n
DoWhile②
m=（left+right）\2
Ifa（i）-a（m）＞dataThen
right=m-1
ElseIfa（i）-a（m）＜dataThen
left=m+1
Else
Text2．Text=a（i）&a（m）
③
EndIf
Loop
Nexti
Iff=TrueThenText2．Text=″notfind″
EndSub