有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click()
Dim x As Single，y As Single
　　Open"NM1.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 y
　　Loop
　　Close #1,#2
End Sub

某项目生态影响评价为1级，则该项目生态现状评价要在( )的基础上进行。

A．土地利用现状图

B．生态制图

C．植被类型分布图

D．评价因子评价成果图