(加试题)有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5 Step 3
s = s + fun(i)
Next i
Text1.Text = Str(s)
End Sub
Function fun(n As Integer) As Integer
If n = 1 Then
fun = 2
Else
fun = fun(n - 1) + n
End If
End Function
执行完该程序后，S的值为( )

A．7

B．11

C．13

D．25

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 10 To 2 Step -2
sum = sum + i
Next i
Text1.Text = Str(sum)
End Sub   
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（   ）

A．Sum = 0	B．For i = 10 To 2 Step -2
C．sum = sum + i	D．Text1.Text = Str(sum)

（加试题）有如下VB程序段：
i = 1
Do While i<= 3

min = i

j = i + 1

Do While j <= 6

If a(j) < a(min) Then min = j

j = j + 1

Loop

If i<>min Then tmp = a(i): a(i) = a(min): a(min) = tmp

i = i + 1

Loop
数组元素 a(1)到 a(6)的值依次为7、8、3、9、6、2，则该程序段运行后，数组元素a(1)到 a(6)的值依次是

A．9,8,7,3,6,2

B．2,3,6,7,8,9

C．2,3,6,9,8,7

D．9,8,7,6,3,2

某算法部分流程图如图所示。执行这部分流程，依次输入12、-5、29、18、7，则输出值是（   ）

A．12

B．-5

C．29

D．7

某算法的部分流程图如图所示。执行这部分流程后，变量x，y的值分别是（  ）

A．7，9

B．13，12

C．69，10

D．11，11