vb利用数组产生随机数 并求最小值

Question

如题所述

Answer 1

Dim
a%(5,
5)
Private
Sub
Command1_Click()
'产生并输出
For
i
=
1
To
5
For
j
=
1
To
5
a(i,
j)
=
Int(Rnd
*
81)
+
20
'[20,100]
Print
a(i,
j);
Next
j
Print
'换行
Next
i
End
Sub
Private
Sub
Command2_Click()
'求最小值
Min
=
a(1,
1)
'最小值的初始值为第一个元素
For
i
=
1
To
5
For
j
=
1
To
5
If
Min
>
a(i,
j)
Then
Min
=
a(i,
j)
Next
j
Next
i
Print
"最小：";
Min
End
Sub