VB猜字程序问题

利用随机函数产生20个50-100范围内的随机数，显示他们的最大值，最小值和平均值。
希望能尽快的给出答案，谢谢了！！

Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim maxi As Integer
Dim mini As Integer
Dim num As Long

maxi = 50
mini = 100

For i = 1 To 20
s = Int((100 - 50 + 1) * Rnd + 50)
If s > maxi Then
maxi = s
End If
If s < mini Then
mini = s
End If
num = num + s
Text1 = Text1 & "," & s
Next
Label1 = "最大值为" & maxi & " 最小值为" & mini & " 平均值为" & FormatNumber(num / 20, 2, -1)

End Sub