有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中显示的内容为( )