一般资料：求助者，男性，41岁，高中毕业，已婚。案例介绍：半年多前的一天，求助者到银行存款，无意间看到银行工作人员正在将一摞一摞的钱放进保险箱，估计有上百万元。求助者当时想自己要是像劫匪那样，拔出枪来，把钱抢走，自己买房买车就不缺钱了。但求助者马上意识到自己这么想非常可怕！自己是老师，有家有业的，怎么能有这种犯罪的想法呢？越想越可怕，求助者连忙告诫自己今后千万不要这样想，这事也就这样过去了。一天到单位财务室办事，见到保险柜，不知怎么回事，又想到"要是像劫匪那样，拔出枪来，把钱抢走，自己买房买车就不缺钱了。"求助者觉得自己这么想很可怕，不允许自己这么想。但从此以后，这种想法时常就冒了出来。求助者认为自己出现了问题，害怕有一天真做了傻事。求助者命令自己不许这么想，可这种想法像着魔一样，时不时就冒出来。求助者也觉得自己应该不会去抢银行，不该这样紧张，很想控制住自己，但始终控制不住。现在求助者见到银行、保险柜等就很紧张，为此尽量不去银行，不接触保险柜。耽误了大量时间，求助者内心非常痛苦。因此痛恨自己、焦虑不安、情绪烦躁，有时难以入睡，白天没精神。最近经常因琐事与妻子孩子闹矛盾，不主动关心父母，工作也受到一定程度的影响。自己主动前来咨询。心理咨询师观察了解到的情况：求助者内向，自我要求严格，做事认真细致，谨小慎微。多年来努力工作，力争把事情做到最好。

该求助者社会功能的改变包括（）。

A.与家人有矛盾

B.工作受影响

C.避免接触银行

D.不关心父母

下列程序的功能是：单击窗体时将随机生成10个1～100之间的数，求出它们的总和及平均数。请填空。
Option Base 1
Private Sub Form_Click()
Dim a(10)As Integer,i As Integer
Dim sum As Integer,aver As Single
【12】
For i=1 To 10
a(i)=Int(100*Rnd)+1
sum=sum+a(i)
Next i
【13】
Print sum,aver
End Sub