①12306网站上的车次表②影视网站上的视频③固态硬盘④报纸上的文字
Dim d(1To63)As Integer
For i=1 To 63
d(i)=i
Next i
s=0:i=1:j=63
Key=Int(Rnd * 63)+1
Do While i<=j
m=(i+j)\2
If Key=d(m)Then Exit Do
If Key<d(m)Then
j=m-1:s=2 * s
Else
i=m+1:s=2 * s+1
End If
Loop
Label1.Caption=Str(s)
若运行该程序段后,标签Label1中显示的结果是28,则查找的Key值是( )


Private Sub Command1_ Click()
Dim n As Integer, m As Integer
Dim s As String
Dim bj As Boolean '用于标记该质因子是否已存在
n=Va1(Text1. Text)
s=" "
m= 2
bj= True
Do While n> 1
If n Mod m=0 Then
n=
If bj= True Then
s=s+Str( m)
bj= False
End If
Else
m=m+1
End If
Loop
Text2. Text= s
End Sub

下列改正方法正确的是( )