有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不是漂亮数