编写程序题
该程序要实现的功能是：求能被97除余3，且中间两位数字(即千位、百位)相同的所有六位数之和。

以下算法的功能是：键盘输入6个数，输出其中负数的和。请使用给出的框图填入左边的算法流程图中，使之能实现上述功能。以下选项正确的是

A．⑷ ⑿ ⑹ ⑴ ⑺ ⑼

B．⑶ ⑿ ⑹ ⑴ ⑻ ⑼

C．⑶ ⑾ ⑸ ⑴ ⑻ ⑼

D．⑷ ⑿ ⑸ ⑴ ⑻ ⑼

以下流程图描述的算法执行结果是

A．3

B．6

C．9

D．2

将6名选手的歌唱比赛成绩存放在数组a中，如下表所示：

若按升序排列，采用冒泡排序算法自右向左进行比较和交换，那么完成前二轮的数据处理，比较的总次数为

A．10

B．4

C．9

D．5

将6名选手的歌唱比赛成绩存放在数组a中，如下表所示：

若按升序排列，采用冒泡排序算法自右向左进行比较和交换，第二轮排序之后a(4)中的值为________

阅读下面两段Visual  Basic程序：

为使两段程序运行后有相同的结果，左框内划线处的内容为

A．t=20

B．t=21

C．t=1

D．t=22

（加试题）小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1 中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2 中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, bottom As Integer
'获取排序前数据依次存储在数组a 中，并在文本框Text1 中显示。代码略
bottom = n : i = 1
Do While i <= bottom - 1

For j = bottom To i + 1 Step -1

If a(j) < a(i) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理
a(bottom)=a(j)   
bottom = bottom - 1
End If

Next j

i = i + 1

Loop
Text2.Text = " "
For i = 1 To bottom

Text2.Text = Text2.Text + Str(a(i))

Next i
End Sub

Visual Basic是一种面向对象的程序设计语言，对象的三要素是(   )

A．属性、事件、方法

B．控件、属性、事件

C．窗体、控件、过程

D．窗体、控件、模块

为使下面左右框内的VB程序段实现相同的功能，则左框内划线处填写的代码应该是（   ）
 

A．t=2

B．t=6

C．t=t+1

D．t=t+2

以下程序段是一个完整的Visual Basic的Do语句，则划线处的语句应该是（   ）。
Do While a<=5
s=s+a : a=a+1
________________

A．End If

B．End Sub

C．Next a

D．Loop