下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。
Private Sub Form_Click()
Dim i As Integer
Open 【9】 As #1
For i=1 To 10
Print #1 ,i
Next
Close #1
End Sub

男性，25岁。突然高热、头痛、腰痛、呕吐、腹泻4天，2天来尿少，排尿疼痛，牙龈出血来诊。化验：WBC19×10⁹／L，有形态异常细胞0.13（13％），血小板60×10⁹／L，尿中有膜状物，首先考虑的诊断是（）

A.钩体病

B.流行性出血热

C.败血症

D.肾盂肾炎

E.流行性脑脊髓膜炎