编写VB程序，实现如下功能：单击“输出”按钮Command1，在列表框List1中输出[100，999]之间能被9整除且至少有一位数字为9的所有整数。界面如图1所示。

(1)在设计应用程序界面时，应使用图2所示“控件工具箱”中的________(填写相应编号)添加“List1”框。
(2)为实现上述功能，请在划线处填入合适的代码或选项。
Dim s As Integer
Dim a As Integer，b As Integer，c AsInteger
s＝____①____’(填程序代码)
List1.Clear
Do While s＜＝999
a＝s\100
b＝____②____’填字母：从下面A、B、C三个选项中选取一项
c＝s Mod 10
If(a＝9 Or b＝9 Or c＝9) And ____③____ Then ’(填程序代码)
List1.AddItem Str(s)
End If
s＝s＋1
Loop
划线②的选项：(  )
A．s\10 Mod 10  B．s mod 100\10
C．s－a*100－c

用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a()是待排序的数据，数据从a(1)开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便：
比如有一个整数型数组a(1 to 10)需要降序排序，可以直接这样调用：
a()＝bubble_sort(False，a()，10)
该函数VB代码如下：
Function bubble_sort(sx As Boolean，a() As Integer，n As Integer) As Integer()
Dim i，j，t As Integer
For i＝1 To n－1
For j＝____①____ Step－1
If ____②____ Then
If a(j)＜a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
Else
If a(j)＞a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
End If
Next j
Next i
bubble_sort＝a()
End Function
请将代码补充完整：
①___________________________________________。
②___________________________________________。

在一次校园歌手大奖赛中，有20位评委负责评判，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，然后取评委打分的平均值作为选手的最后得分。根据上述规则，信息小组设计了计算选手得分的程序。核心部分的程序如下：
‘d数组中存放了20位评委的打分
Smax=0:smin=10:score=0
For  i=1  To  20

Next i
score =" (" score – smax – smin )/18
Text1.Text= smax
Text2.Text= smin
Text3.Text= score
请分析任务和程序段，完成下列题目。
（1）程序段中出现的Text1、Text2、Text3是 类型的控件。（选填“A”或“B”）

A．列表框

B．文本框

（2）在设计用户界面时，要在启动计算过程的按钮上显示“计算”二字，应该将按钮的“ ”属性值设置为“计算”。
（3）为精确地显示选手的最后得分，变量score的数据类型应定义为   。
（4）程序执行过程中，程序段中虚线框内的代码将被执行 次。
（5）请分析程序，将程序段中虚线框内的空白处补充完整。
If    

某算法的部分流程图如右图所示，执行该流程图，下列描述正确的是

A．sßs + x 执行了4次

B．s ≤10? 执行了4次

C．s的值为15，x的值为6

D．s的值为10，x的值为5

求两数之和的算法是：输入两数a和b的值，计算c=a+b，输出c的值。该算法的基本结构属于( )。

A．顺序结构

B．选择结构

C．循环结构

D．框架结构

写出算法执行结果

写出算法执行结果

（加试题）某算法流程图如下图所示，该流程图对应的程序段为（ ）

A．s = 0 For i = 1 To 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Next i

B．i = 1 For s = 0 To 20 If i Mod 3 = 0 Then s = s + 2 * i End If i = i + 1 Next i

C．i = 1: s = 0 Do While s <= 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Loop

D．i = 1: s = 0

Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Loop

（加试题）有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：

排序前	78	30	64	39	49	4	8	32	18	32
排序后	39	49	83	4	8	18	30	32	64	78

 
实现上述功能的VB程序如下，但加框处代码有误，请改正。
Const n = 10
Dim d(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
'读取一组正整数，存储在数组d中，代码略
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then
If  d(j) > d(i)  Then '(1)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Else   '(2)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
'依次输出排序后的数据，代码略
End Sub

有如下VB程序段：
a＝2:b＝6:c＝3
If a＜b Then
t＝a:a＝b:b＝t
End If
If b＜c Then
c＝c-b
End If
该程序段运行后，整型变量a、b、c的值分别是（）

A．6、2、-3

B．2、3、-3

C．6、2、1

D．2、3、1