有如下VB程序段：
Dim a(1 To 5) As Intger
A(1)=5  :  a(2)=3  :  a(3)=8  :  a(4)=4  :  a(5)=2
For i = 1 To 4
If a（i）> a（i+1） Then
t = a(i): a(i) = a(i + 1): a(i + 1) = t
Endif
Next i
当程序运行结束后，a(5)的值是（   ）。

A．2

B．4

C．5

D．8

（加试题）某一过程算法的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．

有如下VB程序段：
a(1)=0:a(2)=1:a(3)=0:a(4)=1:a(5)=0
i=1
Do While i<= 2

n=Int(Rnd()*5+1)

If n > i Then

t=a(i): a(i)=a(n):a(n)=t
i=i+1

End if

Loop
执行程序段后,当前a(1)~a(5)各元素的值不可能是（   ）

A．1，0，1，0，0

B．1，0，0，1，0

C．0，0，1，0，1

D．0，0，1，1，0

下列程序运行后的输出结果是
DIM   A（6）  AS   INTEGER
FOR   I= 1  TO  6
A（I）= I
NEXT  I
PRINT   A（I）

A．0

B．6

C．7

D．显示出错信息

有如下 VB 程序段：
i=1：n=5
Do while i<=n x=Int(Rnd*9)+1
If   x Mod 2=1 Then a(i)=x
Else
a(n)=x:n=n+1
EndIf
i=i+1
Loop
数组元素的初值均为 0，执行该程序段后，a(1)至 a(5)的值可能是（   ）

A．1 , 3 , 5 , 5 , 0

B．3 , 3 , 0 , 8 , 8

C．0 , 1 , 0 , 4 , 2

D．7 , 1 , 3 , 9 , 8