河南住院医师妇产科
患者李××，女，34岁。G1P0A0L0。因"停经30周，发现羊水过多2周，憋闷不能平卧1日"入院。患者平素体健，无重大病史可载。既往月经规律，未行常规产前检查。2周前超声检查示："单胎头位，BPD://7.9cm，胎盘位于子宫前壁，下缘距宫颈内口9cm，胎盘Ⅰ级，AFI：25。"口服吲哚美辛，效果不佳。近一日腹胀，憋闷不能平卧就诊。入院查体：T：36.6℃，P：96次／分，R：22次／分，BP：135/80mmHg。神志清。心肺（-），腹部膨隆，宫高34cm，腹围96cm，子宫张力大，胎位扪诊不清。胎心
题目
患者李××，女，34岁。G1P0A0L0。因"停经30周，发现羊水过多2周，憋闷不能平卧1日"入院。患者平素体健，无重大病史可载。既往月经规律，未行常规产前检查。2周前超声检查示："单胎头位，BPD://7.9cm，胎盘位于子宫前壁，下缘距宫颈内口9cm，胎盘Ⅰ级，AFI：25。"口服吲哚美辛，效果不佳。近一日腹胀，憋闷不能平卧就诊。入院查体：T：36.6℃，P：96次／分，R：22次／分，BP：135/80mmHg。神志清。心肺（-），腹部膨隆，宫高34cm，腹围96cm，子宫张力大，胎位扪诊不清。胎心遥远，150次／分。水肿+。复查B超：AFI：29。患者经对症处理，羊水过多的症状有所缓解。经饮食控制5天，测血糖谱：早餐前血糖：5.9mmol／L，早餐后2小时血糖：7.8mmol／L，中餐前血糖：5.4mmol／L，中餐后2小时血糖：6.8mmol/L，晚餐前血糖：6.Immol／L，晚餐后2小时血糖：8.Immol/L，晚10点血糖：5.6mmol/L。进一步治疗措施正确的是（）
- A、维持原饮食控制方案
- B、进一步严格控制饮食
- C、首选口服降糖药
- D、胰岛素治疗
- E、监测血糖及酮体
- F、注意防止发生低血糖
- G、注意防止发生酮症酸中毒
相似问题和答案
第1题：
运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function
：A. sub:2 6 4 main:1 2 3
B. sub:2 6 4 main:2 2 3
C. sub:2 6 4 main:2 6 4
D. sub:2 6 4 main:1 6 4
第2题：
窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。
A.Private Sub Form1 Click（ ）
End Sub···
B.Private Sub Form1. Click（ ）
End Sub···
C.Private Sub Command1 click（ ）
End Sub···
D.Private Sub Command Click（ ）
End Sub···
B。【解析】窗体单击事件为Form—Click事件。
第3题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
【解析】本题综合考查Sub过程的建立与调用以及数组的赋值。P过程为参数b()赋值，赋值方法为b()中的元素值等于其下标的2倍。在事件过程中，数组a(1 to 4)先被逐一赋值，然后以传地址的方式被p过程调用。在调用中，a(i)被重新按照p过程的赋值方式（即元素值等于对应下标值的2倍）赋值。由于是以传地址的方式传送a(1 to 4)，故在调用完p过程后，a(1 to 4)，故在调用完p过程后，a(1 to 4)中的元素值将保留，故空白处填：2 4 6 8。
第4题：
有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A．0 0
B．1 1
C．2
D．1 2
解析：调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程；因为在默认的情况下，变量都是通过“引用”传送给Sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值；过程 Sub1的形参获得a，b的地址，此时x=5，y=4，在过程 Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x，y的值为1，1。注意： 调用通用过程可以返回多个参数值。注意：过程调用、参数传递
第5题：
有如下程序： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single，y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A．0 0
B． 1 1
C．2 2
D．1 2
解析：考查考生对调用通用过程的掌握情况。
[解题要点] 调用一个过程时，必须把实际参数传送给过程，完成形式参数与实际参数的结合，然后用实际参数执行调用的过程。因为在默认的情况下，变量都是通过“引用”传送给sub1过程，在这种情况下，可以通过改变过程中相应的参数来改变变量的值。过程Sub1的形参获得a，b的地址，此时x=5，y=4，在过程Sub1中，将x，即5的值赋给t，而将t\y的值赋给x，将t除以y的余数赋给y，此时x,y的值为1,1。
[错解分析] 调用通用过程可以返回多个参数值。
[考点链接] 过程调用、参数传递。
第6题：
A、Pa0/sub2/supsubno<60mHl.PaCO/sub2/supsubno>50mmlg
B、Pa0/sub2/supsubno<60mHgPaCO/sub2/supsubno<45mmg
C、Pa0/sub2/supsubno<60mmHgPaCO/sub2/supsubno>50mmH
D、Pa0/sub2/supsubno<60mHg、PaCO/sub2/supsubno<45mmHg
E、Pa0/sub2/supsubno<60mHg、PaC0/sub2supsubno45mmHg
第7题：
在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为
A．Sub：2 6 4 Main：2 6 4
B．Sub：2 6 4 Main：2 6 4
C．Sub：2 6 4 Main：1 2 3
D．Sub：2 6 4 Main：2 2 3
解析：考查考生对参数传递的掌握情况。
[解题要点] 这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送，b1+3和c1为表达式按值传送。
[错解分析] 参数的传值方式和传址方式的区别。
[考点链接] 函数调用和参数传递。
第8题：
下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。
A．0
B．12
C．Str(z)
D．显示错误信息
解析：在本题中，用Call过程名的方法调用过程P1，在P1中，将参数C的值改变为12。因为参数C是按地址传送(默认为按地址传送，即ByRef)，故z的值变为12了，所以输出值为12。
第9题：
设程序中有如下数组定义和过程调用语句：
Dim a(10) as integer
……
Call p(a)
如下过程定义中，正确的是
A)Private Sub p(a as integer)
B)Private Sub p(a() as integer)
C)Private Sub p(a(10) as integer)
D)Private Sub p(a(n) as integer)
【答案】：B
【知识点】：以数组作为参数时形式参数的定义形式
【解析】：形式参数为数组时，表达示为sub name( array() as integer[string......])，并不需要指明元素个数，但小括号不能省略。故本题选B。
第10题：
在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print "Sub: ";p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((a，b1+3，(c1)) Print "Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
A．Sub： 2 6 4 Main： 2 6 4
B．Sub： 2 6 4 Main： 2 6 4
C．Sub： 2 6 4 Main： 1 2 3
D．Sub： 2 6 4 Main： 2 2 3
解析：这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送，b1+3和(c1)为表达式按值传送。