vb求助 数组平均找最大排序

随机产生10个任意的二位正整数存放在一维数组中，求数组的最大值、平均值，能实现将数组按升序排列，并使用InputBox函数插入一个新数据，使数组仍然按升序排列，完整的VB代码  
文本框中为
产生的一维数组为：
37 70 42 44 72 58 92 52 42 11
第七个元素92为最大元素
产生的随机数平均值为：52
排序后的一维数组为：
11 37 42 42 44 52 58 70 72 92
插入后的一维数组为：
11 37 42 42 44 50 52 58 70 72 92
右边的按钮分别为：产生随机数，求最大值，求平均值，升序排列，插入新数据