肿瘤的放射性胶体腔内治疗，适应证包括（）

A.病理学检查证实有胸腹膜转移或积液中查见癌细胞

B.病情严重

C.有明显恶病质

D.体积小的包裹性积液

E.反复多次穿刺仍有积液，生存期3个月或3个月以上

下面程序的功能是把文件file11.txt中重复字符去掉后(即若有多个字符相同，则只保留一个)写入文件file2.txt。请填空。
Private Sub Command1_Click()
Dim inchar AS String, temp AS String, outchar AS String
Outchar=""
Open "file1.txt" For Input AS #1
Open "file2.txt" For Output AS (7)
n=LOF( (8) )
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
If InStr(outchar, temp)= (9) Then
outchar=outchar & temp
End If
Next k
print #2, (10)
close #2
close #1
End Sub