下面程序执行的结果是（  ）。
private sub form_click()
A=”123”：B=”456”
C=val(a)+val(b)
print C\100
end sub

A．123

B．3

C．5

D．579

Visual Basic是一种（  ）

A．高级程序设计语言

B．算法语言

C．低级程序设计语言

D．机器语言

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如下图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While '（1）  

i <=" n" - 1 Or flag = True

flag = False
For j =" n" To i + 1 Step -1
If a(j) < a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
flag = True
End If
Next j
i =" i" + 1
Loop

Str(i)

Label3.Caption = "排序过程的加工遍数为" +    '（2）

For i =" 1" To n
List2.AddItem Str(a(i))
Next i
End Sub

编写VB程序，实现在1到40中随机抽取n个不重复的数字。在文本框Text1中输入需要抽取的个数n，单击“抽取”按钮 Command1，在列表List1中输出结果，程序设计界面如图a所示。请回答下列问题：

图 a

（1）在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____ (填写相应编号)添加列表框。

图 b

（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim a(1 To 40) As Integer Dim i As Integer List1.Clear
n = Val(Text1.Text) Randomize
For i = 1 To n
    ①_____   ’随机生成1，40之间的正整数

For j = 1 To i - 1

If a(j) = a(i) Then

Exit For
End If
Next j
Next i
For i = 1 To n
List1.AddItem Str(a(i)) Next i
End Sub
（3）加框处代码有误，请改正_____。
（4）运行程序，在文本框 Text1 中输入 41，单击“抽取”按钮，程序错误提示为_____。（填写字母：

A．溢出/

B．下标越界/

C．缺少对象）

小明设计了一个VB程序（界面如图所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：
请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim n As Integer, t As Integer
Dim m(1 To 100) As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
n = Val(Text3.Text)
If  a > b Then t =" a:" a =" b:" b = t
Randomize
①
For i =" 2" To n
m(i) =" Int(Rnd" * (b - a + 1)) + a
If m(i) > m(i - 1) Then
②
For j =" i" - 1 To 1 Step -1
If temp < m(j) Then Exit For
m(j + 1) = m(j)
Next j
③
End If
Next i
For i =" 1" To n
List1.AddItem Str(m(i))
Next i
End Sub
程序①处的代码是
程序②处的代码是
程序③处的代码是