求解

不难啊，很简单的，你自己多想想，就可以实现了。

Dim a() As Integer
Private Sub Command1_Click()
ReDim a(1 To Text1.Text)
Dim i As Integer
For i = 1 To Text1.Text
a(i) = (Rnd * 130) + 100
Next i
Dim j As Integer, k As Integer
For i = 1 To Text1.Text
For j = 1 To (Text1.Text - i)
If a(i) < a(i + 1) Then
k = a(i)
a(i) = a(i + 1)
a(i + 1) = k
End If
Next j
Next i
For i = 1 To Text1.Text
Label2.Caption = Label2.Caption & a(i) & " "
Next i
End Sub

半个小时内写的代码。我现在要去吃饭了。余下的你自己想想吧，反正是不难的。

如果还不会，49563833是我的扣扣号，我仔细给你想想

Option Explicit
Dim a() As Integer *声明一个动态数组
Private Sub Command1_Click()
ReDim a(1 To Text1.Text) *确定动态数组的长度
Dim i As Integer
For i = 1 To Text1.Text
a(i) = (Rnd * 130) + 100 *对动态数组进行随机赋值
Next i
Call Com(a) *调用冒泡排序法，给该数组进行排序
Call Com_Result
End Sub
Private Sub Form_Load()
****************************************
*对控件的设置
Label1.Caption = "输入元素的个数"
Label2.Caption = ""
Label2.BorderStyle = 1
Label3.Caption = "数组的中值为："
Label4.Caption = ""
Label4.BorderStyle = 1
Text1.Text = ""
Command1.Caption = "确定"
End Sub
Private Function Com(a() As Integer) *冒泡排序法，对数组进行从小到大的排序
Dim b As Integer, i As Integer, j As Integer
For i = 1 To Text1.Text
For j = Text1.Text To (i + 1) Step -1 *注：步长省略的时候，步长为1
If a(j) < a(j - 1) Then
b = a(j)
a(j) = a(j - 1)
a(j - 1) = b
End If
Next j
Label2.Caption = Label2.Caption & a(i) & " " *输出排序的结果
Next i
End Function
Private Function Com_Result() *计算中值
If Text1.Text Mod 2 Then
Label4.Caption = a(Text1.Text / 2)
Else
Label4.Caption = (a(Text1.Text / 2) + a(Text1.Text / 2 + 1)) / 2
End If
End Function
和我想的一样吗？

1输入 数组元素 个数n
2用随即函数 产生n个随机数
3排序 输出
4按规则 求中值数 输出