编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组A(从小到大排列，并显示在标签Label1中)中查找该数。若找到，则从数组A中删除该数(该数后面的数组元素都前移一位)，并在标签Label2中显示删除后的结果(运行效果如图所示)；否则，在标签Label2中显示“该数没有找到”。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim A(1 To 10) As Integer ’用于保存10个按从小到大顺序排列的整数
’Form_Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示Private Sub Form_Load()
’代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer，j As Integer，m As Integer，k As Integer
Dim x As Integer，f As Boolean  ’变量f用于标记是否在数组中找到x
x＝Val(Text1.Text)
i＝1：j＝10
f＝False
Do While(i＜＝j)And (f＝False)
m＝Int((i＋j)/2)
If A(m)＝x Then f＝True
If Then i＝m＋1 Else j＝m－1’(1)
Loop
If f＝True Then
For k＝m To 9
’(2)
Next k
Label2.Caption＝“”
For k＝1 To 9
Label2.Caption＝Label2.Caption＋Str(A(k))＋“”
Next k
Else
Label2.Caption＝“该数没有找到”
End If
End Sub

王敏的E­Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。
她零星记得自己的密码信息：
①密码是六位数字，前面两位为31；
②最后两位数字相同；
③能被16和46整除。
程序界面如图所示，单击“帮助找回密码”按钮(Command1)后，可能的密码显示在列表框List1中。

解决此问题的相应程序如下：
Private Sub Command1_Click()
Dim a As Integer，s As long，b As Integer，i As Integer
For i＝0 To 9 999 ①________
s＝310 000＋i
If s Mod 46＝0 Then
②________
b＝(s Mod 100)\100
If a＝b Then
List1.Addltem Str(s)
End If
End If
Next i
End Sub

(1)解决此问题的算法是________(选填：枚举算法或排序算法)
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：
(2)程序中①画线处应填入________。
(3)程序中②画线处应填入________。

丢失的成绩。某校运动会上，高一男子100米决赛的成绩已出，前8名的成绩记录单由于不小心丢失一张，只剩下7个成绩，分别是(单位：秒)11.5，11.8，12.1，12.5，13.1，13.5，13.9。后来找到了，需将找到的成绩插入相应的位置，使数据序列仍保持有序，并求出该成绩的名次。
为实现这一目标，设计如下VB程序，界面如图所示：先输入7位选手成绩，自动将成绩从小到大排序后输出到列表框List1中。输入丢失成绩后，点击“插入”按钮将该成绩添加到适当位置并输出选手成绩到List2中，并在Label4中显示该成绩的名次。

实现上述功能的VB程序如下，请完成以下问题：
Dim a(1 To 8) As Single
Dim n As Integer，i As Integer，x As Single
Private Sub Form_Load()
Dim j As Integer，temp As Single
’输入7位选手100米成绩，代码略
’将7位选手成绩从小到大排序
For i＝1 To 6
For j＝7 To i＋1 Step－1
If a(j)＜a(j－1) Then
temp＝a(j)
a(j)＝a(j－1)
a(j－1)＝temp
End If
Next j
Next i
’将排序好的选手成绩输出到列表框List1
List1.Clear
For i＝1 To 7
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click() ’确定该遗漏选手的成绩排名第几位？
x＝Val(Text1.Text)
i＝1
Do While x＞a(i)
①__   __
Loop
Label4.Caption＝“该选手位列第”＋Str(i)＋“名！”
’ 将该遗漏选手成绩添加到适当位置，使数组仍保持有序并输出到列表框List2
For j＝8 To i＋1 Step－1
a(j)＝a(j－1)
Next j
②__   __
For i＝1 To 8
List2.AddItem a(i)
Next i
End Sub
(1)Form Load事件处理过程中代码采用的算法是________(选择排序/插入排序/冒泡排序)
(2)①处代码应为：__________________________________________。
②处代码应为：____________________________________________。

某食品连锁店5位顾客贵宾消费卡的积分依次为810，512，613，700，900。采用选择排序算法对其排序，若完成第一遍时的结果为：512，810，613，700，900，则完成第二遍的结果是(  )

A．512，613，700，900，810

B．512，810，613，900，700

C．512，900，613，700，810

D．512，613，810，700，900

用VB设计查询并统计某公司的销售数据。实现如下功能：
①将所有员工的姓名和销售量存储到数组xm和xse中；
②对销售量数组进行求和，并输出该地区平均销售量（保留整数）；
③根据输入“销售排名前几位”筛选出排名前几位销售人员的数据。
程序运行界面如图所示。

（1）下列程序对员工的销售额进行排序的主要算法属于 （选填：解析算法/枚举算法/冒泡排序算法/选择排序算法）
（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。
Dim xse(1 To 3000) As Long '存储销售员工的销售量,最大处理个数为3000
Dim xm(1 To 3000) As String '存储销售员工的姓名
Dim mc(1 To 3000) As Integer  '存储销售员工的名次
Dim num As Integer  '当前员工总数
Private Sub Form_Load()
'将销售量、姓名数据存入xse和xm数组
'计算员工总数num
'代码略
End Sub
Private Sub Command1_Click()
Dim sum As Long
Dim i As Integer, flag As Integer
pm = Val(Text2.Text)
dq = Text1.Text
sum = 0
For i =" 1" To num
sum =" sum" + xse(i)
Next i
For i =" 1" To pm '对员工销售量进行排序
For j =   ①  To  i + 1 Step -1
If xse(j - 1) < xse(j) Then
t =" xse(j" - 1): xse (j - 1) =" xse(j):" xse(j) = t
st =" xm(j" - 1): xm(j - 1) =" xm(j):" xm(j) = st
End If
Next j
Next i
mc(1) = 1
For i =" 2" To pm
If ②  Then
mc(i) =" mc(i" - 1)
Else
mc(i) = i
End If
Next i
List1.Clear
List1.AddItem "排名" + "姓名" + "销售量"
For i =" 1" To pm
List1.AddItem Str(mc(i)) + "  " + xm(i) + "   " + Str(xse(i))
Next i
List1.AddItem dq + "平均销售额约为：" + ③
End Sub

以下只能用解析算法求解的是（ ）

A．已知边长a、b、c，求三角形面积。

B．求用10元、20元和50元三种纸币组合支付360元的不同方案。

C．求2000以内的素数。

D．求所有的水仙花数的总和。

求满足首尾两个数字相等的所有四位正整数之和。
（1）写出能表示“一个四位正整数X的千位数字和个位数字相等”的VB表达式
_______________________________________________________________
（2）将下列程序填写完整，求所有满足上述条件的四位正整数之和
Dim x as integer,p1 as integer,p2 as integer,s as long
S=0
Print “s=”;s
______________________________________________________________

数组a中存放了一批数据如下表，现采用对分查找方式在这批数据中查找“gou”，以下说法正确的是（  ）。

a(1)	a(2)	a(3)	a(4)	a(5)	a(6)	a(7)
hou	ji	long	ma	niu	she	tu

 

A．依次被比较的数据是“ma”，“ji”，“hou”

B．依次被比较的数据是“ma”，“she”，“tu”

C．无法进行对分查找，因为这批数据还没排好序

D．无法进行查找操作，因为这批数据中没有“gou”

关于枚举算法的说法错误的是(   )

A．一般是通过循环中嵌套分支结构来实现的。

B．循环结构用来“枚举”，分支结构用于“检验”。

C．列举所有可能解的范围时，可以扩大但不能缩小，以防漏解。

D．采用枚举法时，也可能找不到符合条件的解。

以下是两位同学设计的描述“输出所有能被3整除的四位数”的流程图。
（1）请将流程图的空缺填写完整 ①_____________ ② ____________ 
（2）请问采用枚举算法描述的是  。（从下列选项中选择）

A．图A

B．图B

C．都是

D．都不是