在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

　　Private Sub Form_Click()

　　Open "d:\test\smtext1.Txt" For Input As #1

　　Do While Not （）

　　Line Input #1, aspect$

　　Whole$=whole$+aspect$+Chr$(13)+Chr$(10)

　　Loop

　　Text1.Text=whole$

　　（）

　　Open "d:\test\smtext2.Txt" For Output As #1

　　Print #1, （）

　　Close #1

　　End Sub

　　运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。

铸件形成气孔的主要原因是（）。

A.金属液原始含气量高

B.冷却速度快

C.结晶温度范围小

D.浇注温度偏低