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

男性，45岁。反复全程无痛性肉眼血尿2个月，低热1个月。查体：右侧肾可扪及，轻叩痛。X线腹部平片：右侧肾影增大，有壳状钙化影。静脉肾盂造影：右肾上盏充盈缺损，中盏有弧形压迹。血沉：40mm/h。

最可能的诊断是（）

A.肾癌

B.肾盂癌

C.肾结核

D.输尿管肿瘤

E.肾盂肾炎