高职招考VB模拟题(6)

Dim I as integer

Dim b as integer,c as integer For I= (7)

A= I \ 1000

B= I \100 mod 10 C= (8) If (9) and a=b+c then

Print I;

End if

Next I

End sub

5、打印输出如下数组的前20项,并要求每行输出4个数：

1，1，3，7，17，41

private sub command1.click( )

dim a(1 to 20) as long

a(1)=1

a(2)=1 for I= (10) to 20 (11)

next I

for I=1 to 20

print a(i); if (12) then

print

end if

next I

end sub