南京工业大学VB期末考试模拟题6

. .

End Sub

21、如下程序，运行的结果是____(1)________，若将A语句改为Static i%，运行的结果是______(2)_____。

Public Sub Proc(a%()) Dim i% 'A Do

a(i)=a(i)+a(i+1) i=i+1

Loop While i<2 End Sub

Private Sub Command1_Click() Dim m%, i%, x%(10) For i=0 To 4 x(i)=i+1 Next i For i=1 To 2 Call Proc(x) Next i For I=0 To 4 Print x(i); Next i End Sub

参考答案

1.a,2.d,3.a,4.c,5.a,6.a,7.a,8.a,9.c,10.d,11.c,12.c,13.d,14.d,15.d,16.d,17.b,18.b,19.c,20.b,21.a,22.c,23.b,24.d,25.a,26.d,27.a,28.b,29.b,30.d,31.a,32.a,33.d,34.d,35.d,36.a,37.b,38.d,39.c,40.a,41.b,42.d,43.b,44.b,45.d,46.c,47.d,48.c,49.b,50.d,51.a,52.c,53.a,54.b,55.b,56.a,57.c,58.c,59.a,60.c

1.Flag = False,Flag,K/N >1/4 and K/N<1/3,N mod i = 0 and k mod i =0,2.fact(i),byval

n%,f=1,fact=f,3.abs(x1-x2)>=1e-5,=1,x^3-4*x+1,4.d(6) as

integer,int(6*rnd+1),d(n)+1,5.n=10,n=5,6.2 2,1 2,7.3,1,8.m=40 n=10,x=20 y=15,m=40 n=10,x=40

y=10,9.0.6,1.8,5.4,10.7,1,16,10,11.27,11,12.n=9,n=3,13.43,14.List1.AddItem k,x*fact(x-1),15.23 47,47,16.4 9 13,19.5,17.2 2,18.x2=0 y2=1,x4=1 y4=3,19.1,3,20.3,2,21.8 8 3 4 5,3 5 7 4 5

. . .