已知一降序数组c中有11个元素,在文本框Text1中输入一个正整数key,单击按钮“Command1”,则在数组c中搜索有没有一对数的和等于key,若有,在标签Label2中输出最先找到的两个数,若无则输出“没有找到数对”。程序运行界面如图所示。
(1)
程序运行时要使文本框Text1中内容为空,则在设计程序界面时,将Text1的属性值设为空。
(2)
①在划线处补充完整程序代码;②改正加框处语句的错误。
Const
n = 11
Dim
key As Integer, L As Integer, R As Integer, m As Integer
key =
Val(Text1. Text)
For i
= n To 2 Step-1
L = 1
R = ①
Do While L < = R
m = (L+R) \ 2
If c(i) + c(m) = key Then
Label2 Caption = c(1) & “ “& c(m)
Exit For
ElseIf Then ‘② L = m+1 Else R = m-1 End If Loop Next 1 If L > R Then Label2. Caption = “没有找到数对” ① ②
(3)
根据程序,若文本框Text1中输入的内容为26,则标签label2中输出的内容是。
答案: 【1】Text
【1】i-1【2】a(i)+a(m)>key
【1】3 23