下列说法正确的是( )
Const n = 10
Private Sub Command1_Click()
num = 0: k = 0
Do While k < n
k = k + 1
If ① Then
num = num + 1
b(num) = a(k)
Else
②
End If
Loop
For j =③
a(j) = b(j - n + num)
Next j
End Sub
下列选项中,①②③中的代码顺序正确的是( )
L=1:R=n
Do While L<=R
m=(L+R)\2
If ① Then
R=m-1
Else
L=m+1
End If
Loop
Text1.Text = ②
为实现上述功能,则程序中①、②处填写的代码是( )
B .
C .
D .
flag=True
Key=Val(Text1.Text)
i=1
Do While i<=8 And flag
If a(i)=Key Then
flag=False
Else
i=i+1
End If
Loop
If Not flag Then
Label1.Caption=“Find!”
Else
Label1.Caption=“Fail!”
End If
数组元素a(1)到a(8)的数据依次为“11,2,0,6,8,3,5,8”,程序运行时,在文本框Text1中输入8,则在标签Label1中显示的内容是( )

程序运行时,输入:685,运行输出结果是:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer 's为A类数的个数
Dim t As Integer 't为二进制数中“1”的个数
Dim k As Integer 'k为二进制数中“0”的个数
s=0
For i=1 To 1000
n=i: t=0: k=0
Do While n>0
If Then t=t+1 Else k=k+1
Loop
If t>k Then
List1.Additem Str(i)
s=s+1
End If
Next i
Text1.Text=Str(s)
End Sub