代码部分如下：
sub command1_click()
dim a(1 to 3, 1 to 3) as integer, s as integer, i as integer,j as integer
s=0
for i=1 to 3
for j=1 to 3
a(i,j)=int(rnd*9)+1
s=s+a(i,j)
print a(i,j)," ";
next j
print
next i
print s
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024