某 VB 程序代码如下：
n=Val(Text1.Text)
sum=n
k=4
Do While n\k>0
sum=sum+n\k 
n=n\k+n mod k
Loop
Text2.Text=Str(sum)
在文本框 Text1中输入10，执行该程序段后，文本框 Text2中显示的值是（  ）

A．12

B．13

C．14

D．16

阅读程序，写出运行结果

Dim i As Integer

Dim x As Integer

Dim y As Integer

y=30

For i=1  To  3

x=Val(InputBox(“x=”))

If  y< x   Then

y=x

End If

Next  i

Print  y

程序运行后，依次输入：36  87  51

运行后输出结果是_________________。

下列VB程序段的运行结果是：
Dim a(1 To 3) As Integer
a(1)=1
For i="2" To 3
a(i)=2*a(i-1)+1
Next
Print a(i-1)

A．0

B．3

C．7

D．15

某学校要进行年级优秀生表彰，需要对 n 人的优秀生单独排位置，每行 m 人。排队方阵规则：第 1 行从左向右坐，第 2 行从右向左坐，第 3 行从左向右坐，第 4 行从右向左坐……不断重复。最后一行如果人数不满 m 人，一律从左往右坐。VB 程序功能如下： Text1 输入 m 的值，确定每行坐的人数，单击按钮后，在 List2 列表框中显每位同学的位置，在 List3 列表框中显示每位同学的 4 位数位置编号（行号+列号），如下图所示。实现上述功能的 VB 代码如下：

依据上述描述设计如下 VB 程序：
Dim xh(1 To 100) As Integer , xm(1 To 100) As String, cj(1 To 100) As Integer Dim n As Integer, m As Integer
Private Sub Form_Load()

'本过程从数据库依次读取 n 位同学的序号、姓名及成绩，然后按成绩降序排序，将学生序号、姓名成绩存储在数组 xh 、xm、cj 中，结果显示在List1 中，

End Sub

请回答下列问题：
(1)   在设计程序界面时，要清空文本框中的显示内容，应修改文本框的_____属性。
(2)   程序中加框处代码有误，请改正。 __________________________ 
(3)   请在①②③划线处填入适当的代码。
① __________________________________________
② _________________________________________
③ _________________________________________

有如下VB程序：
Private Sub Command1_Click()
Dim a(5) As Integer
Randomize
For i = 1 To 5
a(i) = 2 * Int(Rnd * 3) + 1
Next i
For i = 1 To 5
r = 2 * Int(Rnd * 3) + 1
If a(r) Mod 2 = 1 Then a(r) = a(r) + 1
Next i
End Sub
该程序段运行后，a(1)~a(5)各元素的值不可能的是（   ）

A．2，5，6，1，4	B．4，1，2，3，4
C．5， 6，3，2，6	D．6，5，2，1，2