（加试题）小王要对字符串“welcome”进行重新排列，程序界面如图所示，则该程序执行后文本框 Text2 中显示的结果为（　　）

Private Sub Command2_Click()
　Dim a(1 To 7) As String
　Dim i, j, t2, m,cd As Integer
Dim s, t, p As String
　s = Text1.text
　cd=Len(s)
　For m = 1 To cd
　　a(m) = Mid(s, m, 1)
　Next m
　For i = 1 To 2
　　For j = cd To i + 1 Step -1
　　　If a(j) < a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t
　　Next j
　Next i
For t2 = 1 To cd
　　p = p + a(t2)
　Next t2
　Text2.Text = p
End Sub

A．welcome

B．ceelmow

C．cewelmo

D．womleec

（加试题）某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)

（加试题）有如下程序段：
For i =" 1" To 6
f = False
For j =" 7" To i + 1 Step -1
If d(j) < d(j - 1) Then
t =" d(j):" d(j) =" d(j" - 1): d(j - 1) = t
f = True
End If
Next j
If f =" False" Then Exit For
Next i
如果数组元素d（1）到d(7)的值依次为“18，22，9，32，16，12，40”，则执行此程序段后，变量i的值为  （   ）

A．4

B．6

C．7

D．3

在VB中，下列函数返回值最大的是(    )

A．Sqr(9)

B．Abs(-3.2)

C．int(3.2)

D．Len("3.2")

有如下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