有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读
出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。
Private Sub Form_Click()
　　　　Dim x As Single，y As Single
　　 Open "NMl.txt" For Input As #1
　　　　Open "NM2.txt" For Input As #2
　　　　Do While Not EOF(1)
　　　　　　　【14】　
　　　　　　Print x
　　　　　　y=x^2
　　　　　　【15】　
　　　　　　Print x
　　　Loop
　　　Close #1，#2
　　End Sub

舌红而生芒刺，多为（）

A.卫分热盛

B.气分热盛

C.血热内盛

D.阴虚火旺

E.热入营血