用随机函数产生20个1—100之间随机整数，求出这20个数的平均值（整数）后，再将平均值在内的这21个数从大到小排序输出。 
谁会啊啊啊啊~~~~~

我会，但是没空，，在辅导一个学长。。

怎么没人会的啊····

https://tieba.baidu.com/f?kz=523554066去这吧

有空上贴吧···

。。。。我qq同时开起。。。。贴吧太亮了。。

谁帮我做下啊啊~~~~~~~~~~~~~~~~~~~~~

帮我做下下下·····

明天要考了··

那个学长和你一样，。。。也是明天要考了。。所以我尽量帮下。。

那你帮我做下么··········学弟（学妹）········

学弟。。。我自己明天都要考试，这学期都没上过课，。。不过你是学姐我就帮你拉~~

哦。好的。
谢啦。

不过我还有2题·

编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其是最大元素及它的行、列坐标。

产生n个〔1,100〕的随机整数,n由键盘输入，要求每行打印5个数
Private Sub form_click()
 Randomize
 Dim x As Integer
 Dim i As Integer, pos As Integer
 n = InputBox("")
 ——— a(n) As Integer
 For i = 1 To n
 a(i) = _______________
 Form1.Print a(i); " " 
____________
 Next I
End Sub

我做下，你等下。。

Private Sub Command1_Click()
Dim n as integer, i as integer, j as integer, a(20) as integer, avg as integer
For i = 1 To 20
a(i) = Int(Rnd * (100-1+1)+1)
Next i
For i = 1 To 20
Print a(i)
Next i
S = 0
For i = 1 To 20
S = S + a(i)
Next i
avg = S / 20
Print avg
For i = 1 To 19
For j = i + 1 To 20
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 20
Print a(i)
Next i
End Sub

啊~谢谢帮我做的那位啊~~~~~~~

18L帅哥否？玥儿以身相许吧