最大不模糊距离r_max为300公里，一个位

下列关于Sub过程的叙述正确的是A.一个Sub过程必须有一个Exie Sub语句B.一个Sub过程必须有一个Enb Sub语句C.在Sub过程中可以定义一个Function过程D.可以用Goto语句退出Sub过程

窗体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···

有一过程如下:

Sub Sub1(m As Integer,total As Long)

Dim i As Integer

total=1

For i=1 To m

total=total*i

Next

End Sub

调用它的事件过程如下:

Private Sub Command1_Click()

Dim tot As Long,a As Integer

a=Val(InputBox("请输入数据"))

Call Sub1(a,tot)

Print tot

End Sub

则输入数据5,运行结果为【 】。

假定有如下的Sub过程：

Sub Sub1(x As Single，y As single)

t=x

x=t/y

y=t Mod y

End Sub

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_click()

Dim a As Single

Dim b As Single

a=5

b=4

Sub1 a，b

Print a；b

End Sub

程序运行后，单击命令按钮，输出结果为

A．

B．

C．

D．

以下程序的运行结果是( ) #define MAX 10 int a[MAX]，i; main() { printf("\n");sub1()；sub3(A) ,sub2()，sub3(A) ； } sub2() { int a[MAX]，i，max； max=5； for(i=0；i＜max；i++)a[i]＝i； } sub1() {for(i=0;i＜MAX；i++)a[i]＝i+i; } sub3(int a[]) { int i; for(i=0;i＜MAX，i++)printf("%d"，a[i])； printf("\n")； }

A．0 2 4 6 8 10 12 14 16 18 0 1 2 3 4

B．0 1 2 3 4 0 2 4 6 8 10 12 14 16 18

C．0 1 2 3 4 5 6 7 8 9 0 1 2 3 4

D．0 2 4 6 8 10 12 14 16 18 0 2 4 6 8 10 12 14 16 18

（11）下列是一个体操评分程序。设满分为10分，20位评委，除去一个最高分和一个最低分，计算平均分。 Private Sub Command1_Click() Max=0 Mix=10 For i=1 To 20 n=Val(InputBox("请输入分数")) If n>Max Then Max=n If n>Mix Then Mix=n s=s+n s=s-Mix-Max P=s/18 Print"最高分";Max;"最低分";Mix Print"最后得分：";p End Sub

在窗体中有一外名为Command2的命令按钮，该命令的功能是：接受从键盘输入的10个大于0的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将事件代码补充完整。

Private Sub Command2_Click()

max＝0

max_n＝0

For i＝1 To 10

num＝Val(InputBox("请输入第"& i &"个大于0的整数："))

If num＞max Then

man＝【 】

max_n＝i

End If

Next i

MsgBox("最大值为第"& max_n &"个输入的" & max)

End Sub

如果存在如下过程：

Private Function FMax（a（） As Integer）

Dim First As Integer, Last As Integer, i As Integer

First=LBound（A）

Last=UBound（A）

Max=a（First）

For i=First To Last

If a（i） > Max Then Max=a（i）

Next i

FMax=Max

End Function

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

ReDim m（1 To 4） As Integer

m（1） =20: m（2） =30: m（3） =50: m（4） =100

c=FMax（m）

Print c

End Sub

单击命令按钮，其输出结果为 【12】 。

设有代码如下，当双击窗体内的某个位置时，命令按钮Command1和命令按钮Command2的标题分别为11、【 】。

Private SubForm_Load()

CommandCaption = "1"

CommandCaption = "2"

End Sub

Private Sub Form_Click()

CommandCaption = "11"

End Sub

Private Sub Form_DblC1ick( )

Commandcaption = 22

End Sub

下列检查结果哪项最符合该患者目前的病情变化（ ）

A．PaCO<SUB>2</SUB>降低

B．PaO<SUB>2</SUB>降低；PaCO<SUB>2</SUB>升高

C．PaO<SUB>2</SUB>降低；PaCO<SUB>2</SUB>降低

D．肺活量正常，残气量增加

E．FEVI减低，残气量正常