患者男，45岁，干部。因"急起疑人害，言语零乱3周"入院。入院体格检查以及生化检查均正常。既往体健。

结合目前症状，入院后可给予的治疗包括（）

A.利培酮系统治疗

B.利培酮短期治疗

C.镇静治疗

D.舒必利静脉输液治疗

E.电休克治疗

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。　Sub PR( )　　　Randomize　　　Dim a　　　For j=1 To 10　　　　　a(i)=Int( 【 】 )　　　　　If 【 】Then k=k+1　　　　　Print a(j)　　　　Next j　　　　Print　　　　Print k/10　　End Sub