下列行为中属于礼仪不规范的有（）。

A.在公共场所吸烟

B.在大庭广众之下高声讲话

C.在商务交往中佩戴过多的首饰

D.着装时上下装同质同色

在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的Multiline属性设置为True，然后编写如下的事件过程，请在空白处填上适当的内容，将程序补充完整。
Private Sub Form_Click()
Open”d:\test\smtext1.txt" For input As#1
Do While Not EOF()
Line Input#1，aspect$
whole $=whole $+aspect $+Chr $(13)+Chr $(10)
Loop Text1.text=whole$
Close#1
Open "d:\test\smtext2.txt" For output As#1
Print#1， (15)
Close #1
End Sub