2009年10月17号江苏省计算机VB二级答案

1

2

3

4

5

6

7

8

9

10

A

D

A

B

D

C

B

B

B

D

11

12

13

14

15

16

17

18

19

20

C

B

A

D

C

D

C

A

B

B

21

22

23

24

25

26

27

28

29

30

D

B

D

B

A

C

A

D

B

C

1

15

2

9

3

2

4

5

5

12

6

25

7

4 5 9

8

5 -1 4

9

1 2

10

7

11

36

12

121

13

101101

14

001110

15

011011

16

t = a1 / a2

17

a1 = a2 - a1

18

n<>0

19

sk(k+1)=p

20

i=i+1

21

If Left(q,1)=mid(st,i,1) Then n=i-1

22

Byval n As Integer

23

sum1+n mod 10

24

k=2

25

k=k+1

26

c(1)=a(1)

27

p=p & q

28

p=””

29

Exit For

30

c(i)=n