求教一道VB程序设计题，题目如下

Question

新建工程，设置窗体的标题为“数组生成”。编写程序代码，在程序运行时，单击窗体实现以下功能：随机生成9个一位正整数存入3×3的二维数组A，将数组A所有元素在窗体上输出；计算数组A中所有元素的和，将结果在窗体上输出。运行结果如图所示。

Answer 1

代码部分如下：
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