Question

编写程序，定义一个含有15个元素的数组，用随机函数给各元素赋值，然后每三个元素一行输出。

Answer 1

代码如下：
Private
Sub
Form_Click()
Cls
'清空窗体
Dim
a(1
To
15)
'定义数组变量
For
i
=
1
To
15
'For循环
Randomize
'初始化随机生成器
a(i)
=
Int(Rnd
*
10)
'对每一个元素进行赋值
If
i
Mod
3
=
0
Then
'当为每一行的最后一个数时输出a(i)
Print
a(i)
Else
Print
a(i);
End
If
Next
i
End
Sub