当x=3，y=8时，下列逻辑表达式的值为F的是____。

A．(x<6) AND (y>="10)" AND (x<=5)

B．(x<6) AND (y>="10)" OR (x<=5)

C．(x<6) OR (y>="10)" AND (x<=5)

D．(x<5) OR (y>="10)" OR (x<=5)

某电子设备的电路板上有一个6位的“跳板开关”，此开关每一位都只有“打开”和“闭合”两种状态。这个“跳板开关”最多能表示的状态数为（  ）

A．120

B．64

C．60

D．6

解决上问题所用的算法是:（    ）

A．枚举法

B．解析法

C．顺序查找

D．选择法

（一）顺序查找数据：我们假定被查找的数据存储在有n个元素的数组变量d中，要寻找的一个特定的数据(这个数据称为查找键)已经存储在变量key中。
下面是顺序查找算法的输入输出说明。
输入：查找键(设在变量key中)。 被查找的数据(设在数组变量d中)。
输出：若找到，输出值为key的数据所在的数组元素的下标，记为i；
若未找到，输出结果为提示字符串："找不到"。
当在n=8个元素的数组里顺序查找数据的示意图如下：

找到情况   未找到情况
总结顺序查找数据结果判断条件：
(1)、 当找到时，肯定i<="8," n个数据时，肯定i<=n，i即为找到的数组元素下标，d(i)=key；
(2)、 当"找不到"时，i=9>8了；n个数据时，当i=n+1时，表示"找不到"。 
顺序查找的主程序段如下：
Private Sub 顺序查找_Click()
n个数据放入d(1)到d(n)中
Key =" Val(Text1.Text):" i =___1___‘变量Key从文本框Text1取的数要查找的数；
Do While    ① 
i =" i" + 1
Loop
If i <=" n" Then
Text2.Text = "在d(" + Str(i) + ")中"  ‘例如在文本框Text2显示：“在d(6)中”
Else
Text2.Text = "找不到"
End If
End Sub
上程序Do While的条件 ① 是（ ）

A．Key <> d（i）

B．i <= n

C．Key <> d(i) And i <= n

D．Key <> d(i) or i <= n

（加试题）小明想用VB编程制作一个名次计算器，首先将同学的成绩录入到计算机中，同时存放在数组a中，显示在左边列表框中。点击“排序”按钮后，程序会将成绩从高到低依次排序显示在右边的列表框中。运行界面如图所示，请在两个划线处填入代码。

Dim a(1 To 100) As Single
Dim shu As Integer
Private Sub Command1_Click()
Dim i, j, k As Integer
Dim t As Single
For i =" 1" To shu - 1
k = i
For j =" i" + 1 To shu
If___________Then
t =" a(j):" a(j) =" a(k):" a(k) = t
End If
Next j
Next i
For i =" 1" To shu
List2.AddItem "第" & Str(i) & "名：" & Str(a(i))
Next i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim cj As Single
If KeyAscii =" 13" Then
cj = Val(Text1.Text)
If cj > 0 Then
________
List1.AddItem Str(shu) & "：" & Str(cj)
a(shu) = cj
End If
Text1.Text = ""
End If
End Sub

用对分查找法从数列3、6、7、10、12、16、25、30、75中找到数据10的查找次数是：

A．2

B．3

C．4

D．7

用物理天平测量物体的质量。待测得物体的质量为x克（x为小于1000的整数），下列程序为计算天平砝码盘中所需的砝码。已知天平可用砝码为：500克1个，200克1个，100克2个，50克1个，20克1个，10克2个，5克1个，2克2个，1克1个。程序界面如下图。

Private Sub Command1_Click()
Dim a(1 To 12) As Integer, i As Integer, x As Integer
a(1) =" 500:" a(2) =" 200:" a(3) =" 100:" a(4) =" 100:" a(5) =" 50:" a(6) = 20
a(7) =" 10:" a(8) =" 10:" a(9) =" 5:" a(10) =" 2:" a(11) =" 2:" a(12) = 1
i = 1
x = Val(Text1.Text)
List1.Clear
Do While x<>0
If x >=" a(i)" Then
List1.AddItem Str(a(i))
①
End If
i =" i" + 1
Loop
End Sub
（1）如要将程序窗口标题“Form1”修改为“天平测质量”，则应该修改窗体的 属性（选填： Name /  Caption  /  Text  /  Font）。
（2）为实现上述功能，划线①处应填入的代码为     。
（3）程序正确运行后，在文本框Text1中输入701，并单击“计算”按钮。程序运行结果应为下图中的  （单选，填：A/B/C）。

整数序列“2，3，6，11，19，23，41，47，51”用对分查找法和顺序查找法在查找23时两种方法都能访问到的是

A．3

B．6

C．19

D．47

现要求编写VB程序，编辑界面如1图所示，运行界面如2图所示，程序功能如下：在文本框Text1中输入n的值，单击“求和”按钮Command1，完成n以内奇数和的计算，并在文本框Text2中显示计算结果。
  
1图 2图
(1)观察编辑界面和运行界面，发现图1缺少控件，需要添加的对象为________(填写对象名称).
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim n As Integer, s As Integer, i As Integer
①
For i ＝ 1 To n Step 2
②
Next i
Text2.Text＝ Str(s)
End Sub
(3)该程序属于 算法（选填：枚举/解析）

下列问题是适合使用枚举算法的是（    ）

A．计算两个电阻的关联值

B．找出100以内所有6的倍数

C．校园歌曲大赛的成绩排名

D．根据时长计算停车场收费