用J₂型光学经纬仪，作方向观测时，规范规定

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

下面程序的输出结果是( )。 #include"stdio.h" int sub(int m) { static a=4; a+=m; return a; } void main() { int i=2,j=1,k; k=sub(i); k=sub(j); printf("%d",k); }

A．6

B．7

C．8

D．9

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。

Sub GASR（）

Dim m

m=Array（10, 1, 5, 6, 7）

For i=0 To 3

For j= 【13】

If m（i） >=m（j） Then

【14】

m（i） =m（j）

m（j） =t

End If

Next j

【15】

For i=0 To 4

Print m（i）

Next i

End Sub

若有如下程序： float sub(int a，int b) { return(a*b)； } main() {int i=1，j=2，k=3； printf("%4.0f\n"，sub((int)sub(k+j，j)，k+i))； } 则程序运行后的输出结果是( )。

A．40

B．32

C．16

D．编译出错

有如下程序：

Private Sub Command1_Click()

j =10

For i= -1 To 1 Step 0.3

j =j + 1

Next i

Print j

End Sub

该程序共循环【 】次，程序执行完毕后j的值是【 】。

在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．0 3 7 5

B．0 1 2 3

C．3 2 4 5

D．0 5 8 3

阅读下列程序。

Option Base 1

Private Sub Form. Click()

Dim x(3,3)

For j=l to 3

For k=l to 3

If j=k then x(j,k)=l

If j＜＞k then x(j,k)=k

Next k

Next j

Call fun(x())

End Sub

Private Sub fun(x() )

For j=1 to 3

For k=1 to 3

Print x(j,k);

Next k

Next j

End Sub

运行程序时，输出结果为【 】

窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1 Click（ ） Dim arr(5)As Integer ． For k=1 To 5 art(k)=k Next k prog art（ ） For k=1 T0 5 Print art(k)； Next k End Sub Sub prog(a（ ）As Integer) n=UBound(a) For i=n To 2 step-1 if a(j)<a(j十1)Then t=a(j)：a(1)=a(j+1)；a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是（ ）。

A.12345

B.54321

C.01234

D.43210