患者男性，32岁，未婚。近半月来自觉聪明过人，能力非凡，精力旺盛，逢人打招呼，整天喜气洋洋。每天早起出门，很晚回家。乱买东西送人，喜欢唱歌、跳舞，喜欢结交朋友，尤其喜欢接近异性。交谈时，滔滔不绝，自觉思维加快，脑子里一个念头接一个念头出现，写文章一挥而就。好管闲事，做事虎头蛇尾，举止轻浮，不顾后果，情绪不稳，常为小事而勃然大怒。

此患者最可能的诊断是（）。

A.精神分裂症

B.抑郁症

C.焦虑症

D.躁狂症

E.强迫症

以下程序段运行的结果是______。
Dim a(-1 To 5)As Boolean
Dim flag As Boolean
flag=False
Dim i As Integer
Dim j As Integer
Do Until flag=True
For i=-1 To 5
j=j+1
If a(i)=False Then
a(i)=True
Exit For
End If
If i=5 Then
flag=True
End If
Next
Loop
Print j

A．20

B．7

C．35

D．8