對任意10個數字求和（6）

option explicit

dim i as integer

dim a(10)as integer

dim sum as integer

randomize

for i=1 to 10

   a(i)=int(rnd*1000)+1

   sum=sum+a(i)

next i

print sum