患者孙××,女,22岁,农民。G1P0A0L0。因’停经33周,食欲差、恶心呕吐7天,加重2天"入院。患者平素体健,无重大病史可载。既往月经规律,定时产前检查,无异常情况,无药物治疗史。3周前有不洁饮食史。7天前出现恶心呕吐,呕吐物为胃内容物,食欲差,乏力。当地医院检查:AST:2165U/L,ALI、:3210U/L,TBIL189μmol/L,DBIL106μmol/L,GLU:4.3mmol/L,ALB:26/L.近2日症状加重,不能进食,皮肤黄染。入院查体:T:36.6℃,P:96次/分,R:21次/分,BP:135/80mmHg。神志清,精神差。全身皮肤、黏膜黄染,并散在瘀斑。心肺(-),腹部膨隆,肝脏肋下未及。移动性浊音(+)。宫高30cm,腹围86cm,LOA,胎心156次/分。辅助检查:AST:665U/L,ALT:910U/L,TB/L:489μmol/L,DBIL:206μmol/L,ALB:20.8/L。乙肝抗原抗体五项指标阴性。根据现有临床资料,初步诊断考虑最可能为哪些疾病()
第1题:
下面程序: 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.显示错误信息
第2题:
设程序中有如下数组定义和过程调用语句: Dim a(10)As Integer … Call D(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)
第3题:
( 25 )要求当鼠标在图片框 P1 中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是
A )
Private Sub P1_MouseMove ( Button AS Integer,Shift As Integer,X As Single,
Y As Single )
Print X,Y
End Sub
B )
Private Sub P1_MouseDown ( Button AS Integer,Shift As Integer,X As Single,
Y As Single )
Picture.Print X,Y
End Sub
C )
Private Sub P1_MouseMove ( Button AS Integer,Shift As Integer,X As Single,
Y As Single )
P1.Print X,Y
E n d S u b
D )
Private Sub Form_MouseMove ( Button AS Integer,Shift As Integer,X As Single,
Y As Single )
P1.Print X,Y
End Sub
第4题:
在窗体中添加一个命令按钮,编写如下程序: 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
第5题:
在窗体中添加一个命令按钮,编写如下程序: 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
第6题:
运行以下程序后,输出结果为_____________。 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
第7题:
下列程序的执行结果是______。
PrivateFunctionP(NASInteger)
Fori=1 To N
SUM=SUM+i
Nexti
P=SUM
End Function
Privte Sub Commandl_Click()
S=P(1)+P(2)+P(3)+P(4)
Print S
End Sub
第8题:
阅读程序: 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运行上面的程序,单击命令按钮,输出结果为。
第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)
第10题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub sub1(p,m,n) p=p + 1 : m = m + 1 : n =n + 1 Print p;m;n End Sub Private Sub Command1_Click() x=6 : y=4 : z=2 Call sub1(x,y+1,(z)) Print x;y;z End Sub 程序运行后,单击命令按钮,则窗体上第二行显示的内容是
A.7 6 3
B.7 4 2
C.6 4 2
D.4 6 3