【推荐1】有以下VB程序段：

a = 2

b = 8

c = 6

If a < b Then

            t = a: a = b: b = t

End If

If a > c Then c = a

运行该程序段后，整型变量a、b、c的值分别是（     ）

A．2 8 6

B．8 2 8

C．2 8 8

D．8 2 6

【推荐2】有如下VB程序：

Private Sub Command1_Click()

Dim a (10) As Integer

n=6: Text2. Text=""

m=Val (Text1. Text)

For i=1 To 3

k=i

j=i+1

Do While j< = m

If a (k) > a(j) Then k= j

j=j+1

Loop

If i< > k Then

Text2. Text= Str(a(k))+Text2. Text

t=a(i):a(i)=a(k):a(k)=t

End If

Next i

End Sub

如果数组元素a(1)到a(6)的值依次为“40，26，19，21，71，60”，现在运行程序在文本框text1中输入5，点击按钮Command1后文本框text2中显示的内容是（       ）

A．71   40   26

B．71   60   40

C．26   19   21

D．26   21   19

【推荐3】有VB程序段如下：
p = Val(Text1.Text)
t = 0: j = 2: flag = True
s = Text1.Text + "="
Do While p > 1 And flag
     If p Mod j = 0 Then
          t = t + 1
          p = p \ j
          s = s + Str(j) + "*"
     Else
          If t = 1 Then flag = False
          t = 0: j = j + 1
     End If
     If p = 1 And t = 1 Then flag = False
Loop
If flag Then
     Text2.Text = Mid(s, 1, Len(s) - 1)
Else
     Text2.Text = Text1.Text + "不是漂亮数"
End If
执行该程序段，在文本框Text1中输入6，则文本框Text2中显示的内容为（     ）

A．6= 2* 3	B．6= 2* 3*
C．6= 1* 2* 3	D．6不是漂亮数