大学职业资格刷题搜题APP
创建自己的小题库
搜索
【单选题】
下面哪个不是交感神经部分的功能?
A.
增加消化活性，为身体提供燃料
B.
瞳孔扩张
C.
心跳增加
D.
增加肺的活性
手机使用
分享
复制链接
新浪微博
分享QQ
微信扫一扫
反馈
收藏
举报
参考答案：
举一反三
【单选题】交感神经的作用是
A.
促进肝糖原分解和糖异生增强，具有升血糖作用
B.
促进肝糖原分解和糖异生增强，具有降血糖作用
C.
促进肝糖原分解和糖异生减弱，具有升血糖作用
D.
促进肝糖原分解和糖异生减弱，对血糖不影响
E.
促进肝糖原分解和糖异生减弱，具有降血糖作用
【单选题】知母及其皂苷元对交感神经的影响是
A.
升高β羟化酶活性，减少肾上腺素合成
B.
升高β羟化酶活性，减少去甲肾上腺素合成
C.
降低β羟化酶活性，减少肾上腺素合成
D.
降低β羟化酶活性，减少去甲肾上腺素合成
E.
降低β羟化酶活性，增加多巴胺合成
【单选题】有如下事件过程：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.
促进肝糖原分解和糖异生增强，具有升血糖作用
B.
促进肝糖原分解和糖异生增强，具有降血糖作用
C.
促进肝糖原分解和糖异生减弱，具有升血糖作用
D.
促进肝糖原分解和糖异生减弱，对血糖不影响
E.
促进肝糖原分解和糖异生减弱，具有降血糖作用
【单选题】知母及其皂苷元对交感神经的影响是
A.
升高β羟化酶活性，减少肾上腺素合成
B.
升高β羟化酶活性，减少去甲肾上腺素合成
C.
降低β羟化酶活性，减少肾上腺素合成
D.
降低β羟化酶活性，减少去甲肾上腺素合成
E.
降低β羟化酶活性，增加多巴胺合成
【单选题】有如下事件过程：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
发布
