有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不是漂亮数
答案:D