vb6.0随机数据问题

在command1中产生的10个随机数据a(1)---a(10)到text1中，如何在按command2时在text2中大到小排列顺序。
看看我的图，应该修改哪里啊

答案：两个过程用同一个变量，应该定义公用变量
如下面代码：
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Randomize
For i = 1 To 10
k = i
a(i) = Val(Int(40 * Rnd + 60))
Text1.Text = a(i) & "," & Text1.Text
Next i
End Sub

Private Sub Command2_Click()
For i = 1 To 10
For k = i + 1 To 10
If a(i) > a(k) Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next k
Text2.Text = a(i) & "," & Text2.Text
Next i
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

上一个：vb设计一个5行5列的窗体右上角全是1左下角全是0
下一个：4*3矩阵vb程序