VB的问题，要用VB语言做，很急

VB的问题，要用VB语言做，很急

1、dim i as integer,k as integer
i=0

for k=100 to 1000

if (k mod 21)=0 then i=i+1

next k

print i

3、dim i as integer, Max_P as integer, Min_P as integer
dim Data[1 to 20 ] as integer
for i=1 to 20
Data[i]=int(rnd(0)*90)+10

if i=1 then

max_p=1

min_p=1

else

if Data[i]>Data[i-1] then
max_p=max_p+1
elseif Data[i] min_p=min_p+1
endif

endif

printf Data[i]

next i

print max_p,min_p
4、dim i as integer,c as integer,strTmp as string
c=0

strTmp =text1.text

do while instr(strtmp,"VB",1)<>0

c=c+1
i=instr(strtmp,"VB",1)
strtmp=right(strtmp,len(strtmp)-i-2)

loop

print c

5、dim res as double
res=500*(1+0.3)^5
label1.caption=cstr(res)