学进去

数组b是一个有重复数据的递增数组，现把前面n个元素整体移动到最后形成如“7，8，9，10，1，2，3，4”的排列形式。下列程序实现如下功能：输入一个数，利用对分查找算法在数组b中查找，返回查找结果在Label2输出，若有多个相同数据，则返回最左侧数据的位置。
Dim b(1 To 20) As Integer
Private Sub Command1_Click()
　Dim i As Integer, j As Integer, m As Integer
　i = 1: j = 20
　Key = Val(Text1.Text)
　Do While 　　(1)　　 
　　m = (i + j + 1) \ 2
　　If b(i) < b(m) Then
　　　If　　(2)　　 Then  
　　　　j = m - 1
　　　Else
　　　　i = m + 1
　　ElseIf Key = b(m) Then
　　　Exit Do
　　Else
　　　If Key > b(m) And Key <= b(j) Then
　　　　i = m + 1
　　　Else
　　　　j = m - 1
　　End If
　Loop
　If　　(3)　　 Then  
　　Label2.Caption = "数组中无此数"
　Else
　　Do While m > 0
　　　If Key = b(m) Then m = m - 1 Else Exit Do
　　Loop
　　Label2.Caption = "此数在第" + Str(m + 1) + "个位置"
　End If
End Sub
(1)(2)(3)处可选语句为
①i > j
②i <= j
③Key < b(m) And Key >= b(i)
④Key> b(m) And Key <=b(j)
则(1)(2)(3)处的语句依次是(　　)

A．①③②

B．②④①

C．②③①

D．①④②

如果数组a(下标1到n)满足a(1)≤a(2)≤…≤a(i-1)≤a(i)≥a(i+1)≥…≥a(n)，则称数组a是单峰的，并称a(i)是数组a的“峰顶”。下列程序段用于查找数组a中的“峰顶”，并返回该“峰顶”值。
Dim a(1 To 10) As Integer
Function Search(L As Integer, R As Integer) As Integer
　M = (L + R) \ 2
　If a(M) < a(M - 1) And a(M) > a(M + 1) Then
　　　　 (1)　　 
　ElseIf a(M) > a(M - 1) And a(M) > a(M + 1) Then
　　　　 (2)　　 
　ElseIf a(M) > a(M - 1) And a(M) < a(M + 1) Then
　　　　(3)　　 
　End If
End Function
Private Sub Command1_Click()
　Label1.Caption = "“峰顶”值是:" + Str(Search(1, 10))
End Sub
上述程序中划线处可选语句为：
①Search = Search(M + 1 , R)
②Search = Search(L , M - 1)
③Search = a(M)
则(1)(2)(3)处的语句依次是(　　)

A．①②③

B．①③②

C．③①②

D．②③①

数组d(1)~d(100)中存储某班级50位同学的语文和数学成绩，奇数位存储语文成绩，偶数位存储对应该同学的数学成绩。该数组已经按照两科总成绩升序排序。依据对分查找思想：设计一个在数组a中查找总成绩Key的程序，如果查找成功输出语文成绩在数组中的位置。实现该功能的VB程序段如下：
Key=Val(Text1. Text)
i=1:j=100
Do While i<=j

m=(i+j)\2

If    ①   Then m= m-1

Sum=  ②  

If Key= Sum Then Exit Do 'Exit Do表示退出循环

If    ③    Then

i=m+2

Else

j=m-2

End If

Loop
If i> i Then Text2. Text="没有找到!" Else Text2. Text=Str(m)
实现该功能，则上述程序段划线处的表达式分别为（   ）.

A．①m Mod 2=1 ②d(m)+d(m-1) ③Key<Sum

B．①m Mod 2=1 ②d(m)+d(m+1) ③Key>Sum

C．①m Mod 2=0 ②d(m)+d(m-1) ③Key>Sum

D．①m Mod 2=0 ②d(m)+d(m+1) ③Key>Sum

某对分查找算法的VB程序如下：
i = 1:j = 8:s = ""
key = Text1. Text
Do While i <= j
m = (i +j)\2
If key = a(m) Then
s = s+ "M"
Exit Do
ElseIf key <a(m) Then
j = m -1:s = s+ "L"
Else
i = m+1:s = s + "R"
End If
Loop
Text1. Text = s
数组元素a(1)到a(8)的值依次为“4，22，27，32，35，44，56，59”，该程序段执行后，文本框Text1中显示的内容不可能是（ ）

A．M

B．LR

C．RM

D．LM

有如下VB程序段：
For i = 1 To 3
For j = 1 To 5-i
If a(j) > a(j+1) Then
t = a(j):a(j) = a(j+1):a(j+1) = t
End If
Next j
Text1. Text = Text1. Text + Str(a(i))
Next i
数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框 Text1显示的内容是（ ）

A．3  4  6

B．6  8  9

C．3  6  4

D．3  6  6

有VB程序段如下：
Randomize
For i = 1 To 6
a(i) = Int(Rnd * 20) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) - 1
Else
a(i) = a(i) + 2

End If 

Next i
执行该程序段后，a（1）~ a（6）各元素可能的是（   ）

A．13，2，7，12，5，18	B．22，7，0，15，4，19
C．20，9，18，23，4，7	D．6，0，4，21，18，17

阅读下面程序：

Dim i As Integer, c As String, s As String , t As String

s=”GaoEr1YueXKChongA！”

For i = 1 To Len(s)

   c=Mid(s, i, 1)

   If c >= “A” And c<=”Z” Then t=t+c

Next i
Text1.Text = t
程序运行结束后是在文本框Text1中输出的结果是（ ）

A．GEYXKCA

B．aoeuehong

C．ACKXYEG

D．gnoheueoa

下列Visual Basic表达式的值等于56的是

A．Mid("1234567",5,3)

B．Len("55") + 1

C．Sqr(56)

D．Abs(-55) + 1

有如下程序段：
Const n = 10
Dim a(1 To 10) As Integer
m = Int(Rnd * n + 1)
For i = 1 To 10
a(i) = 0
Next i
i = 0: j = 0: c = 1: ans = ""
Do While c <= 3
i = i Mod n + 1
If a(i) = 0 Then j = j + 1
If j = m Then a(i) = 1: c = c + 1

j = 0: ans = ans + Str(i)

End If

Loop
Text1.Text = ans
执行上述程序段后，文本框 Text1 中不可能的内容是（  ）

A．2 4 6

B．7 4 2

C．5 10 6

D．6 2 8

关于Access数据表的操作，下列说法正确的是

A．重命名数据表，数据表名不能与表中的字段名相同

B．删除字段，数据表中该字段的值随之被删除

C．删除记录，剩余记录中数据类型为自动编号的字段值会自动更新

D．Access数据表不能导出到Excel电子表格