搜题请搜索小程序“爱下问搜题”
问题 单项选择题

女性患者，30岁，2年前曾因双眼复视，共济失调，步态不稳，住院治疗3个月后症状消失。10d前出现双眼视力减退、截瘫及大小便潴留。最可能的诊断为

A．运动神经元病
B．脊髓压迫症
C．多发性硬化
D．急性脊髓炎
E．急性脊髓灰质炎

答案

参考答案：C

单项选择题

下列选项中，预备资格的中央投资项目招标代理机构肯定可以承接其招标代理业务的是()。

A.某总投资为8000万元的使用财政直接拨款的基础设施建设项目

B.某总投资为1.2亿元的大型工业厂区建设项目

C.某总投资为2.7亿元的体育场馆建设项目

D.某总投资为1.95亿元的商务开发区建设项目
查看答案
填空题

下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变量Left指向要被处理的数(从第2个元素开始)，Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。Right的值即为不同的数的个数。

Option Explicit

OptionBase 1

Private Sub Commandl_Click()

Dim A() As Integer,N As Integer,I AS Integer

Dim OP As Integer

N=InputBox("请输入数据个数", ,10)

ReDim A(N)

Randomize

For I=1 To N

A(I)=Int(Rnd*10)+1

Text1=Text1 & A(1) & " "

Next I

Call Statistic(A,OP)

Text2="有" & oP & "个不同的数:"

For I=1 To OP

Text2=Text2 & A(I) & " "

Next I

End Sub

Private Sub Statistic(A() As Integer,Right As Integer)

Dim Left As Integer,K As Integer,I As Integer

Right=（）

Left=2

Do While Left<=Right

K=（）

For I=K To 1 Step -1

If A(Left)=A(I) Then Exit For

Next I

If （）Then

Left=Left+1

． Else

A(Left)=A(Right)

（）

End If

Loop

End Sub
查看答案