违法和不良信息举报 联系客服
免费注册 登录

女，28岁，G<sub>3</sub>P<sub>2</s

题目

女，28岁，G3P2，白带增多伴性交后少量出血1周来诊。妇科检查：阴道畅，少量咖啡色分泌物，宫颈呈颗粒状糜烂，占整个宫颈面积的2／3以上，宫颈口未见脓性分泌物。宫颈刮片未见癌细胞。 根据目前检查，该患者最可能的诊断为（）

  • A、宫颈糜烂，中度，颗粒型
  • B、宫颈糜烂，重度，颗粒型
  • C、宫颈糜烂，重度，乳突型
  • D、宫颈CIN
  • E、宫颈癌
如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第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


参考答案：B

第2题：

下列程序的执行结果是______。

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


正确答案：20
20

第3题：

单击一次命令按钮后，下列程序的执行结果是( )。 Private Sub Commandl_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public FunctionP(N As Integer) Static Sum Fori=1To N Sum=Sum+i Nexti P=Sum End Function

A．15

B．25

C．35

D．45


正确答案：C

第4题：

设程序中有如下数组定义和过程调用语句：

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
【答案】：B
【知识点】：以数组作为参数时形式参数的定义形式
【解析】：形式参数为数组时，表达示为sub name( array() as integer[string......])，并不需要指明元素个数，但小括号不能省略。故本题选B。

第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


正确答案：D
解析：考查考生对参数传递的掌握情况。
  [解题要点] 这是在实现子过程被调用时参数虚实结合的问题。a1为变量按址传送，b1+3和c1为表达式按值传送。
  [错解分析] 参数的传值方式和传址方式的区别。
  [考点链接] 函数调用和参数传递。

第6题：

阅读如下程序, a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( )。

A、Sub plus(sum, a , b ): sum = a + b: End Sub

B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub

C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub

D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub


参考答案：B

第7题：

在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：

Private Sub s(ByVal p As Integer)

p=p*2

End Sub

Private Sub Com1_Click()

Dim i As Integer

i=3

Call s(i)

If i＞4 Then i=i^2

End sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。


正确答案：3
3 解析： 本题考查VBA程序的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用，此时形参的变化不会返回到实参；若用ByRef声明，说明此参数为传址调用，此时形参的变化将会返回到实参：没有说明传递类型，则默认为传址传递。此题中形参p被说明为ByVal传值形式的整型量，当运行Com1_Click()过程时调用s()函数，实参i传送其值给形参p，p发生变化p=p*2=3*2=6。但因为使用的是ByVal传值传递，所以实参i的值不发生变化，if语句中的判断条件为假，所以会直接执行MsgBox i语句后输出3。

第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运行上面的程序，单击命令按钮，输出结果为。


正确答案：2 4 6 8
【解析】本题综合考查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。

第9题：

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub s(ByVal p As Integer)

p=p*2

End Sub

Private Sub Command1_click()

Dim i As Integer

i=3

Call s(i)

If i＞4 Then i=i^2

MsgBox i

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为【 】。


正确答案：3
3 解析：由于VBA中，传值调用(ByVal选项)为“单向”作用形式即过程调用只是相应位置实参的值“单向”传送给形参处理，而被调用过程内部对形参的任何操作引起的形参值的变化均不会反馈、影响实参的值。此题中：形参p被说明为ByRef传值形式的整型量，当运行Command1 Click()过程，并调用s()函数，实参i传送其值给形参p，p发生变化p=p*2=3*2=6。但因为使用的是ByVal“单向”传值形式，实参i的的值不发生变化， iF句为假，执行MsgBox i语句后输出3。

第10题：

编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．rehcaet

B．tahreee

C．themee

D．eerthea


正确答案：A
解析：可以看出，Sub1(ByValx1AsString，y1AsString)的作用是将参数x1的字符逆序处理，然后赋给y1，而y1是传址引用的，可以直接返回处理结果。

更多相关问题
相关内容