VB随机数的最大值，最小值，平均值

dim max as integer,min as integer,S as integer,i as integer,n as integer
max=0:min=100
for i=1 to 10
randomize
n=int(rnd*100)
if n>max then max=n
if n<min then min=n
s=s+n
next i
pirint "最大值：";max;"，最小值：";min;"，平均值：";s/10

本来不想答了，但是发现一楼的答案有一个不对的地方 ：他的随机数字无法产生100这个数字
顺便提供了另一种思路，LZ领会下
Dim intMax, intMin,intAverage As Integer
Dim intNum As Integer
intMin = -1
intMax = -1
intAverage=0
For i = 1 To 10
Randomize
intNum = Int(Rnd * (101))
intAverage=intAverage+intNum
If intNum > intMax Or intMax = -1 Then intMax = intNum
If intNum < intMin Or intMin = -1 Then intMin = intNum
Next
Text1.Text = intMin & " " & intMax & " " & intAverage