根据第k级牛顿环的半径rk、第k级牛顿环所对应的空气膜厚dk和凸透镜之凸面半径R的关系式dk=r2k/2R可知，离开环心越远的条纹（）
第1题：
以下程序的输出结果是【 】。
main()
{ int x=0；
sub(&x，8，1)；
printf(“%d\n”，x)；
}
sub(int *a，int n，int k)
{ if(k＜＝n)sub(a，n/2，2*k)；
*a+=k；
}
第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题：
阅读下列程序。
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
运行程序时，输出结果为【 】
第4题：
为某个窗体编写如下事件，单击窗体，消息框显示的结果为【 】。
Private Sub Form_Click( )
Dim k As Integer ,n As Integer ,m As Integer
n=10:m=1:k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub
第5题：
以下程序的输出结果是( )。
include＜stdio.h＞
main()
fint x=0;
sub(&x,16,2);
printf("%d\n",x);
}
sub(int*a,int n,int k)
{if(k＜=n) sub(a,n/2,2*k);
*a+=k;
}
第6题：
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub
第7题：
阅读下列程序。
Option Base 1
Private Sub Form CliCk()
Dim x(3,3)
For j=1 to 3
For k=1 to 3
If j=k then x(j,k)=1
If j＜＞ k then x(j,k)=3
Next k
Next j
Call fun(x())
End Sub
Private Sub fun(a())
For j=1 to 3
For k=1 to 3
Print a (j,k)；
Next k
Next j
End Sub
运行程序时，输出的结果是【 】。
第8题：
阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是【 】。
第9题：
阅读以下程序：
Prlvate Sub Form_Click()
Dim k，n，m As Integer
n=10
m=1
k=1
Do While k＜=n
m=m*2
k＝k+1
Loop
Print m
End Sub程序运行后，单击窗体，输出结果为【 】。
第10题：
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F