定义一个整型数组,将50个随机的两位正整数从下标1开始放入该书组中,求出该书组中具有偶数值的偶数下标元素之和,同时输出该数组中所有元素的值,每行输出10个值.

Question

定义一个整型数组,将50个随机的两位正整数从下标1开始放入该书组中,求出该书组中具有偶数值的偶数下标元素之和,同时输出该数组中所有元素的值,每行输出10个值.

Answer 1

dim a(50) as integer
dim i,s as integer
randomize
s=0
for i=1 to 50
a(i)=int(rnd()*99)+1
if a(i) mod 2=0 then s=s+i
next i
print "s=";s
for i=1 to 50
print a(i);
if i mod 10=0 then print
next i