经纬仪型号J2的下脚标“2”的含义为该类仪器一测回角值的中误差不大于2秒
第1题:
下面过程运行之后,则变量J的值为( )。 Private Sub Fun() Dim f AS Integer J-5 Do J=J*2
A.3
B.10
C.9
D.7
第2题:
下面程序的输出结果是( )。 #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
第3题:
有以下程序:
Private Sub Form_Activate()
For j=1 to 3
x=3
For i=l to 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,窗体上显示的结果为______。
第4题:
若有如下程序: 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.编译出错
第5题:
在窗体上画一个名称为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
第6题:
编写如下程序: Private Sub Form. Click() a$=: "4321": b$="abcd" For 3=1 To 4 Print Mid$(a$,5-j,1)+Nid$(b$, j, 1); Next j Print End Sub 程序运行后,单击窗体,其输出结果为 ______。
A.alb2c3d4
B.b4c3d2el
C.eld2c3b4
D.la2b3c4d
第7题:
A、PH7.38,PaO<SUB>2</SUB>50mmHg,PaCO<SUB>2</SUB>40mmHg
B、PH7.30,PaO<SUB>2</SUB>50mmHg,PaCO<SUB>2</SUB>80mmHg
C、PH7.40,PaO<SUB>2</SUB>60mmHg,PaCO<SUB>2</SUB>65mmHg
D、PH7.35,PaO<SUB>2</SUB>80mmHg,PaCO<SUB>2</SUB>20mmHg
E、PH7.25,PaO<SUB>2</SUB>70mmHg,PaCO<SUB>2</SUB>20mmHg
血气分析结果符合代偿性代谢性酸中毒( )
第8题:
阅读程序:
Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3, 2)
For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4)
For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4)
End Sub
程序运行后,单击窗体,输入结果为( )。
A.21
B.13
C.8
D.25
第9题:
在窗体中画一个命令按钮,然后编写以下事件过程: Private Sub Command1_Click() For j=1 To 3 Print Tab(3(j);11((2(j-1); Next j Print End Sub 程序的执行结果为
A.11
B.33
C.11 33
D.11 33 55
第10题:
阅读程序: Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer,i As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为
A.21
B.13
C.8
D.25