随机生成20个10到50间 互不相同 的整数，并求 平均值？

这个是我自己写的，显示的文本框中,每5个换行。新建两个文本框，一个按钮。
数字都是不重复的。
肯定满足你的要求！！！
Private Sub Command1_Click()
Dim i, j, n, n1, a(1 To 20) As Integer
Text1.Text = "":text2.text=""
For i = 1 To 20
a(i) = Int(Rnd() * 41 + 10)
For j = 1 To i - 1
If a(i) = a(j) Then
j = j - 1
i = i - 1
End If
Next
Next
For n = 1 To 20
Text1.Text = Text1.Text & " " & a(n)
n1 = n1 + a(n)
If n Mod 5 = 0 Then
Text1.Text = Text1.Text & vbCrLf
End If
Next
Text2.Text = n1 / 20
End Sub

Private A(20) As Integer

Private Sub Command1_Click()
Dim i As Integer
Randomize '随机种子 确保每次随机数不一样
Do
i:
A(i) = Int(Rnd * 40 + 10)'生成10-50之间随机数
For j = 0 To i - 1'判断是否重复
If A(j) = A(i) Then GoTo i:
Next j
Print A(i);
sum = sum + A(i)
avg = Format(sum / 20, "###,##")'求平均数

i = i + 1