大学职业资格刷题搜题APP
创建自己的小题库
搜索
【单选题】
表明该求助者社会功能改变的是（）。
A．护理孩子时恐惧
B．多次检查身体
C．和丈夫矛盾很深
D．谢绝女儿来家
A.
案例二： 一般资料：求助者，女性，57岁，初中文化程度，退休职工。 案例介绍：求助者半年多以前因胃痛要做胃镜检查，抽血检查发现感染了梅毒。求助者感到非常诧异，自己生活检点，且已经多年没有性生活了，不可能感染梅毒。求助者到多家医院做了检查，但结果都一样。三个多月前，女儿生了孩子，求助者害怕自己将梅毒传染给孩子，面对孩子时非常紧张，不敢抱孩子，给孩子换尿布时要戴双层手套，而且手抖得很厉害。求助者想见孩子，又怕传染孩子，为此以各种理由谢绝女儿女婿来家，即使来了也不留他们吃饭。面对这种情况，女儿有意见，丈夫也不理解。自己知道是怎么回事，但不好意思和女儿明讲。为此内心极其痛苦。近来没有胃口，吃不下饭，失眠，自己主动前来咨询。 心理咨询师观察了解到的情况：求助者服饰整洁，小时候家教很严，从小做事认真，做事要做到最好。丈夫反映求助者平时认死理，很较真。
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报
参考答案：
举一反三
【单选题】下列哪种检查是锥体束征（ ）
A.
Lasegue征
B.
奥本海姆(Oppenheim)征
C.
戈登(Gordon)征
D.
查多克(Chaddock)征
E.
霍夫曼(Hoffmann)征
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
相关题目：
【单选题】下列哪种检查是锥体束征（ ）
A.
Lasegue征
B.
奥本海姆(Oppenheim)征
C.
戈登(Gordon)征
D.
查多克(Chaddock)征
E.
霍夫曼(Hoffmann)征
【单选题】有如下事件过程：Private Sub Form_Load() Show Dim Arr() As Variant Arr = Array(1, 3, 5, 7, 9, 11, 13, 15) Call converse(Arr) For i = 0 To 7 Print arr(i); Next iEnd Sub 以上程序的功能是，通过调用Converse过程，将数组Arr中的元素逆序存放并输出...
A.
Private Sub converse(dim a() as Variant ) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
B.
Private Sub converse(dim a() as Variant) Dim T Dim J As Integer J = (LBound(A) + UBound(A)) / 2 For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
C.
Private Sub converse(a() As Variant) Dim T For i = LBound(A) To UBound(A) T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
D.
Private Sub converse(a() As Variant) Dim T Dim J As Integer J = Int((LBound(A) + UBound(A)) / 2) For i = LBound(A) To J T = a(i) a(i) = a(UBound(A) - i) a(UBound(A) - i) = T Next i End Sub
参考解析：
题目纠错 0
发布
