编写“数对查询”程序,实现如下功能:生成11个随机整数存入数组,并在标签Label1中显示。在文本框Text1中输入一个正整数,单击“搜索”按钮Command1,在数组中查找和为该正整数的两个数,并在列表框List1中输出查询结果。程序运行界面如图所示:
实现上述功能的VB程序如下:
Const n=11
Dimd(1 To n)As Iteger
Private Sub Form_ Load( )
'生成n个随机整数存入数组d,并在Label1中显示,代码略
End Sub
Private Sub Command1_Click( )
Dim sum As Integer, L As Integer, R As Integer, c As Integer
①
c=0
For L=1 To n-1
R=n
Do While L< R
If ② Then
List1.Addtcem Str(d(L))& " " & Str(d(R))
c=c+1
Exit Do 'Exit Do表示退出循环
Else
End If
Loop
Next L
List.Addtem "找到和为" "& Str(sum)& "的数对共" & Str(c)&"组"
End Sub
请回答下列问题: