（加试题）某VB程序段如下:
For m=1 To 9
　　s=m
　　For n=m+1 To 10
　　　　If　　　　Then s=n 
　　Next n
　　If s<>m Then pp=d(s):d(s)=d(m):d(m)=pp
Next m
现对数组元素d(1)到d(10)进行从大到小排序,则程序中划线处的语句是( 　　)

A．d(n)>d(s)

B．d(n)>d(m)

C．d(n)<d(m)

D．d(n)<d(s)

有如下VB程序段：

执行该程序段后，数组a(1)到a(6)的数据依次是（ ）

A．Delphi  Java  Pascal  Python  VB  Swift

B．VB  Swift  Python  Pascal  Java  Delphi

C．VB  Swift  Python  Java  Pascal  Delphi

D．Java  Pascal  Delphi  Python  Swift  VB

（加试题）某程序代码如下：
Private Sub Command1_Click()
Dim c  As Integer
Dim a(1 To 20) As String
s = "123 how are you": c = 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
For j = Len(s) To i + 1 Step -1
If a(j) < a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
For i = 1 To Len(s) - 1
If a(i) < a(i + 1) Then c = c + 1
Next i
Text2.Text = Str(c)
End Sub程序运行结束后,变量c的值是（ ）

A．13

B．11

C．10

D．15

有如下VB 程序段：
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3

For j=i＋1 To 6

If d(j)<d(j-1) Then
t=d(j):d(j)=d(j-1):d(j-1)=t
End If

Next j

Textl.Text=Str(d(i))+Text1.Text
Next i
End Sub .
执行该程序段后，文本框 Textl输出的内容是（   ）

A．47 63 85

B．35 5 18

C．85 63 47

D．18 5 35

（加试题）某活动要从 100 名参赛者中选出成绩最高的前十名给予一定的奖励。活动组织者编写了如下程序，功能是根据成绩进行排序，程序中数组 a 保存所有参赛者的组次，数组 b 保存对应的成绩，如第 1 位参赛者的组次 1 保存在 a(1)中，成绩保存在 b(1)中。程序界面如图所示，左边列表框 List1 中显示原始数据（序号和相应的成绩），单击“排序”按钮（Command1），排序后的结果按成绩从高到低显示前 10 名选手的序号和成绩在列表框 List2 中，若最后一名成绩有相同的也一起输出。界面如下图所示：

实现上述功能的 VB 程序如下，但划线处代码有错，请改正。
Const n=100
Dim a(1 To n) As Integer
Dim b(1 To n) As Integer
Private Sub Form_Load()    '窗体被加载时
‘获取原始数据，将参赛者序号和最后得分分别存在数组 a 和数组 b 内，并在列表框 List1 中显示。代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, temp As Integer
List2.Clear
For i = 1 To 10 k = i
For j = 10 To i+1   ‘①________
If b(k) < b(j) Then k = j
End If
Next j
If k <> i Then
temp = b(i): b(i) = b(k): b(k) = temp temp = a(i): a(i) = a(k): a(k) = temp
End If
List2.AddItem Str(a(i)) + "    " + Str(b(i)) Next i
m = 10
For i = 11 To n
If   b(i) = b(i-1)    then    ‘②________
m = m + 1
List2.AddItem Str(a(i)) + "    " + Str(b(i)) End If
Next i
Label3.Caption = "本次十佳歌手一共有" + Str(m) + "组"
End Sub