(1)
实现上述功能的VB程序如下,请在画线处填入合适代码。
Dim a(1 To 50)As Integer
Const n As Integer=50
Private sub form_load()
‘生成50个互异的、被升序排序的随机正整数,依次存人数组a中
‘代码略
End Sub
Private Sub
Command1=_Click()
Dim M As Integer,L As Integer,R As Integer
Dim key As Integer,flag As Boolean
flag=false:key=Val(Text1.Text)
For i=1 To n-1
L=i+1:R=n
Do While①
M=②
If
a(i)+a(M)
L=M+1
Else lf
a(i)+a(M):>key Then
R=M-1
Else
List2.AddItem Str(a(i))+””+③
flag=True
End If
Loop
If Not flag Then
List2.AddItem”没有符合条件的数对!”
End Sub
①________ ②________ ③________