Question

在VB窗体模块中:用随机函数产生10个不大于100的整数存入一维数组a中,并找出这组数？

讨论：在VB窗体模块中:用随机函数产生10个不大于100的整数存入一维数组a中,并找出这组数？

Answer 1

Dim a(10) As Integer, i As IntegerPrint "随机生成数组：" For i = 1 To 10 a(i) = Int(Rnd * 100) Print a(i); Next i Print

Answer 2

dim a(1 to 10)for i=1 to 10 randomize a(i)=int(rnd*101)next i