在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值

题目

在VB中生成有n（n≥10）个随机数、并求出这个数组元素中的最大值、最小值和他们的平均值

答案

Dim i As Integer
Dim min As Integer
Dim max As Integer
Dim m As Integer
min = 100
max = 0
For i = 0 To 9
m = Int(Rnd * 100)
Print m
If min > m Then min = m
If max < m Then max = m
Next i
Print "最小数=" & min
Print "最大数=" & max