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

患者，男，26岁。从小性格孤僻内向，沉默寡言，对人态度冷淡，怕见生人，不主动与人打招呼，也不愿意介入别人的事，对家人也缺乏情感，总是偏爱单独行动，回避社交，离群独处，没有亲密朋友，不信任他人。近半年，不能坚持工作，经常自言自语、自笑，对空谩骂，不出门，不与人交流，生活懒散，不注意个人卫生。精神检查：神志清楚，接触被动，问答切题，存在言语性幻听、被害妄想，情感平淡，生活懒散，自制力缺乏。

针对病人目前情况，可以考虑哪些治疗选择（）

A.抗抑郁药物

B.抗焦虑药

C.抗精神病药物

D.情绪稳定剂

E.电抽搐治疗

F.行为矫正

G.认知治疗