dim a(1 to 100) as Integerfor i = 1 to 100a(i)=int(rnd*100)if i mod 2 =0 and a(i) mod 2=0 then s=s + a(i)nextmsgbox "和：" & s
嗯哼嗯哼，是怎么回事？
