（加试题）有一组正整数，基于冒泡排序对其中的数进行升序排序。排序后奇数在前，偶数在后。排序示例如下：

排序前	78	30	64	39	49	4	8	32	18	32
排序后	39	49	83	4	8	18	30	32	64	78

 
实现上述功能的VB程序如下，但加框处代码有误，请改正。
Const n = 10
Dim d(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
'读取一组正整数，存储在数组d中，代码略
i = 1
Do While i <= n - 1
For j = n To i + 1 Step -1
If d(j) Mod 2 = d(j - 1) Mod 2 Then
If  d(j) > d(i)  Then '(1)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Else   '(2)________
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
i = i + 1
Loop
'依次输出排序后的数据，代码略
End Sub

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

（加试题）某一过程算法的VB程序段如下:
Private Sub Command1_Click()
Dim n As Integer
n = Val(text1.Text)
Call prsj(n) '调用自定义过程
End Sub
Sub prsj(c As Integer)  '自定义过程，可以用Call语句来调用该过程
Dim i As Integer, j As Integer, k As String
List1.Clear
For i = 1 To c
k = ""
For j = 1 To i
k = k + "*"
Next j
List1.AddItem k
Next i
End Sub
在文本框Text1输入3，执行该程序段后,在列表框List1中显示的是

A．

B．

C．

D．

有如下visual basic程序：
private Sub command1_Click()
s=0
If s<="99" then
For j="1to" 10
s=s+j
Next j
Else
print “程序出错！”
Endif
print “最后的s的值是:”；s
End Sub
请问以上程序的控制结构包含了（   ）

A．顺序结构、树型结构

B．顺序、选择结构

C．顺序、选择和循环结构

D．顺序、循环结构

有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
　c＝Mid(s，i，1)
　If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )

A．2014	B．ChinaIT
C．hina	D．CIT