定义一个整型数组，将100个随机整数从下标1开始放入该数组中，求出该数组中具有偶数值的偶数下标元素之和

Question

用vb编程。。。。。谢谢了

Answer 1

dim a(1 to 100) as Integer
for i = 1 to 100
a(i)=int(rnd*100)
if i mod 2 =0 and a(i) mod 2=0 then s=s + a(i)
next
msgbox "和：" & s

追问

能稍微详细一点吗。。。。。。谢谢大神了

追答

还不够详细啊。直接双击窗体 复制上面代码 粘贴到事件里 运行后 就能看到结果

Answer 2

嗯哼嗯哼，是怎么回事？